Я хотел бы автоматически обновить значение списка в cel whitout с помощью кнопки

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 ListBox или FormControl ListBox.

• ActiveX
  Используйте ListBox1_Change для запуска вашего кода (где ListBox1 - это имя вашего ListBox).

• FormControl
  Щелкните правой кнопкой мыши на ListBox и назначьте свой макрос ListBox.

  

---

Если вы можете выбрать тип вашего ListBox, я рекомендую держаться подальше от ActiveX и использовать вместо него FormControl. Известно, что ActiveX иногда вызывает проблемы.