Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


61322 / 76732 ←次へ | 前へ→

【20031】Re:リストボックスで選択している数
回答  ichinose  - 04/11/24(水) 21:59 -

引用なし
パスワード
   ▼ととりん さん:
こんばんは。

>こんばんは。またまたわからないことがあり、お力をお借りしたくてやってきました。
>
>Excelのブックには、取引先別に複数のシートがあります。(月間の取引先数によって異なります)
>そのシート名をユーザーフォームのリストボックスに表示させ、複数選択が可能な状態にしています。
>
>教えていただきたいのが、リストボックスで選択しているリストの数のカウントの方法です。
>
>ワークシートの数は、下記のコードだとわかっているのですが、
>   
>  t = Worksheets.Count
>
>リストボックスで選択しているリストの数の取得方法がわかりません。
>どなたかわかる方教えていただけませんでしょうか?
>
>よろしくお願いいたします。
リストボックスがListbox1だとして、コマンドボタン(Commandbutton1)の
クリックイベントで処理する例で


'===================================================
Private Sub CommandButton1_Click()
  Dim cnt As Long
  With ListBox1
   MsgBox "リストの数:" & .ListCount
   cnt=0
   For idx = 0 To .ListCount - 1
     if .Selected(idx)=true then cnt = cnt + 1 
     'cnt = cnt + .Selected(idx) なんて方法もありますが・・
     Next
   MsgBox "選択している数:" & cnt
   'msgbox "選択している数:" & -cnt
   End With
End Sub

確認してみて下さい。

1 hits

【20029】リストボックスで選択している数 ととりん 04/11/24(水) 21:41 質問
【20031】Re:リストボックスで選択している数 ichinose 04/11/24(水) 21:59 回答
【20033】Re:リストボックスで選択している数 ととりん 04/11/25(木) 6:35 質問
【20034】Re:リストボックスで選択している数 ichinose 04/11/25(木) 7:53 発言
【20045】Re:リストボックスで選択している数 ととりん 04/11/25(木) 18:39 お礼

61322 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free