Excel VBAで日付・金額・使用先を自動入力する方法｜表への一括表示サンプルコード付き

Excelで支出管理表や記録表を作成していると、日付・金額・使用先などの情報を毎回手入力する作業が負担になることがあります。VBAを使えば、決まった形式のデータを取得して、表の指定した場所へ自動的に入力することが可能です。

この記事では、Excel VBAを使って日付・金額・使用先などの項目を一覧表へ自動表示する基本的な考え方と、実際に利用できるサンプルコードを紹介します。

VBAを使うとExcelの表入力を自動化できる
VBAで表へデータを表示する基本的な流れ
日付・金額・使用先を表へ追加するVBAサンプルコード
複数データを一括表示する場合の考え方
VBAで作成すると便利な管理表の例
VBAを使う際に注意したいポイント
まとめ

VBAを使うとExcelの表入力を自動化できる

Excel VBAでは、セルへの書き込みやデータの整理をプログラムで実行できます。例えば、入力用シートに登録した情報を管理表へ転記したり、複数の項目をまとめて一覧化したりできます。

手作業の場合、同じような表へ何十件も入力すると入力ミスや時間のロスが発生します。しかしVBAで処理を自動化すると、ボタン1つで決められた形式の表を作成できます。

例えば、家計簿のような表で「日付」「金額」「使用先」の3項目を管理している場合、入力データを読み取り、空いている行へ順番に追加する処理を作成できます。

VBAで表へデータを表示する基本的な流れ

Excel VBAで表へ情報を表示する場合、基本的には以下の流れで処理を作成します。

入力元となるセルやデータを指定する
表示先となる表の空いている行を探す
日付や金額などの値をセルへ書き込む
必要に応じて書式を整える

例えば、A列に日付、B列に金額、C列に使用先を表示する表の場合、それぞれのセルへ値を代入することで自動入力できます。

日付・金額・使用先を表へ追加するVBAサンプルコード

以下は、入力した情報を一覧表の最終行へ追加する基本的なサンプルコードです。

Sub データ追加()

    Dim ws As Worksheet
    Dim lastRow As Long

    Set ws = Worksheets("Sheet1")

    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1

    ws.Cells(lastRow, "A").Value = Date
    ws.Cells(lastRow, "B").Value = 5000
    ws.Cells(lastRow, "C").Value = "食料品"

    MsgBox "データを追加しました"

End Sub

このコードを実行すると、Sheet1のA列の最終行の次へ日付、金額、使用先が自動的に入力されます。

例えば、実際の利用では金額部分を入力フォームから取得したり、使用先を選択式にしたりすることで、より使いやすい管理表へ発展させることができます。

複数データを一括表示する場合の考え方

複数件のデータをまとめて表示したい場合は、For文を使ってセルを順番に処理します。

例えば、別シートに保存された10件の支出データを一覧表へ移動する場合、1行ずつ読み込みながら表へ書き込む処理を作成します。

Sub 一括転記()

    Dim i As Long
    Dim lastRow As Long

    lastRow = Worksheets("入力").Cells(Rows.Count, "A").End(xlUp).Row

    For i = 2 To lastRow
        Worksheets("一覧").Cells(i, "A").Value = Worksheets("入力").Cells(i, "A").Value
        Worksheets("一覧").Cells(i, "B").Value = Worksheets("入力").Cells(i, "B").Value
        Worksheets("一覧").Cells(i, "C").Value = Worksheets("入力").Cells(i, "C").Value
    Next i

End Sub

このような処理を利用すると、入力データを別の管理表へ自動反映できます。