リストボックスの値を全選択する

質問

エクセルのユーザーフォームにリストボックスとコマンドボタンを設置し、
コマンドボタンをクリックするとリストボックス内の値を全選択する。
という動作は出来ますでしょうか。
勉強不足で申し訳ありませんが、ご教示願います。

回答No.1

imogasi · ベストアンサー

VBAの問題としてとらえていいのでしょうね。質問表題に明記すべき。
ーー
多分エクセルＶＢＡでＬｉｓｔＢｏｘ関係でSelectAllなんて便利なメソッドはない（注）ので、全項目を１つずつ選択して処理することになろう。
参考
（注）http://beatdjam.hatenablog.com/entry/2015/10/29/203840
ーーー
Private Sub CommandButton1_Click()
MsgBox ListBox1.ListCount
For i = 0 To ListBox1.ListCount - 1
UserForm1.ListBox1.Selected(i) = True
Next i
End Sub
ユーザーフォームに、テストで、アイテムを３つ作成
MultiSelect = fmMultiSelectMultiは必須
ーー
Private Sub UserForm_Initialize()
UserForm1.ListBox1.AddItem "AAA"
UserForm1.ListBox1.AddItem "BBB"
UserForm1.ListBox1.AddItem "CCC"
UserForm1.ListBox1.MultiSelect = fmMultiSelectMulti
End Sub
ーー
以下は既知として説明略
・UserForm1の作成方法
　　プロパティの設定方法（本回答ではコードでやった）
・コマンドボタンの作成方法
・実行ーＳＵＢ/ユーザーフォームの作成の操作
ーー
テスト結果
３つのアイテムを選択した

お礼

imogasi様

回答ありがとうございました。
思ったとおりの結果になりました。
拙い説明で丁寧に説明いただき、本当に感謝いたします。

＞VBAの問題としてとらえていいのでしょうね。質問表題に明記すべき。
申し訳ありません。今後気をつけます。