Question

我相信你会发现我无法做到的问题。下面你可以看到我遇到问题的代码的简历。在更改了combobox1中的值后，它显示错误“编译错误。参数不是可选的”，以黄色突出显示“Sub ComboBox1_Change（）”和蓝色“Call 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

Answer 1

首先，Sub TextBox4_Exit（ByVal cancel As MSForms.ReturnBoolean）有一个参数，它没有标记为Optional，所以你需要将一个参数传递给Call TextBox4_Exit。

其次，您是否错过了ComboBox1_Change（）的End Sub？

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

1 个答案: