|
いつもお世話になっています。
下記 Auto_Open をご覧下さい。
'===============================================================
Sub Auto_Open()
'エラ-処理
On Error GoTo Err_Exit
' 実施日
Worksheets(C_SheetName01).TxtYear.Value = Year(Date)
Worksheets(C_SheetName01).TxtMonth.Value = Month(Date)
Worksheets(C_SheetName01).TxtDay.Value = Day(Date)
' 種別設定
Worksheets(C_SheetName01).CmbOKIND.Clear
Worksheets(C_SheetName01).CmbOKIND.AddItem "10:AAA"
Worksheets(C_SheetName01).CmbOKIND.AddItem "20:BBB"
Worksheets(C_SheetName01).CmbOKIND.ListIndex = 0
'正常終了
Exit Sub
Err_Exit:
'エラ-発生
Exit Sub
End Sub
'===============================================================
上記のようにしているのですが、
テキストボックスには値が設定され、
コンボボックスには AddItem しているはずの値が設定されません。
原因って、なんでしょうか?
また、回避策ってあるのでしょうか?
WorkSheet_Open ではOKだったのは確認しました。
特に特別な理由はないのですが、Auto_Open でできるなら
Auto_Open で実現したいです。
以上です、ご教示お願いします。
|
|