VBA　年齢の一括計算について

誕生日と基準日より一括で年齢を計算したいのですが、
下記コードだと思うような数字が表示なりません。

コードSub 年齢計算()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet

    Set ws1 = Sheets("シート１")
    Set ws2 = Sheets("シート２")

    Dim LastRow As Date
    LastRow = ws1.Cells(Rows.Count, 2).End(xlUp).Row

    Dim MyList() As Variant

    Dim 基準日 As Date
    Dim 誕生日 As Date
    Dim 年齢 As Variant

    基準日 = ws2.Range("AK3")

    Dim i As Long
    ws1.Select
    MyList = ws1.Range("J2", Range("J" & Rows.Count). _
                     End(xlUp)).Resize(, 1).Value

    For i = 2 To UBound(MyList)
        For 誕生日 = 1 To LastRow
            年齢 = DateDiff("yyyy", 誕生日, 基準日) + _
                (Format(誕生日, "m/d") > Format(基準日, "m/d"))
        Next 誕生日
        ws1.Cells(i, 11).Value = 年齢
    Next i


End Sub

誕生日は「シート１のJ列」基準日は「シート２の"AK3"」に入力されており、「シート１のK列」に年齢が表示されるようにしたいです。
誕生日のデータは1000以上あります。

皆様のご教授を頂ければと思います。

y_waiwai

2021/12/13 06:41

思うような数字にならないとは具体的にどのような数字になるんでしょうか

jjyso

2021/12/13 07:41

実行すると「シート１のK列（年齢）」の最終行まで同じ数字が表示なってしまいます。

y_waiwai

2021/12/13 07:48

だから、具体的にどういう数字が出るんでしょうか。説明をサボってなにかいいことあるんでしょうか

jjyso

2021/12/13 07:59

基準日を「2021/6/1」として実行すると「シート１のK列（年齢）」の最終行まで「118」と表示され、基準日を「2021/12/1」で実行すると「シート１のK列（年齢）」の最終行まで「119」と表示されます。「シート１のJ列（誕生日）」には「1998/1/21」「1985/5/30」といったデータが入力されています。

行動規範の内容に同意します

回答1件

ベストアンサー

vba
1            年齢 = DateDiff("yyyy", 誕生日, 基準日) + _
2                (Format(誕生日, "m/d") > Format(基準日, "m/d"))

上記を下記に修正したらどうでしょう。

vba
1            年齢 = DateDiff("yyyy", 誕生日, 基準日) + _
2                (Format(誕生日, "mm/dd") > Format(基準日, "mm/dd"))

"m/d"書式だと桁数が固定でないので正しく大小関係のチェックはできません。

例えば "4/1" と "12/31" だと "4/1" の方が大きいと判断される。
文字列は前から順に比較していくので。

意味不明なコードが紛れ込んでいますね。
それぞれのコードを意味を理解してください。

とりあえず下記でどうですか。

vba
1Sub 年齢計算()
2    Dim ws1 As Worksheet
3    Dim ws2 As Worksheet
4    Set ws1 = Sheets("シート１")
5    Set ws2 = Sheets("シート２")
6
7    Dim LastRow As Long
8    LastRow = ws1.Cells(Rows.Count, 10).End(xlUp).Row
9
10    Dim 基準日 As Date
11    Dim 誕生日 As Date
12    Dim 年齢 As Variant
13
14    基準日 = ws2.Range("AK3")
15
16    Dim i As Long
17    For i = 2 To LastRow
18        誕生日 = ws1.Cells(i, 10).Value
19        年齢 = DateDiff("yyyy", 誕生日, 基準日) + _
20             (Format(誕生日, "mm/dd") > Format(基準日, "mm/dd"))
21        ws1.Cells(i, 11).Value = 年齢
22    Next i
23
24End Sub