Excel VBA質問箱 IV

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

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


6944 / 13644 ツリー ←次へ | 前へ→

【42178】コンボボックスへのリスト表示 ハジメ 06/9/3(日) 21:30 質問[未読]
【42179】Re:コンボボックスへのリスト表示 かみちゃん 06/9/3(日) 21:40 発言[未読]
【42180】Re:コンボボックスへのリスト表示 ハジメ 06/9/3(日) 21:46 発言[未読]
【42187】Re:コンボボックスへのリスト表示 かみちゃん 06/9/3(日) 22:21 発言[未読]
【42189】Re:コンボボックスへのリスト表示 ハジメ 06/9/3(日) 22:27 発言[未読]
【42190】Re:コンボボックスへのリスト表示 かみちゃん 06/9/3(日) 22:33 発言[未読]
【42191】Re:コンボボックスへのリスト表示 ハジメ 06/9/3(日) 22:56 お礼[未読]

【42178】コンボボックスへのリスト表示
質問  ハジメ  - 06/9/3(日) 21:30 -

引用なし
パスワード
   本とWebを参考にしながら日々VBと格闘している初心者です。
ご教示下さい。
ユーザーフォームに配置したコンボボックスにリストを表示させ選択入力させたいと考え下記のような記述をしましたがうまく動作しません。

Private Sub UserForm_Initialize()
  With ComboBox30
    .AddItem "1月"
    .AddItem "2月"
    .AddItem "3月"
    .AddItem "4月"
    .AddItem "5月"
    .AddItem "6月"
    .AddItem "7月"
    .AddItem "8月"
    .AddItem "9月"
    .AddItem "10月"
    .AddItem "11月"
    .AddItem "12月"
  End With
End Sub

何か間違っている所があるでしょうか?
宜しくお願い致します。

【42179】Re:コンボボックスへのリスト表示
発言  かみちゃん  - 06/9/3(日) 21:40 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>ユーザーフォームに配置したコンボボックスにリストを表示させ選択入力させた
>いと考え下記のような記述をしましたがうまく動作しません。

どのようにうまくいかないのでしょうか?
こちらで検証(Excel2002 SP3)してみたら、うまく動きましたよ。

【42180】Re:コンボボックスへのリスト表示
発言  ハジメ  - 06/9/3(日) 21:46 -

引用なし
パスワード
   ▼かみちゃん さん:
こんにちは。かみちゃん。早速のレスありがとうございます。

私の環境もExcel2002ですが、ワークシートに戻ってユーザーフォームを呼び出し、該当のコンボボックスのタブをクリックしてもリストが表示されません....

【42187】Re:コンボボックスへのリスト表示
発言  かみちゃん  - 06/9/3(日) 22:21 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>ワークシートに戻ってユーザーフォームを呼び出し、該当のコンボボックスのタ
>ブをクリックしてもリストが表示されません....

コンボボックスのタブとは何のことを指しているのでしょうか?
▼をクリックして、リストに表示されませんか?
そのコンボボックスは、ComboBox30という名前ですよね?

【42189】Re:コンボボックスへのリスト表示
発言  ハジメ  - 06/9/3(日) 22:27 -

引用なし
パスワード
   かみちゃんさん
  ↓
>▼をクリックして、リストに表示されませんか?
>そのコンボボックスは、ComboBox30という名前ですよね?
  ↓
その通りです。コンボボックスの▼をクリックしてもリストが表示されません。コンボボックスの名称はComboBox30です。

【42190】Re:コンボボックスへのリスト表示
発言  かみちゃん E-MAIL  - 06/9/3(日) 22:33 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>その通りです。コンボボックスの▼をクリックしてもリストが表示されません。
>コンボボックスの名称はComboBox30です。

新規ブックで試してもだめですか?
私のところではできているので、これでだめなら、実際のブックを見ないとわかりません。

【42191】Re:コンボボックスへのリスト表示
お礼  ハジメ  - 06/9/3(日) 22:56 -

引用なし
パスワード
   かみちゃんさん,ありがとうございます。
解決しました。
実は,ユーザーフォームを10個以上作成してまして,そのうち該当のコンボボックスがあるフォームをコピーでもう1つ作成していましたので,オブジェクト名が重複していてうまく動作できなかった模様です。
すみません,初歩的なミスでした。

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