VBA-范圍：“運行時錯誤'91'

Question

如果未保存工作簿並關閉並重新打開，則會出現以下錯誤

“運行時錯誤'91'：對象變量或不設置帶塊”

在其他地方，我有完全相同的代碼（只是字符串的名稱不同），有時它會給我相同的錯誤，直到我保存關閉並重新打開並重新運行。 之后，代碼運行平穩。

關於如何避免該錯誤的任何想法？ 你以前有這個問題嗎？

Dim fal As Excel.Worksheet
Set fal = wb.Sheets("Falancs")

Dim x As String
x = "F_1 ="

Dim cc As Integer ' The column as an integer (cc = 1,2,3...)
cc = fal.UsedRange.Find(x).Column

錯誤在最后一行，“（x）”是...

Answer 1

如果找不到x值， .Find將Nothing返回Nothing ，因此您應該檢查一下：

Dim fal As Excel.Worksheet
Set fal = wb.Sheets("Falancs")

Dim x As String
x = "F_1 ="

Dim cc As Integer ' The column as an integer (cc = 1,2,3...)
Dim res As Range

Set res = fal.UsedRange.Find(x)
If Not res Is Nothing Then
    cc = res.Column
Else
    MsgBox "Value " & x & " not found"
    Exit Sub
End If