VBA

【VBA】別ブックを検索する（Find）

 

Excel VBAで別のブックからFindを使って検索する方法をご紹介します。

今回はマクロ用のブックと、データ用のブックが別々の場合を想定して作成しています。

Findで別ブックを検索

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Dim wb As Workbook
Dim ws As Worksheet
Dim fd As Range
 
Set wb = Workbooks("参照先.xlsx")    '参照先ブック名
Set ws = wb.Worksheets("Sheet1")    '参照先シート名
Set fd = ws.Range(A1:C3).Find()       '検索式を設定
 
If fd is Nothing
    '検索エラー
    MsgBox ("検索に失敗しました")
Else
    '検索Hit
    Msgbox ("検索結果：" & fd)
End if
Find vba
RELATED POST