📅 Заполнение ComboBox названиями месяцев
Три способа заполнения поля со списком (ComboBox) названиями месяцев.

📌 Примеры

1️⃣ Загружаем в ComboBox список месяцев на русском языке, по умолчанию отображаем Январь:

Private Sub UserForm_Initialize()
    With ComboBox1
        .List = Array("Январь", "Февраль", "Март", "Апрель", "Май", "Июнь", _
            "Июль", "Август", "Сентябрь", "Октябрь", "Ноябрь", "Декабрь")
        .Value = "Январь"
    End With
End Sub

Если же необходимо загрузить в ComboBox названия месяцев на языке пользователя, используем 2 и 3 примеры.

2️⃣ Загружаем в ComboBox список месяцев на языке пользователя, по умолчанию отображаем первый месяц:

Private Sub UserForm_Initialize()
    With ComboBox1
        .List = Array(MonthName(1), MonthName(2), MonthName(3), MonthName(4), _
            MonthName(5), MonthName(6), MonthName(7), MonthName(8), _
            MonthName(9), MonthName(10), MonthName(11), MonthName(12))
        .Value = MonthName(1)
    End With
End Sub

3️⃣ То же самое, что и во втором примере, но с помощью цикла:

Private Sub UserForm_Initialize()
Dim i As Byte
    With ComboBox1
        For i = 1 To 12
            .AddItem MonthName(i)
        Next
            .Value = MonthName(1)
    End With
End Sub

#VBA #ExcelVBA #ComboBox #AddItem #List #MonthName