エクセルのマクロでの満年齢および経過時間の表示

質問

はじめまして、初めて質問させていただきます。

私は、社会福祉施設に勤務しているのですが、
入所されている方のデータをユーザーフォームを使って
管理したいと考えています。
ユーザーフォーム自体は以前に作った事があるのですが
日付のデータは扱ったことがありませんでした。
自動で、入所時の年齢、現在の年齢、入所期間を表示させたいと
考えています。

エクセル上では
　 A 　　　　　　　　B 　　　　　 C 　　　　　　　　D 　　　　 E　　　　　　　　Ｆ
　名前　生年月日　　入所年月日　入所時年齢　現在の年齢　入所期間
1　Aさん　2007/02/21　2008/02/21　　50歳　　　51歳　　　3ヶ月
2　Bさん　2007/02/21　2008/02/21　　55歳　　　62歳　　　6ヶ月
3　Cさん　2007/02/21　2009/02/21　　60歳　　　73歳　　　7ヶ月
4　Dさん　2007/02/21　2010/02/21　　65歳　　　84歳　　　8ヶ月
5　Eさん　2007/02/21　2012/02/21　　70歳　　　90再　　　9ヶ月

というようなデータになっています。（数字は適当です）
マクロでは、datediffを使えば、計算させることはできるのですが
満年齢ではないと、入所した時の年齢などに不整合が生じてしまい
ます。（たとえば、月をまたぐと、一日し変わらないのに入所期間が一月分増えているなど。）
エクセルの関数ではdatedifを使えて楽なのですが…
（datedifを使って上の表を作ることはできます）
マクロで扱うやり方がわかりません。

いくつかのサイトで答えらしきものも見たのですが、
ユーザーフォームを作る以上、変数でも処理しなくてはいけないので
たとえば
Ｃells(gyou,1)
（gyouは行番号をあらわす変数）など
このように変数も使って扱うのでさらに混乱しております。

http://okwave.jp/qa2511599.html
なども参考にしては見たのですが

長々としたので質問の要旨は
1マクロで満年齢、満経過日数を扱う方法
2その際に、変数を使えるのかrenge("a1")などのセル指定以外の　
指定の仕方、cells(1.1)などでも扱えるのか
です。

マクロに関しては、初心者なので、なにとぞよろしく御願いします。

回答No.1

kigoshi

あまりスマートなコードではありませんが、とりあえずやりたいことは
これでできるかと思います。
Range　と　Cells　の使い方は参考URLをご覧下さい。

Sub sample()
Dim gyou As Long
For gyou = 2 To Range("A65536").End(xlUp).Row
Cells(gyou, 4).Value = DateDiff("yyyy", Cells(gyou, 2).Value, Cells(gyou, 3).Value)
If Month(Cells(gyou, 2).Value) * 100 + Day(Cells(gyou, 2).Value) > Month(Cells(gyou, 3).Value) * 100 + Day(Cells(gyou, 3).Value) Then Cells(gyou, 4).Value = Cells(gyou, 4).Value - 1

Cells(gyou, 5).Value = DateDiff("yyyy", Cells(gyou, 2).Value, Now)
If Month(Cells(gyou, 2).Value) * 100 + Day(Cells(gyou, 2).Value) > Month(Now) * 100 + Day(Now) Then Cells(gyou, 5).Value = Cells(gyou, 5).Value - 1

Cells(gyou, 6).Value = DateDiff("m", Cells(gyou, 3).Value, Now)
If Day(Cells(gyou, 3).Value) > Day(Now) Then Cells(gyou, 6).Value = Cells(gyou, 6).Value - 1
Next
End Sub

参考URL：

http://excelfactory.net/inukouza/inu06.htm

お礼

ありがとうございます。
早速試してみます。

Cells(gyou, 4).Value = DateDiff("yyyy", Cells(gyou, 2).Value, Cells(gyou, 3).Value)は、私も普通に組めたのですが、
下の式の意味がわからないので、少し研究してみます。
どうしても、ほぼ自動でできて、しかも直感的にわかるフォームを
作らないと、永遠に、パソコンの仕事から解放されないので…

がんばって覚えます。ありがとうございました。