ここから本文です

エクセルVBAでリストボックスで複数選択された項目をメッセージボックスに表示...

txc********さん

2014/4/511:25:18

エクセルVBAでリストボックスで複数選択された項目をメッセージボックスに表示させるにはどの様に記述すればいいでしょうか?

閲覧数:
397
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

ja7********さん

編集あり2014/4/512:15:29

こんな感じで如何でしょうか。

シート上にActivXのListBox1を配置し、そのプロパティでMultiSelectを
「1-fmMultiSelectMult」に設定します。

また、リストの内容を ListFillRangeプロパティ等で適宜設定してあるものとします。

いつの時点でMsgBoxを表示するのか 判りませんので 取り敢えず ここでは、
CommandButton1を押した時点とします。

使用しているシートのモジュールに記述します。

Private Sub CommandButton1_Click()
Dim N As Integer
Dim Lsts As String
With ActiveSheet.ListBox1
    For N = 0 To .ListCount - 1
        If .Selected(N) Then
            Lsts = Lsts & .List(N) & vbLf
        End If
    Next
End With
MsgBox Lsts, vbInformation
End Sub

質問した人からのコメント

2014/4/5 12:15:36

早速の回答ありがとうございました。
希望通りの処理ができました。

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる