Listbox в ячейке excel

Элемент управления пользовательской формы ListBox для выбора и ввода информации в VBA Excel. Свойства списка, его заполнение, извлечение данных, примеры кода.

Элемент управления ListBox на пользовательской форме

UserForm.ListBox – это элемент управления пользовательской формы, предназначенный для передачи в код VBA информации, выбранной пользователем из одностолбцового или многостолбцового списка.

Список используется в тех случаях, когда необходимо добавить в форму информацию, которая заранее известна, а ее отдельные позиции можно сгруппировать в список. Элемент управления ListBox оправдывает себя при небольших списках, так как большой список будет занимать много места на форме.

Использование полос прокрутки уменьшает преимущество ListBox перед элементом управления ComboBox, которое заключается в том, что при открытии формы все позиции для выбора на виду без дополнительных действий со стороны пользователя. При выборе информации из большого списка удобнее использовать ComboBox.

Элемент управления ListBox позволяет выбрать несколько позиций из списка, но эта возможность не имеет практического смысла. Ввести информацию в ListBox с помощью клавиатуры или вставить из буфера обмена невозможно.

Свойства списка

Свойство Описание
ColumnCount Указывает количество столбцов в списке. Значение по умолчанию = 1.
ColumnHeads Добавляет строку заголовков в ListBox. True – заголовки столбцов включены, False – заголовки столбцов выключены. Значение по умолчанию = False.
ColumnWidths Ширина столбцов. Значения для нескольких столбцов указываются в одну строку через точку с запятой (;).
ControlSource Ссылка на ячейку для ее привязки к элементу управления ListBox.
ControlTipText Текст всплывающей подсказки при наведении курсора на ListBox.
Enabled Возможность выбора элементов списка. True – выбор включен, False – выключен*. Значение по умолчанию = True.
Font Шрифт, начертание и размер текста в списке.
Height Высота элемента управления ListBox.
Left Расстояние от левого края внутренней границы пользовательской формы до левого края элемента управления ListBox.
List Позволяет заполнить список данными из одномерного или двухмерного массива, а также обращаться к отдельным элементам списка по индексам для записи и чтения.
ListIndex Номер выбранной пользователем строки. Нумерация начинается с нуля. Если ничего не выбрано, ListIndex = -1.
Locked Запрет возможности выбора элементов списка. True – выбор запрещен**, False – выбор разрешен. Значение по умолчанию = False.
MultiSelect*** Определяет возможность однострочного или многострочного выбора. 0 (fmMultiSelectSingle) – однострочный выбор, 1 (fmMultiSelectMulti) и 2 (fmMultiSelectExtended) – многострочный выбор.
RowSource Источник строк для элемента управления ListBox (адрес диапазона на рабочем листе Excel).
TabIndex Целое число, определяющее позицию элемента управления в очереди на получение фокуса при табуляции. Отсчет начинается с 0.
Text Текстовое содержимое выбранной строки списка (из первого столбца при ColumnCount > 1). Тип данных String, значение по умолчанию = пустая строка.
TextAlign Выравнивание текста: 1 (fmTextAlignLeft) – по левому краю, 2 (fmTextAlignCenter) – по центру, 3 (fmTextAlignRight) – по правому краю.
Top Расстояние от верхнего края внутренней границы пользовательской формы до верхнего края элемента управления ListBox.
Value Значение выбранной строки списка (из первого столбца при ColumnCount > 1). Value – свойство списка по умолчанию. Тип данных Variant, значение по умолчанию = Null.
Visible Видимость списка. True – ListBox отображается на пользовательской форме, False – ListBox скрыт.
Width Ширина элемента управления.

* При Enabled в значении False возможен только вывод информации в список для просмотра.
** Для элемента управления ListBox действие свойства Locked в значении True аналогично действию свойства Enabled в значении False.
*** Если включен многострочный выбор, свойства Text и Value всегда возвращают значения по умолчанию (пустая строка и Null).

