早速ですが、エクセルでユーザーフォーム上にある
リストボックスの複数選択した時の値の取得方法を教えてください。
具体的にはアンケート集計をするためのフォームで
"Q6"というワークシートのA列に「項目名」、B列に「数」を
1行目から設定しています(「数」の初期値は"0"です)。
ユーザーフォームのリストボックスにはA列を表示させています。
そのユーザーフォーム上にあるコマンドボックスに
下記のようにコード記述しても、一番上の選択されたものしか"Q6"に
反映されません(2,3,4行目を選択しても2行目の「数」のみ+1になる)。
Private Sub CommandButton1_Click()
For n = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(n) = True Then
Worksheets("Q6").Cells(n + 1, 2) = _
Worksheets("Q6").Cells(n + 1, 2) + 1
End If
Next n
End Sub
エクセルは97で、リストボックスのMultiSelectはMultiでもExtendedでもダメでした。
どなたかご存知の方がいらっしゃいましたらよろしくお願いします。
No.1ベストアンサー
- 回答日時:
Excel97 で質問のコードを動かしましたが特に問題ないようですが・・・
ListBox1のプロパティMultiSelect を
fmMultiSelectMulti
fmMultiSelectExtended
にして、両方とも問題なく動きますよ。プロパティの設定方法が何か違う?
変数の宣言を強制されていないようなので、
Option Explicit
を先頭に書いてみたらどうでしょうか。nの宣言は必要になりますが、どこか別の場所で無効なプロパティの設定などがされているかもしれません。
ご参考に。
早速の回答ありがとうございます。
試しにExcel2002でも動かしてみましたがダメでした。
そこでもう一度見直してみたところ、RowSourceにA列とB列を指定していました。
1~2ヶ月試行錯誤していたのでColumnCountを"1"にしただけで、
RowSourceの設定を忘れていたようです。
>どこか別の場所で無効なプロパティの設定などがされているかもしれません。
と言われて見直してみたので、nishi6さんのおかげでRowSourceの間違いに気がつきました。
まだ確認していませんが、たぶんこれでExcel97でもちゃんと動くと思います。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) ユーザーフォームの表示を追加したい 2 2023/03/26 23:18
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
.flex-direction プロパティは...
-
Accessのコンボボックスでリス...
-
Accessのフォーム(コンボボッ...
-
ACCESSでコンボボックスにSQLで...
-
ACCESS リストボックスの字の色...
-
Access サブフォームでの選択行...
-
ACCESSでVBAから選択クエリの抽...
-
googleフォームでインストール...
-
access サブフォームにリストを...
-
access別のテーブルを参照して...
-
Access 複数フォームを...
-
ExcelのComboboxでマウスのスク...
-
COUNTIFのやり方を教えてくださ...
-
Access2010 レコードの更新日付...
-
未審査請求包袋抽出表作成とは...
-
Accessフォームが入力できません。
-
X-Ripperというフリーウェアに...
-
ACCSESS2013VBA フォームのレコ...
-
Accessでレコードの複製
-
スクロールバーをVBAで操作したい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessのコンボボックスでリス...
-
Accessのコンボボックスの値が...
-
ACCESSでコンボボックスにSQLで...
-
Oracleで文字列型の時間を引き...
-
ACCESS リストボックスの字の色...
-
ACCESSクエリ抽出条件について
-
帳票フォームでのあるコンボボ...
-
accessでオートコンプリート機...
-
accessでのリストボックス選択...
-
Accessのコンボボックスの”すべ...
-
パススルークエリのデータ件数...
-
リストボックスの時はリンク先...
-
Accessのフォーム(コンボボッ...
-
コンボボックスのボタンの大き...
-
.flex-direction プロパティは...
-
更新クエリで変数は使えない?
-
Accessフォーム 大分類→小分類...
-
アクセス:フォーム入力:【大...
-
Accessのコンボボックスのデフ...
-
自動入力
おすすめ情報