Добавление элементов в список с несколькими столбцами

Как добавить элементы в список с 2 columns ? Он добавляет элементы только в первом столбце, если я использую ListBox.AddItem . Я хочу добавить элементы во 2nd column . Благодаря!

Используя свойство List .

 ListBox1.AddItem "foo" ListBox1.List(ListBox1.ListCount - 1, 1) = "bar" 

Для этого есть еще один способ:

 Private Sub UserForm_Initialize() Dim list As Object Set list = UserForm1.Controls.Add("Forms.ListBox.1", "hello", True) With list .Top = 30 .Left = 30 .Width = 200 .Height = 340 .ColumnHeads = True .ColumnCount = 2 .ColumnWidths = "100;100" .MultiSelect = fmMultiSelectExtended .RowSource = "Sheet1!C4:D25" End With End Sub 

Здесь я использую диапазон C4: D25 как источник данных для столбцов. Это приведет к тому, что оба столбца будут заполнены значениями.

Свойства самоочевидны. Вы можете исследовать другие параметры, рисуя ListBox в UserForm и используя «окно свойств (F4)», чтобы играть со значениями параметров.

выбрать проету

Тип источника строки => Список значений

Код:

ListbName.ColumnCount = 2

ListbName.AddItem “value column1; value column2”

  • Выберите «Новая запись» и создайте новую таблицу уникальных значений в Excel
  • Цикл через каждую ячейку в диапазоне ячеек при задании объекта Range
  • Найти похожие сообщения в Outlook 2010 с новым / всплывающим окном, как в 2007 году
  • Код в циклах VBA и никогда не заканчивается. Как это исправить?
  • VLOOKUP с несколькими критериями, возвращающими значения в одной ячейке
  • Вызов VBA - API отображается в Excel
  • Создание массива из диапазона в VBA
  • Создать форму timestamp для Excel
  • Создайте новый лист для каждого уникального агента и переместите все данные на каждый лист
  • Откройте книгу с помощью FileDialog и обработайте ее в Excel VBA
  • Ошибка времени выполнения «3061». Слишком мало параметров. Ожидаемый 1. (Access 2007)
  • Давайте будем гением компьютера.