ExcelマクロVBAでシート間データのコピーを自動化する方法

Visual Basic

Excelで勤怠処理を行う際、複数のシートにまたがるデータを効率よくコピーする方法として、VBA（Visual Basic for Applications）を活用するのが非常に便利です。この記事では、ExcelマクロVBAを使って、あるブックの指定セル範囲（例えばQ1〜AC40）を別のブックやシートに自動でコピーする方法を解説します。

マクロの基本設定と構造

まず、作業を始める前に、VBAを使ったマクロの基本的な設定方法について理解しておきましょう。VBAを使うには、「開発」タブを表示させ、マクロを記録したり、VBAコードを編集したりする必要があります。

また、マクロを実行する前に、対象となるブックを開いておく必要があり、その後VBAを使用して別のブックやシートにデータをコピーします。

VBAコードで対象セル範囲をコピーする方法

下記のVBAコードは、指定したセル範囲（ここではQ1〜AC40）を、別のシートにある対応するセルにコピーするための基本的なコード例です。

Sub CopyDataToOtherSheet()
    Dim SourceSheet As Worksheet
    Dim TargetSheet As Worksheet
    Dim SourceRange As Range
    Dim TargetRange As Range

    ' ソースシートとターゲットシートの設定
    Set SourceSheet = Workbooks("時間計算原本.xlsx").Sheets("時間計算")
    Set TargetSheet = Workbooks("7月タイムカード.xlsx").Sheets("Aさん") ' Aさんのシートにコピー

    ' コピー元とコピー先の範囲設定
    Set SourceRange = SourceSheet.Range("Q1:AC40")
    Set TargetRange = TargetSheet.Range("Q1:AC40")

    ' データをコピー
    SourceRange.Copy Destination:=TargetRange
End Sub

このコードは、時間計算原本.xlsxの「時間計算」シートから、7月タイムカード.xlsxの「Aさん」シートに、セル範囲Q1〜AC40をコピーする処理を実行します。

手動でブックを選択できるようにする方法

さらに、マクロを実行する際に、対象となるブックを手動で選択できるようにする方法もあります。以下のVBAコードは、ユーザーがファイルを選択できるダイアログボックスを表示し、選択したファイルのシートにデータをコピーする方法です。

Sub SelectFileAndCopyData()
    Dim FilePath As String
    Dim TargetWorkbook As Workbook
    Dim TargetSheet As Worksheet
    Dim SourceSheet As Worksheet
    Dim SourceRange As Range
    Dim TargetRange As Range

    ' ソースシート設定
    Set SourceSheet = Workbooks("時間計算原本.xlsx").Sheets("時間計算")
    Set SourceRange = SourceSheet.Range("Q1:AC40")

    ' ファイル選択ダイアログ
    FilePath = Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx")
    If FilePath = "False" Then Exit Sub ' キャンセルした場合は処理終了

    ' 対象のブックとシートを設定
    Set TargetWorkbook = Workbooks.Open(FilePath)
    Set TargetSheet = TargetWorkbook.Sheets("Aさん") ' 例: Aさんのシート

    ' コピー先範囲設定
    Set TargetRange = TargetSheet.Range("Q1:AC40")

    ' データをコピー
    SourceRange.Copy Destination:=TargetRange
End Sub

このコードを使用すると、ユーザーが手動でブックを選択し、そのブック内の指定シートにデータをコピーできます。

まとめ

ExcelのVBAを使用すれば、勤怠処理などで複数のシートにまたがるデータを簡単にコピーできます。VBAコードをカスタマイズすることで、特定の範囲を指定したり、ユーザーが選択する対象ブックを指定したりすることが可能です。さらに、データの自動化処理を進めることで、作業効率を大幅に向上させることができます。

コメント

タイトルとURLをコピーしました