運行時錯誤「91」:對象變量或帶塊變量未在這個特別的設置
代碼位,我不能工作了什麼是錯的吧...
'Booking Number Validation
With Sheets("New Enquiries")
Dim r As Excel.Range
Set r = .Range("A:A").Find(What:=BookingNumberTextBox.Text, LookAt:=xlWhole, MatchCase:=False)
If r = BookingNumberTextBox.Text Then
MsgBox ("Booking Number already exists.")
Call UserForm_Initialize
Else
MsgBox ("Enquiry has been added.")
End If
End With
我正在上線的錯誤If r = BookingNumberTextBox.Text Then
的這點是通過用戶窗體添加數據時的樣子,
- 如果預約號已經存在,然後告訴用戶初始化用戶窗體,
- ,如果它不存在,添加數據並確認輸入。
編輯:基於YowE3K的回答,我修改了他的代碼,並提出以下;
'Booking Number Validation
With Sheets("New Enquiries")
Dim r As Excel.Range
Set r = .Range("A:A").Find(What:=BookingNumberTextBox.Text, LookAt:=xlWhole, MatchCase:=False)
If r Is Nothing Then
MsgBox "Enquiry has been added."
Else
If r.Value = BookingNumberTextBox.Text Then
MsgBox "Booking Number already exists."
Call UserForm_Initialize
End If
End If
End With
你在哪一行得到錯誤? –
'如果r = BookingNumberTextBox.Text Then' – Panacea06
'debug.print BookingNumberTextBox.Text'是什麼打印出來的? –