我如何擺脫這個 object 所需的錯誤？

Question

我不斷收到“需要對象錯誤”，它突出顯示了我的 HSE 變量

我之前使用此公式為輸入字段提供數據驗證以確保給出有效條目（針對大約 40,000 個 PN 的數據庫），但由於某種原因，代碼給了我一個粗略的時間這個 go

Dim HSE As String
Dim Eff As Workbook
Eff = "---Filepath----"

Dim lay As Worksheet
Set lay = Eff.Sheets("Layline")

With lay.range("C:C")
Set HSE = .Find(txt_hose, LookIn:=xlValues)
If HSE Is Nothing Then
MsgBox "Invalid Hose Material Value"
txt_hose.SetFocus
Exit Sub
End If
End With

應該獲取文本框的值（“txt_hose”）並在 C 列中進行搜索，它所檢查的只是列中是否存在與該值匹配的條目，如果沒有，它會輸出一條錯誤消息並結束子. 當我運行它時，它顯示“需要對象”並在 If 之后突出顯示 HSE

Answer 1

Set僅用於對象類型變量，並且您已將 HSE 聲明為 String。

你需要：

Dim HSE As Range