お願いしますm（_ _）m

質問

セルA1から下にレモン、いちご、バナナ、スイカ、メロン・・・というデータをボタン押下時にコンボボックスに表示できるようにしたいのですが・・・データの内容、数が変更しても表示できるようにしたいのですが全くわかりません・・・。A1の値やA1～A5の値と決まっていればセルの取得はできるのですが、数が変更してもという場合の取得の仕方がわかりません。そして取得した値をコンボボックスに表示の仕方もわからず・・・　お願いします

回答No.2

noname#22222 · ベストアンサー

選択されている範囲を直接に取り込むのではなく一旦コンボボックスにコピペしています。
邪道といえば邪道ですが、一応は、目的を達します。

Private Sub cmdAddItems_Click()
　　Dim I　　　　　As Integer
　　Dim N　　　　　As Integer
　　Dim strItems() As String

　　MsgBox "選択されているセルデータをコンボボックスのアイテムとしてセットします。"
　　Selection.Copy
　　Me.cmbItems.Paste
　　strItems() = Split(Me.cmbItems.Value, Chr$(13) & Chr$(10))
　　N = UBound(strItems)
　　Me.cmbItems.Clear
　　For I = 0 To N
　　　　If Len(Trim(strItems(I) & "")) > 0 Then
　　　　　　Me.cmbItems.AddItem strItems(I)
　　　　End If
　　Next I
　　Me.cmbItems.Value = ""
End Sub

回答No.3

KenKen_SP

こんにちは。KenKen_SP です。

VBA でやるにせよ、コンボボックス...というのが、

・[表示]-[ツールバー]-[フォーム]
・[表示]-[ツールバー]-[コントロール ツールボックス]
・VBA のユーザーフォーム
・セルの入力規則のリスト

のどれを指すのかで回答が大きく異なりますよ。どれのことですか？

回答No.1

dokuganryu

このことでしょうか?
見てください。

参考URL：

http://kokoro.kir.jp/excel/nkisoku_list.html

補足

すみません言葉が足りなかったです・・・。
ＶＢＡで作りたく”コンボボックスへコピー”という
ボタンも作り、それを押すとセルの値（レモン、いちご・・・）が
コンボボックスに追加されてくという事をしたいのです。すみません。