Excel VBA質問箱 IV

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

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


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

30708 / 76807

←次へ　｜　前へ→


	【51364】Re:コンボボックスのリストがイッパイ。

すず - 07/9/13(木) 11:32 -


	引用なし

	パスワード

▼ichinose さん：
はい、ワークシートに直接貼り付けております。
ただし、1枚のシートに何個もコンボボックスがあるのですが、
それは気にせず、

Private Sub Worksheet_Open()

　Dim i As Integer, k As Integer
　　For i = 1 To 12
　　For k = 1 To 5
　　　　コンボ.AddItem i & "月/" & k
　　Next
　　Next
　　　　コンボ.Clear
End Sub
としてのですが、動きませんでした。
というか、相変わらずイッパイありました。

何が異なっておるのでしょうか？

>▼すずさん：
>おはようございます。
>
>>コンボボックスに
>>Private Sub コンボ_Change()
>>　　Dim i As Integer, k As Integer
>>　　
>　　コンボ.clear
>'とすれば、取り合えず回避はできますが・・・。
>>　　For i = 1 To 12
>>　　For k = 1 To 5
>>　　　　コンボ.AddItem i & "月/" & k
>>　　Next
>>　　Next
>>
>>End Sub
>このイベントでコンボボックスのメンバー登録することが間違っていると思いますよ。
>
>このコンボボックスがシートに貼り付けたものなのか
>ユーザーフォームのそれなのかが不明です。
>それによって、コードを記述するモジュールやプロシジャーが違ってきます。
>
>シートに貼り付けたものならば、
>　ブックを開いた時に、（Thisworkbookのモジュールのworkbook_open()）
>
>ユーザーフォームならば、
>ユーザーフォームをロードした時に
>（ユーザーフォームのモジュールのUserForm_Initialize()）
>
>実行されるイベントプロシジャーにコンボボックスのメンバを登録するコードを
>記述します。

3 hits

▼

【51356】コンボボックスのリストがイッパイ。 すず 07/9/12(水) 23:45