ゴリラストロングの雑記帳

月収10万円の広告収入を目指す自称専業ライターのブログです。




【VBA】生年月日から年齢を算出するマクロを作成してみました。




どうも、ゴリラストロングです。

 

今回はVBAで、生年月日から年齢を算出するマクロを作成してみました。

 

<元データ>

f:id:gorilla-strong:20200430035822p:plain

 

<マクロ実行後>

f:id:gorilla-strong:20200430035928p:plain

 

ソースコード> 

Sub main()

Dim ws As Object
Set ws = ThisWorkbook.Worksheets(1)

Dim lastrow As Long
lastrow = ws.Cells(Rows.Count, 1).End(xlUp).Row

For i = 3 To lastrow

ws.Range("D" & i) = DateDiff("yyyy", ws.Range("C" & i), Date) + (Format(ws.Range("C" & i), "mmdd") > Format(Date, "mmdd"))

Next
End Sub

 

以上、ゴリラストロングでした。