Excel、リスト、複数

質問

こんにちは。
Excel2000でリストから複数の値を選択し、セルに反映させる方法はありますか？
入力規則は１つしか選択できませんよね。
コントロールツールボックスを使えば良いのでしょうか？
VBは超初心者のため何とぞ宜しくお願いします。

回答No.2

mitarashi · ベストアンサー

#1です。
作者様には申し訳ありませんが、参考に改造させていただきます。悪しからず。
dim dummy as string
dummy = ""
格納行 = 9
For 選択行 = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(選択行) Then
dummy = dummy & "," & ListBox1.List(選択行,0)
End If
Next
Range(Cells(格納行, 5), Cells(格納行, 5)).Value = dummy
てな感じでやれば良いと思います。
このコードだと、一番最初にも ,　がついてしまいますので、
カウンターの変数を設ける等して、一回目だけ ,　を足さないような配慮をして下さい。

回答No.1

mitarashi

リストボックス　複数選択　VBA
で検索すると沢山みつかります。
一例のURLを添付します。

参考URL：

http://www.geocities.jp/happy_ngi/YNxv9g042.html

補足

有り難うございます。
URL拝見しました。
私もこのページは何度か開いてみたのですが、一つのセルに複数の選択した値をカンマ区切りなどで表示できればと思いまして。
無理でしょうか^^;