| |
いつもお世話になっています。
下記 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:ＡＡＡ"
Worksheets(C_SheetName01).CmbOKIND.AddItem "20:ＢＢＢ"
Worksheets(C_SheetName01).CmbOKIND.ListIndex = 0
'正常終了
Exit Sub
Err_Exit:
'ｴﾗ-発生
Exit Sub
End Sub
'===============================================================
上記のようにしているのですが、
テキストボックスには値が設定され、
コンボボックスには AddItem しているはずの値が設定されません。
原因って、なんでしょうか？
また、回避策ってあるのでしょうか？
WorkSheet_Open ではＯＫだったのは確認しました。
特に特別な理由はないのですが、Auto_Open でできるなら
Auto_Open で実現したいです。
以上です、ご教示お願いします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 05/12/8(木) 16:16 -