В таблице перечислены только основные, часто используемые свойства списка. Еще больше доступных свойств отображено в окне Properties элемента управления ListBox, а все методы, события и свойства – в окне Object Browser.

Вызывается Object Browser нажатием клавиши «F2». Слева выберите объект ListBox, а справа смотрите его методы, события и свойства.

Свойства BackColor, BorderColor, BorderStyle отвечают за внешнее оформление списка и его границ. Попробуйте выбирать доступные значения этих свойств в окне Properties, наблюдая за изменениями внешнего вида элемента управления ListBox на проекте пользовательской формы.

Способы заполнения ListBox

Используйте метод AddItem для загрузки элементов в список по одному:

With UserForm1.ListBox1

  .AddItem «Значение 1»

  .AddItem «Значение 2»

  .AddItem «Значение 3»

End With

Используйте свойство List, чтобы скопировать одномерный массив значений в элемент управления ListBox.

UserForm1.ListBox1.List = Array(«Текст 1», _

«Текст 2», «Текст 3», «Текст 4», «Текст 5»)

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

Используйте свойство RowSource, чтобы загрузить в список значения из диапазона ячеек рабочего листа:

UserForm1.ListBox1.RowSource = «Лист1!A1:A6»

При загрузке данных из диапазона, содержащего более одного столбца, требуется предварительно указать количество столбцов в списке:

With UserForm1.ListBox1

  ‘Указываем количество столбцов

  .ColumnCount = 5

  .RowSource = «‘Лист со списком’!A1:E10»

End With

В качестве имени листа используется имя ярлыка. Если имя листа содержит пробелы, оно заключается в одинарные кавычки.

Подробнее о заполнении элемента управления ListBox вы можете ознакомиться в отдельной статье с наглядными примерами.

Привязка списка к ячейке

Для привязки списка к ячейке на рабочем листе используется свойство ControlSource. Суть привязки заключается в том, что при выборе строки в элементе управления, значение свойства Value копируется в привязанную ячейку.

Если привязанная к списку ячейка содержит значение одной из строк элемента управления ListBox, то при запуске пользовательской формы список откроется с выделенной строкой, содержащей это значение. Если привязанная ячейка при загрузке формы пустая, то список откроется без выделения какой-либо строки.

В случае, когда при открытии формы в привязанной к списку ячейке содержится значение, которого нет ни в одной из строк элемента управления ListBox, будет сгенерирована ошибка.

Привязать ячейку к списку можно, указав адрес ячейки в поле свойства ControlSource в окне Properties элемента управления ListBox. Или присвоить адрес ячейки свойству ControlSource в коде VBA Excel:

UserForm1.ListBox1.ControlSource = «Лист1!A2»

Теперь значение выбранной строки в списке автоматически копируется в ячейку «A2» на листе «Лист1»:

Элемент управления ListBox с привязанной ячейкой

В окне Properties адрес указывается без двойных кавычек. Если имя листа содержит пробелы, оно заключается в одинарные кавычки.

Извлечение информации из списка

Первоначально элемент управления ListBox открывается со строками, ни одна из которых не выбрана. При выборе (выделении) строки, ее значение записывается в свойства Value и Text.

Из этих свойств мы с помощью кода VBA Excel извлекаем информацию, выбранную в списке пользователем:

Dim myVar as Variant, myTxt As String

myVar = UserForm1.ListBox1.Value

‘или

myTxt = UserForm1.ListBox1.Text

Вторую строку кода можно записать myVar = UserForm1.ListBox1, так как Value является свойством списка по умолчанию.

Если ни одна позиция в списке не выбрана, свойство Value возвращает значение Null, а свойство Text – пустую строку. Если выбрана строка в многостолбцовом списке, в свойства Value и Text будет записана информация из первого столбца.

Что делать, если понадобятся данные из других столбцов многостолбцового списка, кроме первого?

Для получения данных из любого столбца элемента управления ListBox используется свойство List, а для определения выбранной пользователем строки – ListIndex.

