HOME > 即効テクニック > Excel VBA > シート操作関連のテクニック > リストボックスのデータをシートに転記する

即効テクニック
シート操作関連のテクニック

リストボックスのデータをシートに転記する

(Excel 97/2000)
リストボックスのデータは、「Test.xls」の「Sheet1」のセルA1〜A10を設定します。そのデータを、「Test.xls」の「Sheet2」に転記します。

フォームに、コマンドボタン「CommandButton1」とリストボックス「 ListBox1」を配置します。

まず、フォームを表示する時に発生するイベント「Initialize」で、リストボックスのRowSourceプロパティを設定します。

Private Sub UserForm_Initialize()

    ListBox1.RowSource = "[Test.xls]Sheet1!A1:A10"
    
End Sub

次に、コマンドボタンをクリックした時に発生するイベント「Click」で、リストボックスのデータを転記する処理を行います。

Private Sub CommandButton1_Click()

    Dim DataArea As String

    DataArea = ListBox1.RowSource
    Range(DataArea).Select
    Selection.Copy
    
    Sheets("Sheet2").Select
    Cells(1).Select
    ActiveSheet.Paste

End Sub
ビジネス統計スペシャリスト VBAエキスパート