|
▼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
|
|