vbscript : Excel의 보이는 셀에서만 단어 검색

Question

vbscript를 사용하여 보이는 셀에서만 Excel에서 단어를 찾고 검색하는 방법. 단어가 숨겨진 행이나 열에있는 경우이를 반환하지 않아야합니다.

현재 아래에서 사용하고 있지만 표시 여부에 관계없이 텍스트를 반환합니다. 이것에 대한 가시성을 저지하는 방법?

설정 foundText = excelFile.worksheets (I) .Range. ("A1 : H500") 찾기 ("안녕하세요")

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