Excel VBA質問箱 IV

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

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


49458 / 76732 ←次へ | 前へ→

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

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

0 hits

【32184】Auto_Open で ComboBox に値が入らない *suzu* 05/12/8(木) 15:32 質問
【32187】Re:Auto_Open で ComboBox に値が入らない inoue 05/12/8(木) 16:16 発言
【32189】Re:Auto_Open で ComboBox に値が入らない *suzu* 05/12/8(木) 16:22 お礼

49458 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free