Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

49461 / 76735

←次へ　｜　前へ→


	【32184】Auto_Open で ComboBox に値が入らない

*suzu* - 05/12/8(木) 15:32 -


	引用なし

	パスワード

いつもお世話になっています。

下記 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 で実現したいです。

以上です、ご教示お願いします。

0 hits

▼

【32184】Auto_Open で ComboBox に値が入らない *suzu* 05/12/8(木) 15:32

≪