Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


29263 / 76732 ←次へ | 前へ→

【52752】Re:複数のシートから値を検索
発言  かみちゃん  - 07/11/30(金) 20:00 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>エラーの内容は
>オブジェクト変数または 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

0 hits

【52751】複数のシートから値を検索 tomi 07/11/30(金) 19:51 質問
【52752】Re:複数のシートから値を検索 かみちゃん 07/11/30(金) 20:00 発言
【52755】Re:複数のシートから値を検索 Mariko 07/12/1(土) 15:02 回答
【52835】Re:複数のシートから値を検索 tomi 07/12/5(水) 15:15 お礼

29263 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free