Vba excel заполнение комбобокса - Word и Excel - помощь в работе с программами

Заполнение ComboBox данными с помощью кода VBA Excel. Добавление значений в поле со списком методом AddItem, из массива и из диапазона рабочего листа. Примеры.

Заполнение ComboBox методом AddItem

Создайте пользовательскую форму UserForm1 и разместите на ней поле со списком ComboBox1. Используйте метод AddItem для заполнения элемента управления значениями:

Sub Test1()

With UserForm1.ComboBox1

.AddItem «Кружка»

.AddItem «Стакан»

.AddItem «Бокал»

.AddItem «Пиала»

.AddItem «Фужер»

End With

UserForm1.Show

End Sub

Скопируйте код и запустите его выполнение, на открывшейся форме раскройте поле со списком, в результате увидите, что элемент управления ComboBox1 заполнен соответствующими значениями:

Для заполнения элемента управления ComboBox значениями из массива будем использовать свойство поля со списком List и функцию Array:

Sub Test2()

With UserForm1

.ComboBox1.List = Array(«Кружка», «Стакан», «Бокал», «Пиала», «Фужер»)

.Show

End With

End Sub

Результат выполнения кода будет таким же, как и на предыдущем изображении.

Таким же образом можно использовать не только функцию Array, но и переменную массива, предварительно объявленную и заполненную значениями:

Sub Test3()

Dim a(4) As String

a(0) = «Кружка»

a(1) = «Стакан»

a(2) = «Бокал»

a(3) = «Пиала»

a(4) = «Фужер»

With UserForm1

.ComboBox1.List = a

.Show

End With

End Sub

Заполнение ComboBox значениями из ячеек

Для заполнения поля со списком значениями из диапазона ячеек рабочего листа будем использовать свойство комбинированного списка RowSource, предварительно заполнив диапазон «A1:A5» активного листа уже известными значениями:

Sub Test4()

With UserForm1

.ComboBox1.RowSource = «A1:A5»

.Show

End With

End Sub

Чтобы присвоить элементу управления ComboBox значения из диапазона ячеек любого рабочего листа, добавьте ссылку на него перед наименованием диапазона, например, замените «A1:A5» на «Лист1!A1:A5», и поле со списком будет заполнено значениями ячеек «A1:A5», расположенных на листе с именем «Лист1». Имя листа берется из наименования ярлыка.

Очистка ComboBox от значений

Очистить ComboBox можно как от всех значений сразу, так и удалить один или несколько значений (по одному) из списка.

Очистка ComboBox от всего списка значений:

Очистка ComboBox от одного значения:

ComboBox1.RemoveItem Index

где Index — порядковый номер элемента в списке ComboBox, нумерация начинается с нуля.

Автоматическое заполнение ComboBox

Предполагается, что, при открытии пользовательской формы или рабочего листа с ComboBox, поле со списком должно быть уже заполнено значениями. Как это сделать?

Заполнение ComboBox на форме

Автоматическое заполнение элемента управления ComboBox на пользовательской форме осуществляется с помощью процедуры UserForm_Initialize, размещенной в модуле этой формы:

Private Sub UserForm_Initialize()

ComboBox1.List = Лист8.[A1:A15].Value

End Sub

Или по одному:

Private Sub UserForm_Initialize()

With ComboBox1

.Clear

.AddItem «Апельсин»

.AddItem «Банан»

.AddItem «Виноград»

.AddItem «Груша»

.AddItem «Хурма»

End With

End Sub

Заполнение ComboBox на листе

Автоматическое заполнение элемента управления ComboBox из коллекции «Элементы ActiveX» на рабочем листе осуществляется с помощью процедуры Workbook_Open, размещенной в модуле «ЭтаКнига»:

Private Sub Workbook_Open()

Лист8.ComboBox1.List = Лист8.[A1:A15].Value

End Sub

Или по одному:

Private Sub Workbook_Open()

With Лист8.ComboBox1

.Clear

.AddItem «Апельсин»

.AddItem «Банан»

.AddItem «Виноград»

.AddItem «Груша»

.AddItem «Хурма»

End With

End Sub

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

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

