Excel VBA質問箱 IV

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

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


35934 / 76732 ←次へ | 前へ→

【45986】Re:コンボボックスとリストボックスの連動
回答  Hirofumi  - 07/1/20(土) 20:23 -

引用なし
パスワード
   >リストボックスに表示されたリストを複数選択可能なようにして、
>複数選択した場合の値を、シート1のセル範囲(A1:B5)に表示させたいのです。

シート1のセル範囲(A1:B5)にどう言う形で出力したいのか?
CommandButton1を押す事によって、A1、A2、A3・・B1、B2・・と出力されます

Private Sub CommandButton1_Click()

  '最大出力行数を設定
  Const clngMaxRows As Long = 5
  
  Dim i As Long
  Dim j As Long
  Dim lngColumns As Long
  
  '書き込む先頭セル位置を指定
  With Worksheets("Sheet1").Cells(1, "A")
    '書き込んで有る列数を取得
    lngColumns = .Offset(, Columns.Count _
        - .Column).End(xlToLeft).Column - .Column + 1
    '範囲をクリア
    .Resize(clngMaxRows, lngColumns).ClearContents
    'List全てに就いて繰り返し
    For i = 0 To ListBox1.ListCount - 1
      '選択されているなら
      If ListBox1.Selected(i) = True Then
        '値を出力
        .Offset(j Mod clngMaxRows, _
            j \ clngMaxRows).Value = ListBox1.List(i, 0)
        '書き込み位置を更新
        j = j + 1
        '選択を解除
        ListBox1.Selected(i) = False
      End If
    Next i
  End With
    
End Sub

0 hits

【45793】コンボボックスとリストボックスの連動 ととろ 07/1/14(日) 16:27 質問
【45797】Re:コンボボックスとリストボックスの連動 Hirofumi 07/1/14(日) 17:32 回答
【45798】Re:コンボボックスとリストボックスの連動 Kein 07/1/14(日) 17:32 回答
【45799】Re:コンボボックスとリストボックスの連動 ichinose 07/1/14(日) 17:38 発言
【45983】Re:コンボボックスとリストボックスの連動 ととろ 07/1/20(土) 18:38 質問
【45985】Re:コンボボックスとリストボックスの連動 Kein 07/1/20(土) 20:20 回答
【45987】Re:コンボボックスとリストボックスの連動 Kein 07/1/20(土) 20:26 発言
【45986】Re:コンボボックスとリストボックスの連動 Hirofumi 07/1/20(土) 20:23 回答

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