Сейчас у меня есть выпадающий список с двумя столбцами в выпадающем списке.В левом столбце отображается тип материала.Правая колонка является описанием этого материала.Что я хотел бы сделать, это добавить заголовки, когда я открываю выпадающий список из поля со списком.
Я почти уверен, что это возможно, потому что в свойствах поля со списком в категории данных есть свойство columnHeads, которое может иметь значение "yes" или "no".Я переключил это, чтобы сказать «да», однако я не вижу никакого способа изменить или добавить значения к этим заголовкам.Я предполагаю, что это должно быть сделано из VBA, но мне было любопытно, если есть решение для этого.
(я не использую пользовательскую форму, как, кажется, где большинство вопросов об этомменя спрашивают)
Я попытался указать, где я хотел бы разместить свой заголовок, указав позицию, но это только добавило заголовок к первой позиции в раскрывающемся списке, а не к фактическому заголовку.
СУБЪЕКТ, КОТОРЫЙ ПОПУЛЯЕТ КОМБО-ЯЩИК
Здесь мой код просто показывает, как я заполняю массив из базы данных SQL, которую я использую для заполнения поля со списком вexcel
Public Sub AFCD_Column_Data(ByVal sql_col As String, _
ByVal sql_table As String)
' ... CODE...
' ... CODE...
' ... MORE CODE!
sqlrs.Open sqlcmd
If Not sqlrs.EOF Then
arr() = sqlrs.GetRows()
End If
Dim i As Integer
Sheet1.ComboBox3.Clear
Sheet1.ComboBox3.ListWidth = 400
Sheet1.ComboBox3.ColumnHeads = True
' Sheet1.ComboBox3.Column(0,0) = "HEADER 1"
For i = 0 To UBound(arr(), 2) ' the 2 refers to the 2nd dimension
With Sheet1.ComboBox3
.AddItem arr(0, i) ' adds the item / value to the first column
.List(i, 1) = arr(0, i) + "(DESCRIPTION)" ' adds the description to the second column
End With
Next i
sqlrs.Close
sqlconxn.Close
Exit Sub
Извините, у меня нет изображения моего комбинированного списка и выпадающего списка.Я не мог понять, как добавить изображение, но все, что мне нужно, - это поле со списком, в котором в раскрывающемся списке отображаются два заголовка;сопровождаемый остальными данными, которые я уже показал.
Пример:
| "MATERIAL" | "DESCRIPTION" |
--------------------------------
| Titanium | "Description" |
| ... | ... |