Самообучающийся и статический combobox - VBA

Формулировка задачи:

Доброго времени суток. Не могли бы вы дать информацию, литературу, готовый код vba для кнопки, для самообучающегося и статического combobox (комбинированный список в VBA). Заранее спасибо. Сам не могу найти ничего подходящего.

Решение задачи: «Самообучающийся и статический combobox»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub cmd1_Click()
 '    проверка правильности введенных данных
If Me.ComboBox1.Value = "" Or ComboBox2.Value = "" Then: MsgBox "Все обязательные поля должны быть заполнены.", 48, "Сообщение": Exit Sub
'перенос данных с формы на лист
   With Worksheets("start")
       lastRow = Cells(Rows.Count, 1).End(xlUp).Row
       Cells(lastRow + 1, 1) = Me.ComboBox1
       Cells(lastRow + 1, 2) = Me.ComboBox2
    Range(Cells(5, 1), Cells(lastRow + 1, 2)).Borders.LineStyle = xlContinuous 'Сделали обрамление ячеек
 End With
 'очистка элементов управления для следующих записей
 Me.ComboBox1.Value = ""
 Me.ComboBox2.Value = ""
End Sub
 
 
Private Sub UserForm_Initialize()
  With Sheets("справка")
  Dim lastRow As Long
        lastRow = .Cells(Rows.Count, 1).End(xlUp).Row
        Me.ComboBox1.List = .Range("a2:a" & lastRow).Value
         For i = 1 To 12: Me.ComboBox2.AddItem Format(DateSerial(1, i, 1), "MMMM"): Next
  End With
 
End Sub