|
解決しました!!!
ありがとうございました。
▼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
> になります。
>
> ヘルプで調べて、いろいろ試してください。
|
|