我想在不使用按钮的情况下自动更新单元格中的列表框值答案

【问题标题】：I would like to autoupdate a listbox value in a cel whitout using a button我想在不使用按钮的情况下自动更新单元格中的列表框值
【发布时间】：2019-01-14 10:06:33
【问题描述】：

大家早上好，

我编写了一个代码，通过按下按钮将列表框值放入 Excel 中的单元格中。

Private Sub CommandButton6_Click()

myVar = ""

For X = 0 To Me.transportation.ListCount - 1
    If Me.transportation.Selected(X) Then
        If myVar = "" Then
            myVar = Me.transportation.List(X, 0)
        Else
            myVar = myVar & "," & Me.transportation.List(X, 0)
        End If
    End If
Next X

ThisWorkbook.Sheets("Visit 1").Range("d49") = myVar
Me.Hide

End Sub

我想将其更改为不使用按钮自动更新

【问题讨论】：

它是 ActiveX 列表框还是 FormControl 列表框？
对不起，我是新手，所以不确定，它是使用工具箱中的列表框选项创建的
是的，但是那里有 2 个不同的 ListBox：ActiveX 和 FormControl。您需要知道它是哪一种，因为答案取决于控件的类型。

标签： excel vba listbox auto-update

【解决方案1】：

答案取决于它是 ActiveX ListBox 还是 FormControl ListBox。

ActiveX
使用ListBox1_Change 运行您的代码（其中ListBox1 是您的列表框的名称）。
表单控件
右键单击您的 ListBox 并将您的宏分配给 ListBox。

如果您能够选择 ListBox 的类型，我建议您远离 ActiveX 并改用 FormControl。众所周知，ActiveX 有时会导致问题。

【讨论】：

感谢您的回答，我找不到它，但认为它是一个有效的 x 代码，您能否将我的代码更改为正确的代码，因为仍然无法正常工作
查看我添加的图片。 ① 选择您的 ListBox（名称可能不同） ② 选择 Change 事件 ③ 将您的代码添加到创建的 _Change 事件中。
非常感谢，从你们的cmets身上学到了很多，很清楚。