Вы можете скачать файл Excel с представленными выше примерами. Файл упакован в ZIP-архив. Для проверки работоспособности кода, непосредственно в редакторе VBA помещайте курсор внутри тела каждой процедуры и нажимайте кнопку «Run Sub».

ComboBox — значение по умолчанию

Добавление значения по умолчанию вручную

Значение по умолчанию для текстового поля ComboBox можно задать вручную в окне свойств (Properties) выбранного элемента управления:

Выберите ComboBox на форме в редакторе VBA и в окне Properties в поле Value впишите нужное значение.

Программное добавление значения по умолчанию

Добавление произвольного значения по умолчанию в текстовое поле ComboBox при инициализации пользовательской формы:

Private Sub UserForm_Initialize()

With ComboBox1

.AddItem «Камень»

.AddItem «Ножницы»

.AddItem «Бумага»

‘Добавление произвольного значения по умолчанию

.Value = «Выберите значение»

End With

End Sub

Добавление значения по умолчанию в текстовое поле ComboBox из имеющегося списка:

Private Sub UserForm_Initialize()

With ComboBox1

.AddItem «Камень»

.AddItem «Ножницы»

.AddItem «Бумага»

‘Добавление значения по умолчанию из списка

.ListIndex = 0

End With

End Sub

Нумерация списка ComboBox начинается с нуля, поэтому приведенный выше код отобразит значение по умолчанию — «Камень».

Источник

In this Article

Create a ComboBox in Excel Worksheet
Populate a ComboBox in VBA code
Populate a ComboBox from a Cells Range
Get a Selected Item of a ComboBox in VBA
Clear a ComboBox
Use a ComboBox in a Userform

This tutorial will demonstrate how to work with ComboBoxes in VBA.

ComboBoxes allow users to select an option from a drop-down menu list. ComboBoxes can be created in VBA UserForms or with an Excel worksheet. In this tutorial, you will learn how to create and manipulate ComboBoxes in VBA and in Excel worksheets.

If you want to learn how to create a Listbox, click here: VBA Listbox

If you want to learn how to create a Checkbox, click here: VBA Checkbox

Create a ComboBox in Excel Worksheet

In order to insert a ComboBox in the Worksheet, you need to go to the Developer tab, click Insert and under ActiveX Controls choose Combo Box:

Image 1. Insert a ComboBox in the Worksheet

When you select the ComboBox which you inserted, you can click on Properties under the Developer tab:

Image 2. Change ComboBox Properties

Here you can set different properties of the ComboBox. To start, we changed the attribute Name to cmbComboBox. Now, we can use the ComboBox with this name in VBA code.

Populate a ComboBox in VBA code

First, we need to populate the ComboBox with values. In most cases, a ComboBox needs to be populated when the Workbook is opened. Because of this, we need to put a code for populating the ComboBox in object Workbook, procedure Open. This procedure is executed every time a user opens the Workbook. Here is the code:

With Sheet1.cmbComboBox

    .AddItem "John"
    .AddItem "Michael"
    .AddItem "Jennifer"
    .AddItem "Lilly"
    .AddItem "Robert"

End With

When you click on the drop-down menu, you will get 5 names to choose from (John, Michael, Jennifer, Lilly and Robert):

Image 3. Populate the ComboBox in VBA

Populate a ComboBox from a Cells Range

Another possible way to populate a ComboBox is to let a user do it. A ComboBox can be linked to the cells range. In this approach, every time a user enters a new value in the cells range, the ComboBox will update with that value.

If you want to enable this, you have to go to the Properties of the ComboBox and set the attribute ListFillRange to the cells range (in our case E2:E5):

Image 4. Populate the ComboBox from the cells range

We linked our ComboBox with the range E2:E5, where we put names we want (Nathan, Harry, George, Roberta). As a result, the ComboBox is now populated with these names:

Image 5. Populated ComboBox from the cells range

Get a Selected Item of a ComboBox in VBA

The purpose of a ComboBox is to get a users choice. In order to retrieve a users choice, you need to use this code:

Dim strSelectedItem As Variant

strSelectedItem = Sheet1.cmbComboBox.Value

The users selection is in the attribute Value of Sheet1.cmbComboBox object. This value is assigned to the variable strSelectedItem:

