Как добавить заголовки в столбцы раскрывающегося списка со списком? (НЕ пользовательская форма) - PullRequest
0 голосов
/ 03 июля 2019

Сейчас у меня есть выпадающий список с двумя столбцами в выпадающем списке.В левом столбце отображается тип материала.Правая колонка является описанием этого материала.Что я хотел бы сделать, это добавить заголовки, когда я открываю выпадающий список из поля со списком.

Я почти уверен, что это возможно, потому что в свойствах поля со списком в категории данных есть свойство 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" |
| ...         |  ...           |
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...