下面的腳本我正在運行，但得到“運行時錯誤”，需要幫助，有什么問題？
Dim sh As Worksheet
Dim NameToFind As Variant
Dim FindRes As Range
Set sh = ThisWorkbook.Sheets("Data")
Call Find_files ' Show all files in directory in range A18:A109
Set NameToFind = sh.Range("N5") 'name stored in cell N5
Set FindRes = sh.Range("A18:A109").Find(What:=NameToFind, LookIn:=xlValues)
If FindRes Is Empty Then '---<Error is here...
Debug.Print "no match found to " & sh.Range("N5").Value
Else
Debug.Print "match found"
End If
uj5u.com熱心網友回復：
檢查FindRes是Nothing，沒有Empty。
Dim sh As Worksheet
Dim NameToFind As Variant
Dim FindRes As Range
Set sh = ThisWorkbook.Sheets("Data")
Call Find_files ' Show all files in directory in range A18:A109
Set NameToFind = sh.Range("N5") 'name stored in cell N5
Set FindRes = sh.Range("A18:A109").Find(What:=NameToFind, LookIn:=xlValues)
If FindRes Is Nothing Then
Debug.Print "no match found to " & sh.Range("N5").Value
Else
Debug.Print "match found"
End If
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/417854.html
標籤：
上一篇：無法使用ApachePOI中的CellUtil.setCellStyleProperties設定字體
下一篇：如果選擇了行，則洗掉一行