Название стобцов в ListBox

[AlexG]

Некий двухмерный массив ArrAccounts - создается программно.

Потом открывается форма

Код: Выделить всё

With ListBox1
            .Clear
            .ColumnCount = 4
            .ColumnWidths = "100;100;60;40"
            .List = ArrAccounts
End With

А вот как подписать название стобцов??

Вариант ListBox1.RowSource = ThisWorkbook.Range("Sheet1!$A$2:$B$20") - НЕ ПОДХОДИТ. Для него надо считать массив string переменных на лист, а потом обратно считывать - жрет очень много времени. Да и массив ArrAccounts - динамическиий.

Так как можно подписать столбцы, если массив не расположен на листе?

[alibek]

Есть свойство, помоему ColumnHeaders, устанавливаешь его в True и первая строка будет считаться названием полей.

[AlexG]

Уже пробовал друже, не проходит.

ColumnHeaders включает/отключает ВИЗУАЛЬНОЕ отображение СЕТКИ названия столбцов, - НЕ ЗАПОЛНЯЯ ИХ.

После такого варианта....

Код: Выделить всё

.ColumnHeads = True
.List = ArrAccounts

.....названия столбцов - пустые.....

[AlexG]

После навигации по N-ти форумам нашел ответ:
Заполнять программно (не из диапазона с листа) названия столбцов - НЕ ВОЗМОЖНО.

Выход - через создание еще одного ListBox:

Код: Выделить всё

With ListBox1
        .ColumnCount = 4
        .ColumnWidths = "100;100;60;40"
        .ColumnHeads = True
        .RowSource = "A2:D2"
       
End With
   
With ListBox2
            .Clear
            .ColumnCount = 4
            .ColumnWidths = "100;100;60;40"
            .ColumnHeads = False
            .List = ArrAccounts
End With

В первый считываются название столбцов из A1:D1, а во второй загоняется массив. который создан программно.
Первый аккуратненько тулится над вторым.

Коряво....а что делать .