Для тестирования приведенного ниже кода скопируйте таблицу и вставьте ее в диапазон «A1:D4» на листе с ярлыком «Лист1»:

Звери Лев Тапир Вивера
Птицы Грач Сорока Филин
Рыбы Карась Налим Парусник
Насекомые Оса Жук Муравей

Создайте в редакторе VBA Excel пользовательскую форму и добавьте на нее список с именем ListBox1. Откройте модуль формы и вставьте в него следующие процедуры:

Private Sub UserForm_Initialize()

With Me.ListBox1

  ‘Указываем, что у нас 4 столбца

  .ColumnCount = 4

  ‘Задаем размеры столбцов

  .ColumnWidths = «50;50;50;50»

  ‘Импортируем данные

  .RowSource = «Лист1!A1:D4»

  ‘Привязываем список к ячейке «F1»

  .ControlSource = «F1»

End With

End Sub

Private Sub UserForm_Click()

MsgBox Me.ListBox1.List(Me.ListBox1.ListIndex, 2)

End Sub

В процедуре UserForm_Initialize() присваиваем значения некоторым свойствам элемента управления ListBox1 перед открытием пользовательской формы. Процедура UserForm_Click() при однократном клике по форме выводит в MsgBox значение из третьего столбца выделенной пользователем строки.

Результат извлечения данных из многостолбцового элемента управления ListBox

Теперь при выборе строки в списке, значение свойства Value будет записываться в ячейку «F1», а при клике по форме функция MsgBox выведет значение третьего столбца выделенной строки.

Обратите внимание, что при первом запуске формы, когда ячейка «F1» пуста и ни одна строка в ListBox не выбрана, клик по форме приведет к ошибке. Это произойдет из-за того, что свойство ListIndex возвратит значение -1, а это недопустимый номер строки для свойства List.

Если для списка разрешен многострочный выбор (MultiSelect = fmMultiSelectMulti или MultiSelect = fmMultiSelectExtended), тогда, независимо от количества выбранных строк, свойство Value будет возвращать значение Null, а свойство Text – пустую строку. Свойство ListIndex будет возвращать номер строки, которую кликнули последней, независимо от того, что это было – выбор или отмена выбора.

Иногда перед загрузкой в ListBox требуется отобрать уникальные элементы из имеющегося списка. Смотрите, как это сделать с помощью объектов Collection и Dictionary.

 

Ronin751

Пользователь

Сообщений: 924
Регистрация: 10.04.2013

#1

07.07.2014 11:59:09

Добрый день всем умельцам и мастерам Эксель!
Подскажите как копировать все содержимые значения ЛистБокса в активную ячейку без учета значений третьего столбца? Пробовал:

Код
ActiveCell = ListBox1.Value
 

Но копируется только значение первого столбца Листбокса и только выделенной строки.
Заранее огромное спасибо всем откликнувшимся!

Прикрепленные файлы

  • ЛистБокс.xls (37 КБ)

 

Юрий М

Модератор

Сообщений: 60570
Регистрация: 14.09.2012

Контакты см. в профиле

#2

07.07.2014 12:02:05

Пример не смотрел. Взять значения из нужного столбца можно так:

Код
Range("A1") = ListBox1.List(ListBox1.ListIndex, 0)'из первого
Range("A1") = ListBox1.List(ListBox1.ListIndex, 1)'из второго
 
 

Ronin751

Пользователь

Сообщений: 924
Регистрация: 10.04.2013

Боюсь меня не верно поняли. Наверно в этом и моя вина есть. Не так выразил свою мысль. Прошу прощения за это!  
Необходимо добавить все значения всех столбцов и строк Листбокса в активную ячейку, за исключением значений третьего столбца Листбокса.

 

Юрий М

Модератор

Сообщений: 60570
Регистрация: 14.09.2012

Контакты см. в профиле

#4

07.07.2014 12:16:35

Цитата
Ronin751 пишет:
Необходимо добавить все значения всех столбцов и строк Листбокса в активную ячейку

