Имеется умная таблица Каким образом можно заполнить ListBox при этом изменяя порядок столбцов из умной таблицы, например сначала категория, потом ФИО, потом дата рождения?
Имеется умная таблица Каким образом можно заполнить ListBox при этом изменяя порядок столбцов из умной таблицы, например сначала категория, потом ФИО, потом дата рождения?Sashagor1982
Function GetTableBodyRange(aColumns, sh, TableNAme) Dim e a = sh.ListObjects(TableNAme).DataBodyRange.Value ReDim e(1 To UBound(a), 1 To UBound(aColumns) + 1) For i = 1 To UBound(a) For j = LBound(aColumns) To UBound(aColumns) e(i, j + 1) = a(i, aColumns(j)) Next Next GetTableBodyRange = e End Function Sub test_() Me.ListBox1.List = GetTableBodyRange(Array(1, 4, 2, 3), ActiveSheet, "tbl") End Sub
[/vba]
[vba]
Код
Function GetTableBodyRange(aColumns, sh, TableNAme) Dim e a = sh.ListObjects(TableNAme).DataBodyRange.Value ReDim e(1 To UBound(a), 1 To UBound(aColumns) + 1) For i = 1 To UBound(a) For j = LBound(aColumns) To UBound(aColumns) e(i, j + 1) = a(i, aColumns(j)) Next Next GetTableBodyRange = e End Function Sub test_() Me.ListBox1.List = GetTableBodyRange(Array(1, 4, 2, 3), ActiveSheet, "tbl") End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
