簡単にできる！Excel VBAを使った年齢計算の方法

2024.05.22

Excelで年齢計算を手軽に行いたいと思いませんか？この記事では、VBAを使って効率的に年齢を計算する方法を紹介します。Excelの知識があまりなくても大丈夫！ステップバイステップで解説しますので、ぜひ最後までお読みください。

結論
VBAコードを使って実際に年齢を計算する方法

結論

Excel VBAを使えば、誕生日から現在の年齢を自動で計算することができます。手作業で計算する手間を省き、正確な結果を得ることができるので、業務効率が大幅にアップします。

いちいち手作業で計算してたらめんどくさいですよね？

例えば、人事部門では社員の年齢を管理する必要がありますが、誕生日が異なる全社員の年齢を手計算するのは大変です。VBAを使うことで、ボタン一つで全社員の年齢を即座に計算でき、時間と労力を大幅に節約できます。

VBAコードを使って実際に年齢を計算する方法

以下に、Excel VBAを使って年齢を計算するための具体的なコードを紹介します。これを実際にExcelに入力して、簡単に年齢を計算してみましょう。

/* VBAコード */

Sub CalculateAge()

    Dim BirthDate As Date

    Dim TodayDate As Date

    Dim Age As Integer
    ' 誕生日を入力するセルの指定（例：A1セル）

    BirthDate = Range("A1").Value

    ' 今日の日付を取得

    TodayDate = Date

    ' 年齢を計算

    Age = Year(TodayDate) - Year(BirthDate)

' 誕生日がまだ来ていない場合、年齢を1引く If Month(TodayDate) < Month(BirthDate) Or (Month(TodayDate) = Month(BirthDate) And Day(TodayDate) < Day(BirthDate)) Then Age = Age - 1 End If ' 結果をセルに表示（例：B1セル） Range("B1").Value = Age End Sub

上記のコードをExcel VBAエディタに貼り付けて実行すると、誕生日を入力したセルに基づいて年齢が計算されます。例えば、A1セルに誕生日を入力し、B1セルに計算結果の年齢が表示されます。

このように、Excel VBAを活用することで、煩雑な年齢計算を簡単に自動化できます。ぜひ試してみてください。