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

Question

大家早上好，

我编写了一个代码，通过按下按钮将列表框值放入 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

我想将其更改为无需使用按钮即可自动更新

Answer 1

答案取决于它是 ActiveX 列表框还是 FormControl 列表框。

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

如果您可以选择列表框的类型，我建议您远离 ActiveX，改用 FormControl。众所周知，ActiveX 有时会引起问题。

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

I would like to autoupdate a listbox value in a cel whitout using a button

excel

vba

listbox

auto-update