И всё в ОДНУ ячейку?

 

Ronin751

Пользователь

Сообщений: 924
Регистрация: 10.04.2013

#5

07.07.2014 12:22:29

Цитата
И всё в ОДНУ ячейку?

Да! В оригинале, в листБокс попадают только отобраные значения (примерно как у Уокенбаха, из другого ЛистБокса). Каждому значению дается свой индивидуальный номер (который и является тем самым не нужным столбцом).
P.S. Не хотел сильно форму нагромождать.

 

Юрий М

Модератор

Сообщений: 60570
Регистрация: 14.09.2012

Контакты см. в профиле

#6

07.07.2014 12:32:56

Код
Private Sub CommandButton1_Click()
Dim i As Integer, Stroka As String
    For i = 1 To Me.ListBox1.ListCount - 1
        Stroka = Stroka & ListBox1.List(i, 0) & " " & ListBox1.List(i, 1) & " " & ListBox1.List(i, 3) & " " & CDate(ListBox1.List(i, 4)) & Chr(10)
    Next
    ActiveCell = Stroka
End Sub
 

Ronin751

Пользователь

Сообщений: 924
Регистрация: 10.04.2013

Спасибо Вам огромное! Работает отлично. :-)

 

Юрий М

Модератор

Сообщений: 60570
Регистрация: 14.09.2012

Контакты см. в профиле

Только необходимо будет обработать строку: сейчас в конце в любом случае добавляется перенос.

 

Ronin751

Пользователь

Сообщений: 924
Регистрация: 10.04.2013

#9

07.07.2014 13:02:56

Да, обратил внимание. Спасибо Вам огромное! Главное, что работает. ))

How to get data from a ListBox control and put it into a worksheet in Excel.

ef31ffec140344f83332bf3f16bf56f2.jpg

Sections:

Get Data from a Single Selection ListBox

Get Data from a Multiple Selection ListBox

Where to Put the Code

Notes

Get Data from a Single Selection ListBox

ListBox1.Text

ListBox1 is the name of the ListBox with the selection.

Here is an example of using this feature where you take the selection from the ListBox and place it in cell B2 in the worksheet.

'Get input from ListBox
ListBoxValue = ListBox1.Text
'Store input in the worksheet
Sheets("Sheet1").Range("B2").Value = ListBoxValue

This puts the selected item into the ListBoxValue variable, which is then used to input that value into cell B2 on the worksheet named «Sheet1».

Note: If the option to make multiple selections is enabled, the above method will not work, even if the user selects only 1 item from the list; in such cases, use the next method.

Get Data from a Multiple Selection ListBox

(To enable multiple ListBox selections, view this tutorial: Multiple Selections in a ListBox)

Getting data for multiple selections requires more effort that the example above because we have to actually loop through all of the items in the list in order to see which ones have been selected.

'Loop through every item in the ListBox
For i = 0 To ListBox1.ListCount - 1

    'Check if the item was selected.
    If ListBox1.Selected(i) Then

        'If here, means this item has been selected.

        'Show selected items in a message box.
        MsgBox ListBox1.List(i)

    End If

Next i

This is a For loop in VBA.

ListBox1 is the name of the ListBox.

i is the variable that is used to loop through the items in the ListBox. When referencing an item from within the loop, you use this variable. This is used in the next two explanations in order to get information about the items during the loop.

ListBox1.Selected(i) returns a True or False value that lets you know if the item in the list was selected or not. This is what is used in the IF statement part of the code.

ListBox1.List(i) is how you reference the item from the ListBox while you are looping through the items.

MsgBox ListBox1.List(i) is a simple way for you to see what items have been selected. This is used for illustrative purposes.

In the sample file for this tutorial another line of code is included that will put all of the selected items into Column B in the worksheet. That line of code looks like this (it also goes inside of the For loop):

Range("B" & Rows.Count).End(xlUp).Offset(1).Value = ListBox1.List(i)

Full Code to Put Values into the Worksheet

