Как заполнить выпадающий список VBA Combo в пользовательской форме из данных Excel

Question

Я новичок в кодировании VBA. Может кто-нибудь сказать мне, как заполнить поле со списком в пользовательской форме значениями в таблице Excel.

Скажите имя листа как "Reg ALL - current", и мне нужно заполнить значение из ячейки AI (которая является столбцом даты). Также мне пришлось увеличить дату до 1 дня от AJ до ячейки BF.

Пример: если AI удерживает значение (19/06/2019), тогда AJ должен удерживать (20/06/2019) и т. Д. До BF.

Может кто-нибудь сказать мне, как обрабатывать этот код в VBA?

Answer 1

Есть разные способы.Если у вас есть один набор ячеек (который, как я полагаю, читается в вашем вопросе), который не изменится, вы можете просто установить свойство RowSource вашего комбинированного списка.

Например:

Применить к вашей ситуации:

• Ячейка AI1 удерживаетваша дата
• Ячейка AJ1 содержит формулу =AI1+1
• Перетащите формулу в ячейку BF1 (при условии, что вы всегда хотите добавить значение в AI1, формула будет продолжать работатьэто для вас)
• Используйте свойство RowSource и заполните =Sheet1!AI1:BF1

Вывод, VBA вообще не требуется!Если я понял ваш вопрос достаточно хорошо, то это.

Answer 2

Вот простое решение Просто добавьте кнопку и вставьте ее.

Dim i As Long

'Clear existing items
ComboBox1.Clear

'36 (AJ) column to 58 (BF) column
For i = 36 To 58

    ComboBox1.AddItem ActiveSheet.Cells(1, i).Value

Next i