Excel VBA質問箱 IV

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

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


73641 / 76738 ←次へ | 前へ→

【7571】Re:リストボックスのチェックボックス
回答  ichinose  - 03/9/8(月) 17:58 -

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

>皆さん こんにちは 123です。
>
>ちょっと困っています。どなたかお助けください。
>
>UserForm1にListBox1があります。
>これは以下のソースになっています。
>
>(AdvanceFilterで複数行のデータをSheet2に転記したあと)
>With Sheet2
>lr = .Cells(1, 4).CurrentRegion.Rows.Count
>L1.RowSource = "Sheet2!D1:G" & lr
>End With
>
>リストボックスはMultiSelectをMultiにしてあります。
>また、ListStyleはOptionにしてあります。
>ListBox1.Column=4 です。
>
>そこで、複数選んだリストボックスのデータを
>Sheet1に写したいのです。
>ひとつひとつ写すのではなく、複数選んだ状態で一斉に
>写したいのです。(コマンドボタン等で一気に処理という意味)
>
>無理でしょうか?
Sheet1のA列からD列にリストボックスで選択された行を移しています

'==============================================
Private Sub CommandButton1_Click()
  jdx = 1
  With ListBox1
    For idx = 0 To .ListCount - 1
     If .Selected(idx) = True Then
       Worksheets("sheet1").Range("a" & jdx & ":d" & jdx).Value _
          = Array( _
          .List(idx, 0), .List(idx, 1), _
          .List(idx, 2), .List(idx, 3))
       jdx = jdx + 1
       End If
      Next
    End With
End Sub

0 hits

【7554】リストボックスのチェックボックス 123 03/9/8(月) 16:19 質問
【7570】Re:リストボックスのチェックボックス INA 03/9/8(月) 17:55 回答
【7573】Re:リストボックスのチェックボックス 123 03/9/8(月) 18:16 お礼
【7571】Re:リストボックスのチェックボックス ichinose 03/9/8(月) 17:58 回答
【7574】Re:リストボックスのチェックボックス 123 03/9/8(月) 18:21 お礼

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