'Loop through every item in the ListBox
For i = 0 To ListBox1.ListCount - 1

    'Check if the item was selected.
    If ListBox1.Selected(i) Then

        'If here, means this item has been selected.

        'Put all selected items in Column B
        Range("B" & Rows.Count).End(xlUp).Offset(1).Value = ListBox1.List(i)

        'Show selected items in a message box.
        'MsgBox ListBox1.List(i)

    End If

Next i

The message box code was commented-out but left in so it’s easier to see and understand.

Where to Put the Code

The above code, usually, should go inside of the code section for a command button; this allows something to happen with the ListBox selections after the user clicks a button.

In the examples for this tutorial, and the included file, this code is at the top of the section for the Store Input button, named CommandButton2.

You can get to this code section by double-clicking the Store Input button from the form in the VBA window (Alt + F11).

Notes

You don’t have to make two separate code sections for a ListBox to check if it allows for sinlge or multi-selections. You can always use the loop in the second section above and it will work in all cases.

The method for doing something with multiple selections can seem a little tricky, but you only really have to change the name of the ListBox to the name of the one you use and everything should work.

In the attached file, the ListBox is set to allow multiple selections using the Ctrl and Shift keys. This is done with this line at the top of the UserForm_Initialize() event:

ListBox1.MultiSelect = fmMultiSelectExtended

Download the sample file for this tutorial to work with these examples in Excel.

Similar Content on TeachExcel

Getting Data from a UserForm

Tutorial: How to get data from a UserForm in Excel, including from: text inputs (TextBox), list boxe…

Multiple Selections in a ListBox

Tutorial: There are two different kinds of multiple item selections that you can have for a ListBox …

Get Data from the Worksheet into a Macro in Excel

Tutorial: Here, you’ll learn how to get information from the Excel worksheet into a macro so you can…

Macro to get Data from Another Workbook in Excel

Tutorial:
Macro to get data from a workbook, closed or open, over a network or locally on your comp…

Get Data from Separate Workbooks in Excel

Tutorial: How to get data from separate workbooks in Excel. This tutorial includes an example using …

Get Values from a Chart

Macro: This macro will pull the values from a chart in excel and list those values on another spr…

Subscribe for Weekly Tutorials

BONUS: subscribe now to download our Top Tutorials Ebook!

0 / 0 / 0

Регистрация: 05.07.2011

Сообщений: 112

1

10.08.2011, 12:02. Показов 32515. Ответов 7


Студворк — интернет-сервис помощи студентам

Подскажите пожалуйста как мне получить значения из ListBox в ячейку, значений в ListBox может быть и 1 и 20.
Заранеее благодарен.



0



1 / 1 / 0

Регистрация: 03.07.2009

Сообщений: 112

10.08.2011, 12:10

2

Задай в свойстве LinkedCell свою ячейку, где будет запоминаться выбранный элемент списка.



0



Masalov

22 / 5 / 1

Регистрация: 05.09.2010

Сообщений: 370

10.08.2011, 13:21

3

Если ListBox на UserForm, а не на листе, то можно так:

Visual Basic
1
2
3
4
5
6
7
  y=2
  For i = 0 To Me.ListBox1.ListCount - 1
    If Me.ListBox1.Selected(i) Then
      cells(y,1)= Me.ListBox1.List(i)
      y=y+1
    End If
  Next



0



0 / 0 / 0

Регистрация: 05.07.2011

Сообщений: 112

10.08.2011, 14:01

 [ТС]

4

Спасибо за ответы. Все получилось!



0



0 / 0 / 0

Регистрация: 05.07.2011

Сообщений: 112

10.08.2011, 14:13

 [ТС]

5

Заключительный вопрос.
А как бы сделать чтобы все выбранные значения в ListBox передавались в одну строку?



0



TimV

0 / 0 / 0

Регистрация: 05.07.2011

Сообщений: 112

10.08.2011, 14:17

 [ТС]

6

Отвечаю сам себе

