Excel VBA質問箱 IV

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

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


51646 / 76732 ←次へ | 前へ→

【29949】Re:リスト選択からデータの移動
回答  小僧  - 05/10/17(月) 14:39 -

引用なし
パスワード
   ▼うくれれ さん:
こんにちは。

>以前にも似たような質問をしましたが、

[#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 で指定したシートに出力されると思います。

0 hits

【29934】リスト選択からデータの移動 うくれれ 05/10/17(月) 2:00 質問
【29949】Re:リスト選択からデータの移動 小僧 05/10/17(月) 14:39 回答
【29998】Re:リスト選択からデータの移動 うくれれ 05/10/17(月) 23:13 発言
【30161】Re:リスト選択からデータの移動 うくれれ 05/10/20(木) 23:45 質問

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