|
こんにちは。かみちゃん です。
>エラーの内容は
>オブジェクト変数または With ブロック変数が設定されていません。(Error 91)
>です。
検索した結果見つからなかったら、そういうエラーになります。
ただ、
After:=ActiveCell
の部分を見ると、何がしたいのか、よくわかりませんし、どれかのシートで見つ
かった後、どうしたいのかもわかのません。
> VBAで複数シートから値を検索するロジック
おおむね以下のような感じでしょうか。
Sub Sample()
Dim ws As Worksheet
Dim FR As Range
Dim f as String
f = Cells(1, 3).Value 'マクロ実行時のアクティブセルはどこか?
For Each ws In Sheets(Array("Sheet1", "Sheet2"))
ws.Activate
Set FR = Cells.Find(What:=f, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, MatchByte:=False, SearchFormat:=False)
If FR Is Nothing Then
FR.Activate
MsgBox FR.Address(, , , True)
Else
MsgBox ws.Name & "にはありません"
End If
Next
End Sub
|
|