编译错误。参数不是可选的答案

【问题标题】：Compile error. Argument not optional编译错误。参数不是可选的
【发布时间】：2014-01-14 10:41:17
【问题描述】：

我相信您会发现我无法解决的问题。您可以在下面看到我遇到问题的代码的简历。更改组合框 1 中的值后，它显示错误“编译错误。参数不是可选的”，以黄色突出显示“Sub ComboBox1_Change()”和蓝色“调用 TextBox4_Exit”。我认为我在需要的参数方面做错了，但不知道如何处理。

感谢您的帮助。

Sub ComboBox1_Change()
If TextBox4.Visible = True And TextBox4.Value <> "" Then
    Call TextBox4_Exit
End If

Sub TextBox4_Exit(ByVal cancel As MSForms.ReturnBoolean)
    Dim placas As String
    placas = TextBox4.Value
    I = 3
While Range("E" & I).Value <> ""
    If Range("E" & I).Value = mensaje Then
        If Range("L" & I).Value = mensaje2 Then
            If sheet1 = "SIC" Then
                Range("X" & I).Value = placas
                TextBox11.Value = Range("Y" & I).Value
                TextBox10.Value = Range("Z" & I).Value
            Else
                Range("U" & I).Value = placas
                TextBox11.Value = Range("AN" & I).Value
            End If
        End If
    End If
I = I + 1
Wend
End Sub

【问题讨论】：

在此行之前添加End Sub Sub TextBox4_Exit(...)。

标签： vba optional-parameters

【解决方案1】：

首先，Sub TextBox4_Exit(ByVal cancel As MSForms.ReturnBoolean) 有一个参数，它没有标记为可选，所以你需要传递一个参数给 Call TextBox4_Exit。

其次，你是否错过了 ComboBox1_Change() 的 End Sub？

【讨论】：