ExcelVBA 生年月日から現在年齢を自動計算｜情報管理に活用する方法

ExcelVBA 生年月日から現在年齢を自動計算｜情報管理に活用する方法。使い方や注意点など、サンプルコードをもとに具体的に解説します。

Excel VBA 生年月日から現在年齢を自動計算｜シーン

Excel VBA 生年月日から現在年齢を自動計算｜サンプルコード

A1セルの生年月日（YYYY/MM/DD形式）を元に、現在の年齢を計算し、B1セルに表示する

Option Explicit

Sub CalculateAge()
    Dim birthDate As Date
    Dim todayDate As Date
    Dim age As Integer
    
    ' 生年月日をA1セルから取得
    birthDate = Range("A1").Value
    ' 今日の日付
    todayDate = Date
    ' 年齢計算（誕生日が過ぎていない場合は-1）
    age = Year(todayDate) - Year(birthDate)
    If DateSerial(Year(todayDate), Month(birthDate), Day(birthDate)) > todayDate Then
        age = age - 1
    End If
    
    ' B1セルに年齢を表示
    Range("B1").Value = age
End Sub

A列（A2:A100）に生年月日リストがある場合、B列（B2:B100）に年齢を一括入力する

Option Explicit

Sub CalculateAgesForList()
    Dim lastRow As Long
    Dim i As Long
    Dim birthDate As Date
    Dim todayDate As Date
    Dim age As Integer
    
    ' データの最終行を取得
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    todayDate = Date
    
    ' ループで各行の年齢を計算
    For i = 2 To lastRow
        birthDate = Cells(i, 1).Value
        age = Year(todayDate) - Year(birthDate)
        
        ' 誕生日が来ていない場合は-1
        If DateSerial(Year(todayDate), Month(birthDate), Day(birthDate)) > todayDate Then
            age = age - 1
        End If
        
        ' B列に年齢を出力
        Cells(i, 2).Value = age
    Next i
End Sub

ユーザーフォームに 「生年月日を入力するテキストボックス」 と 「年齢を計算して表示する（フォームモジュールに記述）

Option Explicit

Private Sub CommandButton1_Click()
    Dim birthDate As Date
    Dim todayDate As Date
    Dim age As Integer
    
    ' テキストボックスから生年月日を取得
    birthDate = CDate(TextBox1.Value)
    todayDate = Date
    
    ' 年齢計算
    age = Year(todayDate) - Year(birthDate)
    If DateSerial(Year(todayDate), Month(birthDate), Day(birthDate)) > todayDate Then
        age = age - 1
    End If
    
    ' ラベルに年齢を表示
    Label1.Caption = "年齢: " & age & "歳"
End Sub

Excel VBA 生年月日から現在年齢を自動計算｜まとめ