Visual Basic
1
2
3
4
5
6
7
8
9
Dim strany As String
y = 1
 For i = 0 To UserForm2.ListBox1.ListCount - 1
  If UserForm2.ListBox1.Selected(i) Then
   strany = Sheets('Ëèñò2').Cells(1, 1).Value
   Sheets('Ëèñò2').Cells(1, 1).Value = ', ' & strany + UserForm2.ListBox1.List(i)
   'y = y + 1
  End If
 Next



0



LCOM

1 / 1 / 0

Регистрация: 20.05.2013

Сообщений: 69

08.08.2013, 11:09

7

Цитата
Сообщение от TimV
Посмотреть сообщение

Dim

Нашел вот подобие кода с мультиселектом

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Dim MySelection() As String
Dim NCrit As Long
Dim HideRange As Range
Dim HideRows As Range
Dim TheCell As Range
    
 
    '1 - Reading the multiple entries in the listbox
    
    ReDim MySelection(1 To Me.ListBox_MultiSelect.ListCount)
    NCrit = 0
    For i = 1 To Me.ListBox_MultiSelect.ListCount
        If Me.ListBox_MultiSelect.Selected(i - 1) = True Then
            MySelection(i) = Me.ListBox_MultiSelect.List(i - 1, 0)
            NCrit = NCrit + 1
        End If
    Next i
    Redim Preserve MySelection(1 to NCrit)
    
    '2 - Filtering the data to show only what was selected
    
    Sheets("MySheet").Select
    Cells.EntireRow.Hidden = False
    Sheets("MySheet").AutoFilterMode = False
    Rows(1).AutoFilter
    
    Set HideRange = Nothing
    For i = 1 To NCrit
        Sheets("MySheet").UsedRange.AutoFilter Field:=3, Criteria1:="<>" & MySelection(i)
        If HideRange Is Nothing Then
            Set HideRange = Sheets("MySheet").AutoFilter.Range.SpecialCells(xlCellTypeVisible)
        Else
            Set HideRange = Intersect(HideRange, Sheets("MySheet").AutoFilter.Range.SpecialCells(xlCellTypeVisible))
        End If
    Next i
    
    Sheets("MySheet").AutoFilterMode = False
    
    '3 - Hiding the rows that were not selected
    
    Set HideRows = Nothing
    For Each TheCell In HideRange
        If Rows(TheCell.Row).Hidden = False Then
            If HideRows Is Nothing Then
                Set HideRows = Rows(TheCell.Row)
            Else
                Set HideRows = Union(HideRows, Rows(TheCell.Row))
            End If
        End If
    Next TheCell
 
    HideRows.EntireRow.Hidden = True



1



6 / 6 / 0

Регистрация: 29.03.2012

Сообщений: 15

07.11.2014, 14:51

8

Для Excel работа с ListBox (заполнение, множественный выбор, сортировка)



0



Excel for Microsoft 365 Excel 2021 Excel 2019 Excel 2016 Excel 2013 Excel 2010 Excel 2007 Excel Starter 2010 More…Less

When you want to display a list of values that users can choose from, add a list box to your worksheet.

Sample list box

Add a list box to a worksheet

  1. Create a list of items that you want to displayed in your list box like in this picture.

    value list for use in combo box

  2. Click Developer > Insert.

    Note: If the Developer tab isn’t visible, click File > Options > Customize Ribbon. In the Main Tabs list, check the Developer box, and then click OK.

  3. Under Form Controls, click List box (Form Control).

    the list box form control button

  4. Click the cell where you want to create the list box.

  5. Click Properties > Control and set the required properties:

    Proprties for the list box control.

    • In the Input range box, type the range of cells containing the values list.

      Note: If you want more items displayed in the list box, you can change the font size of text in the list.

    • In the Cell link box, type a cell reference.

      Tip: The cell you choose will have a number associated with the item selected in your list box, and you can use that number in a formula to return the actual item from the input range.

    • Under Selection type, pick a Single and click OK.

      Note: If you want to use Multi or Extend, consider using an ActiveX list box control.