Image 6. Get a selected value from the ComboBox in VBA

We selected Julia in the ComboBox and executed the procedure. As you can see in Image 5, the value of the strSelectedItem is Julia, which is the value we selected. Now you can process this variable further in the code.

Clear a ComboBox

If you want to clear a ComboBox in VBA, you need to use Clear method of Sheet1.lstComboBox object. It will delete all the items from the ComboBox. Here is the code:

Sheet1.cmbComboBox.Clear

Notice that the Clear method does not delete the attribute ListFillRange, so it must be removed from the properties of the ComboBox beforehand.

When we execute the code, we get the empty ComboBox:

Image 7. Clear the ComboBox

Use a ComboBox in a Userform

As we mentioned, Combobox is most often used in Userforms. To explain how you can do it, we will first insert an Userform. In VBA editor, right-click on Module name, click on Insert and choose UserForm:

Image 8. Insert a Userform

To display controls for inserting, you need to enable the Toolbox. To do this, click on the Toolbox icon in the toolbar. After that, you will get the windows with all the controls available. You can click on ComboBox to create it in the Userform.

Image 9. Insert a ComboBox in the Userform

We will name the ComboBox cmbComboBox. In order to populate it with values, we need to put the following code into the method Initialize of the object UserForm:

Private Sub UserForm_Initialize()

    With UserForm1.cmbComboBox

        .AddItem "John"
        .AddItem "Michael"
        .AddItem "Jennifer"
        .AddItem "Lilly"
        .AddItem "Robert"

    End With

End Sub

This code triggers every time a user runs the Userform and populates the Combobox with these 5 names:

Image 10. The ComboBox with values in the Userform

If you want to get selected value from the ComboBox, you need to use the same logic for the Combobox in a Worksheet, which is explained earlier in the article.

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro — A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!

Learn More!

Источник

VBA Excel. ComboBox (заполнение поля со списком)

Автор Время не ждёт Опубликовано 14.03.2018 Добавить комментарий к записи VBA Excel. ComboBox (заполнение поля со списком)

Способы заполнения ComboBox данными с помощью кода VBA Excel. Добавление значений в поле со списком методом AddItem, из массива и из диапазона рабочего листа.

Заполнение ComboBox методом AddItem
Заполнение ComboBox значениями из массива
Заполнение ComboBox значениями из ячеек

Заполнение ComboBox методом AddItem

Sub Test1()

With UserForm1.ComboBox1

.AddItem «Кружка»

.AddItem «Стакан»

.AddItem «Бокал»

.AddItem «Пиала»

.AddItem «Фужер»

End With

UserForm1.Show

End Sub

Заполнение ComboBox значениями из массива

Sub Test2()

With UserForm1

.ComboBox1.List = Array(«Кружка», «Стакан», «Бокал», «Пиала», «Фужер»)

.Show

End With

End Sub

Результат выполнения кода будет таким же, как и на предыдущем изображении.

Sub Test3()

Dim a(4) As String

a(0) = «Кружка»

a(1) = «Стакан»

a(2) = «Бокал»

a(3) = «Пиала»

a(4) = «Фужер»

With UserForm1

.ComboBox1.List = a

.Show

End With

End Sub

Заполнение ComboBox значениями из ячеек

Sub Test4()

With UserForm1

.ComboBox1.RowSource = «A1:A5»

.Show

End With

End Sub

Эти же способы используются и для заполнения значениями элемента управления ListBox.

Иногда возникает необходимость заполнения элементов управления ListBox и ComboBox уникальными значениями из диапазона ячеек с повторяющимся содержимым. Смотрите, как отсортировать уникальные элементы из списка. Опубликовано 14.03.2018 Автор Время не ждёт Рубрики VBA Excel

Источник

VBA For Excel's Form Control Combo Boxes

You’re VBA Combo Box Cheat Sheet

In this post I am going to share everything I know about using VBA with an Excel Form Control Combo Box (aka drop down). Most of the code is very self-explanatory so I will not write much of a description. However, some of the syntax can be a little tricky so pay close attention to how the code is structured. Please feel free to post comments if I missed an area or you have any questions! Enjoy

