|
こんばんは。。。
ユーザーフォームにコマンドボタンやコンボボックスを貼り付けるときに、
左側上の方に「プロジェクト」下の方に「プロパティー」が、ありますでしょ。
貼り付けたコンボボックスをクリックすると、コンボボックスにフォーカスがあたります。
その時、「プロパティー」を上から見ていくと、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
になります。
ヘルプで調べて、いろいろ試してください。
|
|