リストボックスについて

質問

VBA初心者です。
VBAで以下の処理に大変困っております。

＜処理内容＞

１．リストボックスにある値を選択して、OKボタンを押す。
２．「１．」で選択した値をセルＡ１に出力。
３．「１．」で選択する値が複数ある場合は、セルA1の値は
コンマをつけて出力。

＜例１＞
-----------------------
＜リストボックス１＞
みかん
りんご
トマト
aaa01
-----------------------

・選択が一つの場合
「みかん」を選択して場合、OKボタンを押す。

セルA1への出力内容
みかん

・選択が複数の場合
「みかん」、「トマト」、「aaa01」を選択して、OKボタンを押す。

セルA1への出力内容
みかん、トマト、aaa01

※ユーザフォームの処理です。

まったくわかりません。
明日中に仕上げなければいけないため大変困っております。
どなたか御教授をお願い致します。
宜しくお願い致します。

回答No.3

ham_kamo · ベストアンサー

すみません、ちょっと状況が完全に把握できてないのですが、
「リストボックスの複数選択」というと、通常はListBoxのプロパティ MultiSelect を fmMultiSelectMulti か fmMultiSelectExtended に設定し、マウスで複数選択可能にすることなので、リストボックス２がそう設定されていて、選択されたものだけをセルに転記することだと思っていました。

そうではなくて、ＯＫボタンを押した時点で、リストボックス２のどの項目が選択されているかどうかにかかわらず、リストボックス２の項目全てをセルに転記する、ということでよろしいでしょうか？

それならば、項目が選択されているかどうかのIf文を外して、以下のようにすればよいかと思います。Sheet1は適切なシート名に変更してください。

　Dim i As Integer
　Dim S As String
　For i = 0 To ListBox2.ListCount - 1
　　　S = S & ListBox2.List(i) & "、"
　Next
　If Len(S) > 0 Then S = Left(S, Len(S) - 1)
　Worksheets("Sheet1").Range("F14").Value = S

お礼

ham_kamoさん、上記の処理で実施しましたところ私が望んだ処理が
完璧に実現できました！！！
まさにこの処理がしたかったわけです。
ほんとに初心者の私に細かく分かりやすく丁寧に教えて
頂き本当に感謝しております。
ham_kamoさんのおかげで間に合いました！！！
ありがとうございました！！！！！

回答No.2

ham_kamo

No.1です。補足拝見しました。
ぱっと見たところ、おかしな箇所はないのですが…。

> 実行時エラー９
> インデックスが有効範囲にありません

は、どの行で出たのでしょうか？
一番あり得そうなのは、

Worksheets("Sheet1").Range("F14").Value = S

のシート名が違っていると上記エラーが出ますが、ここは間違いないでしょうか。

補足

すいませんシート名を変えたらできました！！
ありがとうございます。
あとですねこまかいのですが、一つの選択はできますが
複数選択ができないです！！
セルにコンマ区切りで出力ができないみたいです。
やりたい処理としまして、リストボックス１の画面で値を選択したら
その値がリストボックス２に出力されてOKボタンを押すとリストボックス２にある数（項目）だけリストボックス２内の項目を選択しないでセルにコンマ区切りで出力をしたいのです。

まとめますとリストボックス２に値が入ったらその値をセルにコンマ区切りで出力したいのです。

どうかご教授をお願いします。
何回も質問してもうしわけありません。

回答No.1

ham_kamo

以下のような感じでどうでしょうか。

Private Sub CommandButton1_Click()
　Dim i As Integer
　Dim S As String
　For i = 0 To ListBox1.ListCount - 1
　　If ListBox1.Selected(i) Then
　　　S = S & ListBox1.List(i) & "、"
　　End If
　Next
　If Len(S) > 0 Then S = Left(S, Len(S) - 1)
　Worksheets("Sheet1").Range("A1").Value = S
End Sub

補足

御教授ありがとうございます。
上のコードで実施しましたところエラーとなってしまいました。

＜コード内容＞

Option Explicit

Private Sub btn選択_Click() '選択ボタン

　　　ListBox2.AddItem ListBox1.Text

End Sub

Private Sub btn選択2()

ListBox2.RemoveItem (ListBox2.ListIndex)

End Sub

Private Sub CommandButton1_Click() '削除ボタン

ListBox2.RemoveItem (ListBox2.ListIndex)

End Sub

Private Sub CommandButton2_Click() 'OKボタン

Dim i As Integer
Dim S As String

For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then
S = S & ListBox2.List(i) & "、"
End If
Next
If Len(S) > 0 Then S = Left(S, Len(S) - 1)
Worksheets("Sheet1").Range("F14").Value = S

End Sub

Private Sub Label4_Click()

End Sub

Private Sub ListBox1_DblClick(ByVal cancel As MSForms.ReturnBoolean) 'ダブルクリック（選択）

btn選択_Click

End Sub

Private Sub ListBox2_DblClick(ByVal cancel As MSForms.ReturnBoolean) 'ダブルクリック（削除）ListBox2_DblClick(ByVal cancel As MSForms.ReturnBoolean)

btn選択2

End Sub

Private Sub UserForm_Initialize()
With ListBox1
.AddItem "スケジューラ"
.AddItem "データ変換"
.AddItem "DWH Server"
.AddItem "PPP Server"
.AddItem "ファイヤーウォール"
.AddItem "暗号オプション"

End With

End Sub

＜エラー番号＞

実行時エラー９
インデックスが有効範囲にありません

このような状態になり動作しません。
お手数おかけしますが御教授をお願い致します。
宜しくおねがいします。