Add a combo box to a worksheet

You can make data entry easier by letting users choose a value from a combo box. A combo box combines a text box with a list box to create a drop-down list.

Combo box

You can add a Form Control or an ActiveX Control combo box. If you want to create a combo box that enables the user to edit the text in the text box, consider using the ActiveX Combo Box. The ActiveX Control combo box is more versatile because, you can change font properties to make the text easier to read on a zoomed worksheet and use programming to make it appear in cells that contain a data validation list.

  1. Pick a column that you can hide on the worksheet and create a list by typing one value per cell.

    value list for use in combo box

    Note: You can also create the list on another worksheet in the same workbook.

  2. Click Developer > Insert.

    Note: If the Developer tab isn’t visible, click File > Options > Customize Ribbon. In the Main Tabs list, check the Developer box, and then click OK.

  3. Pick the type of combo box you want to add:

    • Under Form Controls, click Combo box (Form Control).

      Or

    • Under ActiveX Controls, click Combo Box (ActiveX Control).

      Insert combo box

  4. Click the cell where you want to add the combo box and drag to draw it.

Tips: 

  • To resize the box, point to one of the resize handles, and drag the edge of the control until it reaches the height or width you want.

  • To move a combo box to another worksheet location, select the box and drag it to another location.

Format a Form Control combo box

  1. Right-click the combo box and pick Format Control.

  2. Click Control and set the following options:

    Format control dialog box

    • Input range: Type the range of cells containing the list of items.

    • Cell link: The combo box can be linked to a cell where the item number is displayed when you select an item from the list. Type the cell number where you want the item number displayed.

      For example, cell C1 displays 3 when the item Sorbet is selected, because it’s the third item in our list.

      Linked cell shows item number when item is selected.

      Tip: You can use the INDEX function to show an item name instead of a number. In our example, the combo box is linked to cell B1 and the cell range for the list is A1:A2. If the following formula, is typed into cell C1: =INDEX(A1:A5,B1), when we select the item «Sorbet» is displayed in C1.

      Enter formula to show item from linked cell

    • Drop-down lines: The number of lines you want displayed when the down arrow is clicked. For example, if your list has 10 items and you don’t want to scroll you can change the default number to 10. If you type a number that’s less than the number of items in your list, a scroll bar is displayed.

      Scroll bar is displayed.

  3. Click OK.

Format an ActiveX combo box

  1. Click Developer > Design Mode.

  2. Right-click the combo box and pick Properties, click Alphabetic, and change any property setting that you want.

    Here’s how to set properties for the combo box in this picture:

    Example of a combo box.

    Property settings for ActiveX combo box.

    To set this property

    Do this

    Fill color

    Click BackColor > the down arrow > Pallet, and then pick a color.

    Color fill property for a combo box.

    Font type, style or size

    Click Font > the button and pick font type, size, or style.

    Setting for fonts in text box

    Font color

    Click ForeColor > the down arrow > Pallet, and then pick a color.

    Link a cell to display selected list value.

    Click LinkedCell

    Link Combo Box to a list

    Click the box next to ListFillRange and type the cell range for the list.

    Change the number of list items displayed

    Click the ListRows box and type the number of items to be displayed.

  3. Close the Property box and click Designer Mode.

  4. After you complete the formatting, you can right-click the column that has the list and pick Hide.

Need more help?

You can always ask an expert in the Excel Tech Community or get support in the Answers community.

See Also

Overview of forms, Form controls, and ActiveX controls on a worksheet

Add a check box or option button (Form controls)

Need more help?

Want more options?

Explore subscription benefits, browse training courses, learn how to secure your device, and more.

Communities help you ask and answer questions, give feedback, and hear from experts with rich knowledge.

Понравилась статья? Поделить с друзьями:
  • Listbox vba excel прокрутка
  • Listbox vba excel колонки
  • Listbox value in excel vba
  • Listbox rowsource vba excel примеры
  • List of forms of word play