Отображает два значения (столбцы) в режиме выбора элемента из выпадающего списка -VBA

Question

Combobox1 перечисляет два столбца значений ячеек A и B в Sheet1 Excel.Но при выборе одного элемента отображается только ячейка A (а ячейка B скрыта).Как отобразить оба значения в режиме выбора ?

Мой код VBA:

Private Sub UserForm_Initialize()
Dim xrg   As Range
Set xrg = ThisWorkbook.Worksheets("Sheet1").Range("A1:B5")
With Me.ComboBox1
  .List = xrg.Value
  .ColumnCount = 2
End With
End Sub

Answer 1

вы просто не можете

, но вы можете обойти это:

• поместите два текстовых поля, каждое из которых перекрывает один "столбец" на дисплее значения в выпадающем списке

• поместите следующий код в область кода пользовательской формы:

  Private Sub ComboBox1_Change()
      If Me.ComboBox1.ListIndex > -1 Then
          Me.TextBox1.Value = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 0)
          Me.TextBox2.Value = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1)
      End If
  End Sub
  

(измените имя текстового поля в соответствии с вашим выбором)