Creating & Sizing/Positioning A Combo Box

Sub ComboBox_Create()
‘PURPOSE: Create a form control combo box and position/size it

Dim Cell As Range
Dim sht As Worksheet

Set sht = ThisWorkbook.Worksheets(«Sheet1»)

‘Create
sht.DropDowns.Add(0, 0, 100, 15).Name = «Combo Box 1»

‘Create & Dimension to a Specific Cell
Set Cell = Range(«B5»)

    With Cell
    sht.DropDowns.Add(.Left, .Top, .Width, .Height).Name = «Combo Box 2»
  End With

‘Create & Dimension to a Specific Cell Range
Set Cell = Range(«B8:D8»)

    With Cell
    sht.DropDowns.Add(.Left, .Top, .Width, .Height).Name = «Combo Box 3»
  End With

End Sub

Deleting A Combo Box

Sub ComboBox_Delete()
‘PURPOSE: Delete a form control combo box

Dim sht As Worksheet

Set sht = ThisWorkbook.Worksheets(«Sheet1»)

sht.Shapes(«Combo Box 1»).Delete

End Sub

Adding Values To A Combo Box

Sub ComboBox_InputRange()
‘PURPOSE: Add values to your drop down list

Dim Cell As Range
Dim sht As Worksheet
Dim myArray As Variant
Dim myDropDown As Shape

Set sht = ThisWorkbook.Worksheets(«Sheet1»)
Set myDropDown = sht.Shapes(«Combo Box 1»)
myArray = Array(«Q1», «Q2», «Q3», «Q4»)

‘Based on data in a range (not linked)
MyDropDown.ControlFormat.List = sht.Range(«A1:A4»).Value

‘Linked to data in a range (automatically changes based on current cell values)
myDropDown.ControlFormat.ListFillRange = «A1:A4»

  ‘Based on Array values (written out)
  MyDropDown.ControlFormat.List = _
   Array(«Q1», «Q2», «Q3», «Q4»)

‘Based on Array values (variable)
myDropDown.OLEFormat.Object.List = myArray

  ‘Add one by one
  With myDropDown.ControlFormat
    .AddItem «Q1»
    .AddItem «Q2»
    .AddItem «Q3»
    .AddItem «Q4»
  End With

End Sub

Overriding Values In The Drop Down List

Sub ComboBox_ReplaceValue()
‘PURPOSE: Replace value of the third item in the drop down list

Worksheets(«Sheet1»).Shapes(«Combo Box 1»).ControlFormat.List(3) = «FY»

End Sub

Removing Values From The Drop Down List

Sub ComboBox_RemoveValues()
‘PURPOSE: Remove a value(s) from the drop down list

Dim Cell As Range
Dim sht As Worksheet

Set sht = ThisWorkbook.Worksheets(«Sheet1»)

‘Remove A Single Item
sht.Shapes(«Combo Box 1»).ControlFormat.RemoveItem 2

‘Remove All Items
sht.Shapes(«Combo Box 1»).ControlFormat.RemoveAllItems

End Sub

Determine Current Selected Value From The Drop Down List

Sub ComboBox_GetSelection()
‘PURPOSE: Determine current selected value in ComboBox

Dim sht As Worksheet
Dim myDropDown As Shape

Set sht = ThisWorkbook.Worksheets(«Sheet1»)
Set myDropDown = sht.Shapes(«Combo Box 1»)

With myDropDown.ControlFormat
MsgBox «Item Number: » & .Value & vbNewLine & «Item Name: » & .List(.Value)
End With

End Sub

Select A Value From The Drop Down List

Sub ComboBox_SelectValue()
‘PURPOSE: Automatically select a value from the drop down list

Dim Cell As Range
Dim sht As Worksheet
Dim Found As Boolean
Dim SetTo As String
Dim x As Long

Set sht = ThisWorkbook.Worksheets(«Sheet1»)

‘Select First List Item
sht.Shapes(«Combo Box 1»).ControlFormat.ListIndex = 3

‘Select Item based on list Name/Value
SetTo = «Q2»

    With sht.Shapes(«Combo Box 1»).ControlFormat
    For x = 1 To .ListCount
      If .List(x) = SetTo Then
        Found = True
        Exit For
    Next x

