Excelにて、シート１のＡ列とシート２のＡ列のデータにＮｏを入れます。
シート１のＡ列のＮｏをクリックすると、シート２のＡ列の同じＮｏにジャンプするマクロを組みたいです。
現在組んでいるマクロは、
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Sht As Worksheet
Dim Rng1 As Range
Dim Rng2 As Range
Dim FindCell As Range
Set Sht = Worksheets("シート2")
Set Rng1 = Range("A2:A100")
Set Rng2 = Sht.Range("A2:A100")If Intersect(Target, Rng1) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
Set FindCell = Rng2.Find(Target.Value)
If Not FindCell Is Nothing Then
Application.Goto Reference:=FindCell, Scroll:=False
End If
End Sub
です。
一応マクロは実行されますが、そうすると、シート１のＡ列の編集（Ｎｏを追加したり変更したり・・・）できません。
編集や変更もできて、検索マクロも実行できるというマクロの組み方はありますでしょうか？
次のコードは，zkというワークシートから値をコピーして，
ワークシートtoday1のある位置にペーストしていくという作業をさせたいのですが，
実行エラーも特に表示されず，実行はされているはずなのですが，セルが空白のままになってしまいます。
どこがおかしいのかさっぱりわからないので，
どなたかおかしい箇所がわかる方，是非教えてください。よろしくお願いします。ExcelはExcel2000です。
Sub Z_PUT()
Dim i As Integer
Dim S1, S2 As Worksheet
Set S1 = Worksheets("zk")
Set S2 = Worksheets("today1")
For i = 1 To 50
S2.Cells(53 + i * 7, 1).Value = "z="
S2.Cells(53 + i * 7, 2).Value = S1.Cells(i + 1, 1).Value
Next i
End Sub
いい案が思い浮かばないため皆さんのお知恵をお貸しください。
下はエクセルと思ってください
A列 B列
1 2009/01/07/22:55 2009/01/07/22:56
2 テスト1 テスト1
3 テスト2 テスト2
4 テスト3 テスト3
5 テスト4 テスト6
とこのようなシートがあります。
セルA1とB1は時間のため可変で比較対照としたくありません
それ以外のA列とB列がすべて一致したとき一致
不一致があればセルA5が不一致とmsgboxで出したいと考えております。
まだ思案中で途中なのですが
Sub test()
Dim i As Integer
i = 1
Do While Cells(i, 1) <> ""
If Cells(i, 1) = Cells(i, 2) Then
MsgBox "一致"
i = i + 1
ElseIf Cells(i, 1) <> Cells(i, 2) Then
MsgBox "不一致"
i = i + 1
End If
Loop
End Sub
いまはまだこの程度のレベルです
宜しくお願いします。
ＶＢ６です。以下の様な関数を使っています。
用途としては、ファイルの有無を調べています。
で、関数の値として実際のパソコンに存在しないフォルダを指定した際、
下のエラー処理（AAA）に飛びません。
わかる方いらしたら、よろしくお願いします。
Public Function files(ByVal strPathName As String) As Boolean
On Error GoTo AAA
If (GetAttr(strPathName) And vbDirectory) = vbDirectory Then
Stop
Else
Stop
End If
Exists2 = True
Exit Function
AAA:
Stop
End Function
