vbscript:仅从excel中的可见单元格中搜索单词

时间:2014-10-16 13:33:28

标签: vbscript hiddenfield

使用vbscript,如何仅从可见单元格中查找/搜索excel中的单词。即如果任何隐藏的行或列中存在单词,则不应返回该单词。

目前,我使用如下,但它返回文本而不考虑可见性。如何严格控制这种可见性?

设置foundText = excelFile.worksheets(i).Range(" A1:H500")。查找(" Hello")

1 个答案:

答案 0 :(得分:0)

您可以使用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