If Found = True Then .ListIndex = x
End With

End Sub

Link User’s Selection To A Cell (Outputs Numerical List Position)

Sub ComboBox_CellLink()
‘PURPOSE: Output the selection’s list position to a specific cell

Dim sht As Worksheet

Set sht = ThisWorkbook.Worksheets(«Sheet1»)

sht.Shapes(«Combo Box 1»).ControlFormat.LinkedCell = «$A$1»

End Sub

Adjust Drop Down Lines For A Combo Box

Sub ComboBox_DropDownLines()
‘PURPOSE: Set how many drop down lines are visible per scroll

Dim sht As Worksheet

Set sht = ThisWorkbook.Worksheets(«Sheet1»)

sht.Shapes(«Combo Box 1»).ControlFormat.DropDownLines = 12

End Sub

Toggle On/Off 3D Shading

Sub ComboBox_3DShading()
‘PURPOSE: Turn 3D shading on or off

Dim sht As Worksheet

Set sht = ThisWorkbook.Worksheets(«Sheet1»)

‘Turn 3D Shading On
sht.Shapes(«Combo Box 1»).OLEFormat.Object.Display3DShading = True

‘Turn 3D Shading Off
sht.Shapes(«Combo Box 1»).OLEFormat.Object.Display3DShading = False

End Sub

Assigning A Macro To A Combo Box

Sub ComboBox_AssignMacro()
‘PURPOSE: Assign a macro to be triggered when drop down is changed

Dim sht As Worksheet

Set sht = ThisWorkbook.Worksheets(«Sheet1»)

sht.Shapes(«Combo Box 1»).OnAction = «Macro1»

End Sub

Any Others?

If I’ve missed any VBA functionalities please leave a comment in the comments section below so I can continue to grow this list of combo box code! I look forward to hearing your thoughts.

About The Author

Hey there! I’m Chris and I run TheSpreadsheetGuru website in my spare time. By day, I’m actually a finance professional who relies on Microsoft Excel quite heavily in the corporate world. I love taking the things I learn in the “real world” and sharing them with everyone here on this site so that you too can become a spreadsheet guru at your company.

Through my years in the corporate world, I’ve been able to pick up on opportunities to make working with Excel better and have built a variety of Excel add-ins, from inserting tickmark symbols to automating copy/pasting from Excel to PowerPoint. If you’d like to keep up to date with the latest Excel news and directly get emailed the most meaningful Excel tips I’ve learned over the years, you can sign up for my free newsletters. I hope I was able to provide you with some value today and I hope to see you back here soon!

— Chris
Founder, TheSpreadsheetGuru.com

Источник

comment.imho

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

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

05.02.2022 18:42:58

Здравствуйте. Есть такой код.

Код
Private Sub UserForm_Initialize() ComboBox1.RowSource = "Справочник! A2:A1000" With UserForm1.ComboBox2 .AddItem "1" .AddItem "2" .AddItem "3" .AddItem "4" End With End Sub

Как для ComboBox1 задать диапазон с А2 до последней занятой строки?

Спасибо.

vikttur

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

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

05.02.2022 18:50:36

Код
With Woksheets("Справочник") LastRow = .UsedRange.Rows.Count + .UsedRange.Row - 1 ComboBox1.List = .Range("A2:A" & LastRow).Value End With

Если в столбце А значений меньше, чем в UsedRange (ниже есть строки со значениями в других столбцах):

Код
LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row

Но в этом случае не должно быть скрытых значений внизу диапазона.

Юрий М

Модератор

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

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

05.02.2022 18:52:58

Код
Dim LastRow As Long, Arr() LastRow = Cells(Rows.Count, 1).End(xlUp).Row Arr = Range(Cells(2, 1), Cells(LastRow, 1)).Value Me.combobox1.List = Arr

	vikttur, Получаем такую ошибку

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле	А что такое Woksxheets? Куда подевалась буква r? Это для начала.

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	Это моя коленка съела ) ~~Woksheets~~ Worksheets И переменную LastRow объявить нужно. И .Ranges — нет такого…

comment.imho

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

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

05.02.2022 19:56:43

Работает

Код

