VBAで従業員の年齢計算と給与金額の加算方法

VBAを使用して、従業員の年齢に基づく給与の加算を自動化する方法を学びましょう。この記事では、セルに入力された誕生日を基に、従業員が65歳になる翌月から給与金額を加算する方法について解説します。

1. 誕生日を基にした年齢計算
2. 65歳を超えた場合に翌月から給与加算
3. VBAコードで給与データを自動的に加算
4. まとめ

1. 誕生日を基にした年齢計算

まず、VBAで誕生日から年齢を計算する方法を確認しましょう。従業員の誕生日（例えば、1960年3月10日）を基に、現在の年齢を計算し、65歳を超えたかどうかを判断します。

Dim birthday As Date
Dim age As Integer
birthday = Range("A2").Value
age = DateDiff("yyyy", birthday, Date) - IIf(Format(Date, "mmdd") < Format(birthday, "mmdd"), 1, 0)
MsgBox "年齢は " & age & " 歳です。"

このコードでは、「DateDiff」関数を使用して年齢を計算し、誕生日が今年のその日を過ぎていなければ1歳減算しています。

2. 65歳を超えた場合に翌月から給与加算

65歳を迎えると、その翌月から給与に加算を始めるロジックを作成します。誕生日から65歳になった月を求め、その後の月から給与金額を変更します。

Dim addSalaryMonth As Date
addSalaryMonth = DateSerial(Year(birthday) + 65, Month(birthday) + 1, Day(birthday))
If Date >= addSalaryMonth Then
    ' 65歳以上の場合、給与加算処理
    Range("C2:C13").Value = Range("C2:C13").Value + 5000 ' 例として5000円加算
End If

「DateSerial」関数を使って65歳の誕生日から翌月を計算し、その月から給与に加算を行います。

3. VBAコードで給与データを自動的に加算

ここでは、誕生日が65歳を過ぎた従業員に対して、給与金額を自動で加算するコードをさらに発展させます。以下のコードで、対象の従業員に対して給与の変更を行います。

Dim i As Integer
For i = 2 To 13
    ' A列に誕生日が入力されているかチェック
    If IsDate(Cells(i, 1).Value) Then
        birthday = Cells(i, 1).Value
        age = DateDiff("yyyy", birthday, Date) - IIf(Format(Date, "mmdd") < Format(birthday, "mmdd"), 1, 0)
        addSalaryMonth = DateSerial(Year(birthday) + 65, Month(birthday) + 1, Day(birthday))
        ' 65歳になった翌月から給与を加算
        If Date >= addSalaryMonth Then
            Cells(i, 3).Value = Cells(i, 3).Value + 5000 ' 5000円加算
        End If
    End If
Next i

このコードでは、2行目から13行目のデータをループして、誕生日から65歳になった従業員の給与を加算します。