掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
リストボックス複数選択について (ID：112389)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ん〜、データの持ち方の問題かな。 こうゆう場合には、 配列に格納したほうが、いろいろと使いまわせて 便利です。 Private Sub Command1_Click() '複数の項目を選択した場合の取得 Dim ICount As Integer Dim SelectData() as Integer For ICount = 0 To List1.ListCount - 1 If List1.Selected(ICount) Then SelectData(ICount) = List1.List(ICount) Debug.Print List1.List(ICount), ICount + 1 End If Next ICount End Sub でどうでしょ？ （ん〜デバッグしてないから、動くか不安）
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.