Private Sub UserForm_Initialize()
With Worksheets("Справочник")
     LastRow = .UsedRange.Rows.Count + .UsedRange.Row
     ComboBox4.List = .Range("A2:A" & LastRow).Value
End With
With Worksheets("Справочник")
    LastRow = .UsedRange.Rows.Count + .UsedRange.Row
    ComboBox5.List = .Range("B2:B" & LastRow).Value
End With
With UserForm1.ComboBox1
  .AddItem "1"
  .AddItem "2"
  .AddItem "3"
  .AddItem "4"
End With
End Sub

Изменено: comment.imho — 05.02.2022 19:58:36

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле

Юрий М

Модератор

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

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

05.02.2022 20:00:05

Цитата
vikttur написал: моя коленка съела )

за коленку ответишь! )

comment.imho

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

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

#10

05.02.2022 20:04:19

Юрий М, Спасибо. Вроде начинаю понимать.

Код

Private Sub UserForm_Initialize()
Dim LatRow As Long, Arr()
With Worksheets("Справочник")
     LatRow = .Cells(Rows.Count, 1).End(xlUp).Row
     Arr = Range(.Cells(2, 1), .Cells(LatRow, 1)).Value
     ComboBox4.List = Arr
End With
With Worksheets("Справочник")
    LatRow = .Cells(Rows.Count, 2).End(xlUp).Row
    Arr = Range(.Cells(2, 2), .Cells(LatRow, 2)).Value
    ComboBox5.List = .Range("B2:B" & LatRow).Value
End With
With UserForm1.ComboBox1
  .AddItem "1"
  .AddItem "2"
  .AddItem "3"
  .AddItem "4"
End With
End Sub

Изменено: comment.imho — 05.02.2022 20:07:45

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле	Для ComboBox5 определили массив (arr), но не используете его. Почему?

comment.imho

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

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

#12

05.02.2022 20:39:15

Код

Private Sub UserForm_Initialize()
Dim LatRow As Long, Arr()
With Worksheets("Справочник")
     LatRow = .Cells(Rows.Count, 1).End(xlUp).Row
     Arr = Range(.Cells(2, 1), .Cells(LatRow, 1)).Value
     ComboBox4.List = Arr
End With
With Worksheets("Справочник")
    LatRow = .Cells(Rows.Count, 2).End(xlUp).Row
    Arr = Range(.Cells(2, 2), .Cells(LatRow, 2)).Value
    ComboBox5.List = Arr
End With
With UserForm1.ComboBox1
  .AddItem "1"
  .AddItem "2"
  .AddItem "3"
  .AddItem "4"
End With
End Sub

vikttur

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

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

#13

05.02.2022 21:05:46

В данном случае использование массива Arr лишнее. А вот Array — в самый раз )

Код

Private Sub UserForm_Initialize()
    Dim LastRow As Long
    
    With Worksheets("Справочник")
        LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
        ComboBox4.List = .Range(.Cells(2, 1), .Cells(LastRow, 1)).Value

        LastRow = .Cells(Rows.Count, 2).End(xlUp).Row
        ComboBox5.List = .Range(.Cells(2, 2), .Cells(LatsRow, 2)).Value
    End With
    
    ComboBox1.List = Array(1, 2, 3, 4)
End Sub

Изменено: vikttur — 05.02.2022 21:07:19

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле	Так можно и последнюю строку не определять в переменную ))

vikttur

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

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

Это перебор )
Если массив где-то еще использовать — то да, нужен. Например, один раз заполнили «глобальный» массив, потом из него подставляем данные в ListBox при фильтрации по разным параметрам или при поиске по первым буквам. А здесь заполнить массив только для того, чтобы разово передать значения диапазона в список — какой смысл?

Ігор Гончаренко

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

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

#16

05.02.2022 22:16:29

я бы это написал так:

Код

Private Sub UserForm_Initialize()
  With Worksheets("Справочник")
    ComboBox4.List = .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
    ComboBox5.List = .Range(.Cells(2, 2), .Cells(Rows.Count, 2).End(xlUp))
  End With
  ComboBox1.List = Array(1, 2, 3, 4)
End Sub

Программисты — это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

Источник