|
▼うくれれ さん:
こんにちは。
>以前にも似たような質問をしましたが、
[#29639] ですね。
>リストボックスの値を指定(複数指定可)してコマンドボタンクリックにより
>シート上の指定した対象行のデータを別シート(帳票)の指定場所に貼り付け
Private Sub CommandButton1_Click()
Dim SName1 As String
Dim SName2 As String
Dim lastRow As Long
Dim i As Long
Dim j As Long
Dim Cnt As Long
Dim Atai() As Variant
SName1 = "データ"
SName2 = "帳票"
lastRow = Sheets(SName1).Range("A5").End(xlDown).Row
j = 1
For i = 1 To Me.ListBox1.ListCount
If ListBox1.Selected(i - 1) = True Then
ReDim Preserve Atai(1 To lastRow - 5, 1 To j)
For Cnt = 1 To lastRow - 5
Atai(Cnt, j) = Sheets(SName1).Cells(Cnt + 5, i)
Next
j = j + 1
End If
Next
Sheets(SName2).Range("A1").Resize(UBound(Atai, 1), UBound(Atai, 2)).Value = Atai()
End Sub
リストボックスで選んだ列が SName2 で指定したシートに出力されると思います。
|
|