在 2 个子程序之间传递值时出错

Question

我试图在 VBA 中的 2 个子之间传递 String，但每次我得到一个编译错误

这是我的代码

Option Explicit

Private Sub ComboBox1_DropButtonClick()
    Dim value As String
    value = ComboBox1.value
    ComboBox1_Change value
End Sub

Private Sub ComboBox1_Change(ByVal value As String)
    Dim value2 As String
    value2 = value
End Sub

我收到以下错误

例程声明与同名事件或例程的描述不匹配

我已尝试删除 ByVal，但仍然没有...一些提示？

Answer 1

例程声明与同名事件或例程的描述不匹配

您收到错误是因为ComboBox1_Change 不支持传递参数。 ComboBox1_Change(ByVal value As String) 应该是 ComboBox1_Change()

@SiddharthRout 因为我想在 dropButton 被更改之前获取它的值。因此，当用户单击它时，我会得到 dropButton 的值，然后当用户更改它时，我会得到新值 - ChangeWorld 10 分钟前

您不需要添加全局变量。在用户表单中声明一个范围为 for 的变量。像这样的

Option Explicit

Dim oldValue As String
Dim newValue As String

Private Sub ComboBox1_DropButtonClick()
    oldValue = ComboBox1.value
End Sub

Private Sub ComboBox1_Change()
    newValue = ComboBox1.value

    MsgBox oldValue
    MsgBox ComboBox1.value
End Sub