ExcelVBA フォームのコンボボックス初期化手順

ExcelVBA

_Initialize() で初期化する

Private Sub UserForm_Initialize()
    
    'コンボボックスに項目を追加
    ComboBox1.AddItem "2009年1月"
    ComboBox1.AddItem "2009年2月"
    ComboBox1.AddItem "2009年3月"
    ComboBox1.AddItem "2009年4月"
    ComboBox1.AddItem "2009年5月"
    ComboBox1.AddItem "2009年6月"
    ComboBox1.AddItem "2009年7月"
    ComboBox1.AddItem "2009年8月"
    ComboBox1.AddItem "2009年9月"
    ComboBox1.AddItem "2009年10月"
    ComboBox1.AddItem "2009年11月"
    ComboBox1.AddItem "2009年12月"
    
    '初期値を指定
    ComboBox1.ListIndex = 5
    
End Sub

ネタ元