vbscript - vbscript : Excel で表示されているセルのみから単語を検索するには

Question

vbscript を使用して、表示されているセルからのみ Excel で単語を検索/検索する方法。つまり、非表示の行または列のいずれかに単語が存在する場合、それは返されません。

現在、私は以下のように使用していますが、可視性に関係なくテキストを返します。これの可視性を制限する方法は?

foundText = excelFile.worksheets(i).Range("A1:H500").Find("Hello") を設定します。

Answer 1

修飾子を使用して、xlCellTypeVisible表示されているセルのみをフィルタリングできます。方法は次のとおりです。

Const xlCellTypeVisible = 12

Dim r
Set r = excelFile.Worksheets(i).Range("A1:H500").SpecialCells(xlCellTypeVisible).Find("Hello")

If r Is Nothing Then
    MsgBox "Text not found in a visible cell."
Else
    MsgBox "Text found in a visible cell."
End If