運行時錯誤'91

Question

我不斷收到錯誤消息：

運行時錯誤'91; 未設置對象變量或帶塊變量。

我的腳本運行良好，可以完成所需的工作，但我無法弄清楚如何消除此錯誤。

感謝您的幫助。

Public Sub CommandButton1_Click()

    Dim rng As Range

    Set rng = Range("F24:I24")

    rng.Select

    If TextBox1.Text = "" Then
        MsgBox ("Must insert Temperature you dingus!")
    Else
        rng = TextBox1.Text
        Call GetCabinet1
    End If

    Unload Me

End Sub

Public Sub UserForm_Initialize()

    Dim wb As Workbook
    Dim ws As Worksheet

    Set wb = ActiveWorkbook
    Set ws = Sheets("Executive Summary")

    wb.Activate
    ws.Select

    UserForm1.Show

    Unload Me

End Sub

Answer 1

從您的兩個subs中刪除所有那些Unload.Me ，並將其放在調用該用戶Unload.Me的subs中

在CommandButton1_Click（）的末尾放置Me.Hide

最后從UserForm_Initialize刪除UserForm1.Show ，因為它會使它重復兩次

因此您的“主要”子項如下所示：

Sub main()

    Dim UF As UserForm1

    Set UF = New UserForm1
    UF.Show
    Unload UF ' unload the userform from here

End Sub

和您的userform1代碼，例如：

Private Sub CommandButton1_Click()

    Dim rng As Range

    Set rng = Range("F24:I24")

    rng.Select

    If TextBox1.Text = "" Then
        MsgBox ("Must insert Temperature you dingus!")
    Else
        rng = TextBox1.Text
        Call GetCabinet1
    End If

    Me.Hide

End Sub


Public Sub UserForm_Initialize()

    Dim wb As Workbook
    Dim ws As Worksheet

    Set wb = ActiveWorkbook
    Set ws = Sheets("Executive Summary")

    wb.Activate
    ws.Select

End Sub

Answer 2

僅僅用我代替將我卸載。隱藏解決了我的問題...謝謝所有提供意見的人。