Excel VBA質問箱 IV

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

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


9337 / 13646 ツリー ←次へ | 前へ→

【27924】コンボボックスの設定 けん 05/8/24(水) 15:12 質問[未読]
【27927】Re:コンボボックスの設定 Jaka 05/8/24(水) 16:05 発言[未読]
【27931】Re:コンボボックスの設定 けん 05/8/24(水) 17:02 質問[未読]
【27944】Re:コンボボックスの設定 ponpon 05/8/25(木) 1:50 発言[未読]
【27945】Re:コンボボックスの設定 助けてください! 05/8/25(木) 4:19 お礼[未読]

【27924】コンボボックスの設定
質問  けん  - 05/8/24(水) 15:12 -

引用なし
パスワード
   sheet3のA3:A15のセルにあるリストをUserForm1のコンボボックスのリストに追加したいのですが、
どのように設定したらよいか教えて下さい

【27927】Re:コンボボックスの設定
発言  Jaka  - 05/8/24(水) 16:05 -

引用なし
パスワード
   こんにちは。
追加ですか?
追加前のコードはどうなっているんですか?
AddItemで初期設定しているなら、そのまま応用できますよ。

それともこれ?
ComboBox1.List = Sheets("Sheet3").Range("A3:A15").Value

【27931】Re:コンボボックスの設定
質問  けん  - 05/8/24(水) 17:02 -

引用なし
パスワード
    申訳ございません!

追加どころか、空白のままで、どうやったら良いのかすら分かりません・・・
(一応参考書等を読み漁っているのですが)

>ComboBox1.List = Sheets("Sheet3").Range("A3:A15").Value

↑はそのまま入力で良いのでしょうか?
sub〜 とかは 必要ないのでしょうか?

ホントにド素人でスミマセン・・・

▼Jaka さん:
>こんにちは。
>追加ですか?
>追加前のコードはどうなっているんですか?
>AddItemで初期設定しているなら、そのまま応用できますよ。
>
>それともこれ?
>ComboBox1.List = Sheets("Sheet3").Range("A3:A15").Value

【27944】Re:コンボボックスの設定
発言  ponpon  - 05/8/25(木) 1:50 -

引用なし
パスワード
   こんばんは。。。

ユーザーフォームにコマンドボタンやコンボボックスを貼り付けるときに、
左側上の方に「プロジェクト」下の方に「プロパティー」が、ありますでしょ。
貼り付けたコンボボックスをクリックすると、コンボボックスにフォーカスがあたります。
 その時、「プロパティー」を上から見ていくと、RowSourceというのがあって、右側が、
空欄になってますよね? その空欄に「sheet3!A3:A15」と書くと、シート3のA3:A15が、
コンボボックスのリストになります。

マクロで書くと、以下のようになります。フォームモジュールにコピペしてください。

これは、あまり使わないと思います。
Private Sub UserForm_Initialize()
 Me.ComboBox1.RowSource = Sheets("Sheet3").Range("A3:A15").Address
End Sub

Jaka さんが、書いていたのは、下の事だと思います。

Listメソッドを使って
Private Sub UserForm_Initialize()
 Me.ComboBox1.List = Sheets("Sheet3").Range("A3:A15").Value
End Sub

AddItemメソッドを使うと、

Private Sub UserForm_Initialize()
 For i = 3 To 15
   Me.ComboBox1.AddItem Worksheets("sheet3").Range("A" & i).Value
 Next i
End Sub

Cellsを使えば、
 上記の
 Me.ComboBox1.AddItem Worksheets("sheet3").Range("A" & i).Value
 が、
 Me.ComboBox1.AddItem Worksheets("sheet3").Cells(i, 1).Value
 や
 Me.ComboBox1.AddItem Worksheets("sheet3").Cells(i, "A").Value
 になります。

 ヘルプで調べて、いろいろ試してください。

【27945】Re:コンボボックスの設定
お礼  助けてください!  - 05/8/25(木) 4:19 -

引用なし
パスワード
   解決しました!!!

ありがとうございました。


▼ponpon さん:
>こんばんは。。。
>
>ユーザーフォームにコマンドボタンやコンボボックスを貼り付けるときに、
>左側上の方に「プロジェクト」下の方に「プロパティー」が、ありますでしょ。
>貼り付けたコンボボックスをクリックすると、コンボボックスにフォーカスがあたります。
> その時、「プロパティー」を上から見ていくと、RowSourceというのがあって、右側が、
>空欄になってますよね? その空欄に「sheet3!A3:A15」と書くと、シート3のA3:A15が、
>コンボボックスのリストになります。
>
>マクロで書くと、以下のようになります。フォームモジュールにコピペしてください。
>
>これは、あまり使わないと思います。
>Private Sub UserForm_Initialize()
> Me.ComboBox1.RowSource = Sheets("Sheet3").Range("A3:A15").Address
>End Sub
>
>Jaka さんが、書いていたのは、下の事だと思います。
>
>Listメソッドを使って
>Private Sub UserForm_Initialize()
> Me.ComboBox1.List = Sheets("Sheet3").Range("A3:A15").Value
>End Sub
>
>AddItemメソッドを使うと、
>
>Private Sub UserForm_Initialize()
> For i = 3 To 15
>   Me.ComboBox1.AddItem Worksheets("sheet3").Range("A" & i).Value
> Next i
>End Sub
>
>Cellsを使えば、
> 上記の
> Me.ComboBox1.AddItem Worksheets("sheet3").Range("A" & i).Value
> が、
> Me.ComboBox1.AddItem Worksheets("sheet3").Cells(i, 1).Value
> や
> Me.ComboBox1.AddItem Worksheets("sheet3").Cells(i, "A").Value
> になります。
>
> ヘルプで調べて、いろいろ試してください。

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