Excel VBA質問箱 IV

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

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


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

53600 / 76732

←次へ　｜　前へ→


	【27944】Re:コンボボックスの設定

ponpon - 05/8/25(木) 1:50 -


	引用なし

	パスワード

こんばんは。。。

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

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

2 hits

▼

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