Excel用户窗体VBA：提交按钮点击计数触发代码问题求助

Let’s resolve both the compile error and adjust the click logic to match your requirements step by step.

Corrected Code #

Private Sub CommandButton1_Click()
    Static cnt As Long
    cnt = cnt + 1
    Me.Label1.Caption = cnt & " Click(s)"
    
    ' First click: Show review prompt to user
    If cnt = 1 Then
        MsgBox "Please review your form information carefully.", vbOKOnly, "Review Required"
    ' Second click: Write data to cells and reset the process
    ElseIf cnt = 2 Then
        ' Replace these lines with your actual cell assignment logic
        Sheet1.Range("A1").Value = Me.TextBox1.Value
        Sheet1.Range("B1").Value = Me.TextBox2.Value
        
        ' Optional: Confirm submission to user
        MsgBox "Data submitted successfully!", vbInformation, "Success"
        
        ' Reset count so the review-submit flow can start fresh
        cnt = 0
        ' Optional: Clear form fields for next entry
        Me.TextBox1.Value = ""
        Me.TextBox2.Value = ""
        Me.Label1.Caption = "0 Click(s)"
    End If
End Sub

Key Fixes & Explanations #

1. Syntax Error Resolution
   Your original MsgBox line had unnecessary parentheses. In VBA, when calling MsgBox as a standalone statement (not capturing its return value), you don’t use parentheses. Removing them fixes the compile error immediately.

2. Adjusted Click Logic

   • First Click (cnt = 1): Triggers the review message as requested. This aligns with your need to prompt users to verify their info before submitting.
   • Second Click (cnt = 2): Executes the data write to your target cells. We reset the cnt variable to 0 here so users can go through the review-submit flow again if they need to submit another entry.

3. Optional Quality-of-Life Extras

   • Added a success message to confirm submission completion.
   • Included code to clear form fields and reset the click count label for a cleaner, more intuitive user experience.

Just replace the Sheet1.Range(...) lines with your actual cell references and text box names to fit your specific form setup.

内容的提问来源于stack exchange，提问作者j man