![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?08b1c8b)
No.3ベストアンサー
- 回答日時:
補足に書かれているURLでは「フォーム」のリストボックスを利用していますが、まずこれは「コントロールツールボックス」のリストボックスに変更してください。
シート上にリストボックスを貼り付けたら、プロパティのListFilRangeにリストに表示する値の範囲を指定し、MultiSelectの値は1(複数選択可)にしてから、コードの表示で開く画面に以下のマクロを貼り付けてください
Private Sub ListBox1_Change()
Dim idx, ptr As Integer
Const trg As String = "A15" '選択値を書き込む最初のセルアドレス
With ListBox1
ActiveSheet.Range(trg).Resize(.ListCount).ClearContents
For idx = 0 To .ListCount - 1
If .Selected(idx) Then
ActiveSheet.Range(trg).Offset(ptr, 0).Value = .List(idx)
ptr = ptr + 1
End If
Next idx
End With
End Sub
コントロールツールボックスの「デザインモード終了」した後で、リストボックスの値を選択するとA15セルから下方向に選択した値がセットされます。
>複数選択する場合に値(番号)を返す方法
が具体的に書かれていないのでマクロ3行目に書いたセルアドレスから下方向に書き込むようにしました。値の返し方はご自由に変更してください
No.2
- 回答日時:
この回答への補足
回答ありがとうございます。
申し訳ありませんが下記のサイトの応用なのですが、別窓が出ないようなマクロはありませんか?
http://pc.nikkeibp.co.jp/article/NPC/20060214/22 …
No.1
- 回答日時:
VBAで
Dim i As Integer
For i = 1 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) = True Then MsgBox i
Next
みたいな事ですか?
この回答への補足
早速の回答ありがとうございます。
説明が下手でして・・・
申し訳ありませんが下記のサイトの応用なのですがよろしくお願いします。
http://pc.nikkeibp.co.jp/article/NPC/20060214/22 …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの大きなシートでグラフを見つける 4 2022/07/28 10:07
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- その他(パソコン・スマホ・電化製品) エクセル初心者です。 仕事でエクセルを使っていて、普段は素人でもできる簡単な関数を使ったことがある程 1 2022/05/25 11:17
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Excel(エクセル) エクセルについて教えてください。 2 2023/06/14 11:11
- Excel(エクセル) IF 関数で「〇〇 という文字を含む場合」の分岐処理で表示された数字はSUMで数字集計できますか? 3 2022/08/02 16:29
- Excel(エクセル) EXCELピボットテーブル(複数アイテム) 1 2023/04/27 12:15
- Excel(エクセル) コンボボックス及びリストボックスを5段階連動させる方法をご存知の方ご教授頂きたいです。 Excelで 3 2022/04/03 21:43
- Excel(エクセル) エクセルでこのようなことはできますか? 3 2022/07/10 19:57
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・【大喜利】【投稿~1/31】『寿司』がテーマの本のタイトル
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・【大喜利】【投稿~1/20】 追い込まれた犯人が咄嗟に言った一言とは?
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・【大喜利】【投稿~1/9】 忍者がやってるYouTubeが炎上してしまった理由
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
彼女のことが好きすぎて彼女の...
-
爪が紫色?
-
首吊りどこ締めるの
-
精子に血が・・・
-
風俗店へ行く前のご飯
-
勃起する時って痛いんですか? ...
-
検便についてです。 便は取れた...
-
これって喉仏ですか? 私は女性...
-
EXCELで条件付き書式で空白セル...
-
白血球が多いとどんな心配があ...
-
イタリアから帰国する際、肉製...
-
精子が黄色?
-
健否~書類の書き方~
-
鏡についてです。自分の体型を...
-
納豆食べた後の尿の納豆臭は何故?
-
最近、飲酒すると手のひらが真...
-
値が入っているときだけ計算結...
-
エクセル指定した範囲からラン...
-
小数点以下を繰り上げたものを...
-
「Q.C. PASSED」とは?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
彼女のことが好きすぎて彼女の...
-
EXCELで条件付き書式で空白セル...
-
爪が紫色?
-
ワードのページ番号をもっと下...
-
エクセル指定した範囲からラン...
-
VLOOKUP関数を使用時、検索する...
-
2つの数値のうち、数値が小さい...
-
小数点以下を繰り上げたものを...
-
EXCELで式からグラフを描くには?
-
風俗店へ行く前のご飯
-
リンク先のファイルを開かなく...
-
エクセルで数式の答えを数値と...
-
勃起する時って痛いんですか? ...
-
値が入っているときだけ計算結...
-
MIN関数で空白セルを無視したい...
-
精子に血が・・・
-
一番多く表示のある値(文字列...
-
エクセルのラベルの値(文字列...
-
白血球が多いとどんな心配があ...
おすすめ情報