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

質問

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

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

エクセル上では
　 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.6

Wendy02

こんにちは。

大変なお仕事のようですね。
お金の絡むものを作るときには、万全に作らないといけないので、私も真剣に考えさせていただきます。

>ボタンを押すたびに、表示される行が変わっていくように作っていました。

それはそれでよいと思います。

>誰でもデータの入力と、変更を行えるものを作る必要があったのです。

今回、私が作りきれなかった一つに、修正をどうするか、という問題に、良い案が出なかったと言うか、今まで、修正の段になってUserForm による方法を断念せざるを得なかった経験があります。もちろん、

ワークシートメニューのデータ--フォームというスタイルを、UserForm に行わせるぐらいのマクロは作れます。それでも、なんとなくシックリとしてこないのです。

前回は、やむを得ず、ワークーシートに貼り付ける前に、MsgBox で確認する方法を取りました。間違いなく、入力できたかというメッセージですが、後で気が付いたときに、どうするか、というような問題も発生します。今のままでは、直接上書きしても、そこでは、数値が変わりませんね。

そこで、私からの提案ですが、

UserForm の中で表示することはしても、値をそのまま貼り付けるのではなく、私は、数式を貼り付ける方法をとったらどうか、と思うのです。

それと、UserForm ではなく、コントロールツールをワークシートに貼り付けておくと、そのまま、入れることが可能です。(以下の図）

万が一、自分がいなくても、誰かが、データの部分(名前、生年月日、入所年月日）のところさえ、変えてくれれば、それですぐに変更が可能です。

それと、仕事上、たぶん、
#2 さんの、　=DATEDIF(B2,TODAY(),"Y")　をお借りして、

TODAY()という、自動入力は、どこか、別のセルに、名前定義登録をして「今日」として、=TODAY() を置き、

=DATEDIF(B2,今日,"Y")

とすると、作成するシートは、[○月○日付け現在]というシートが出来上がります。

一例：

ワークシート(UserForm の起動がいらない）
---------------------------------------------------
[A1]　　　TextBox1　 TextBox2　 TextBox3　 コマンドボタン　　[日付]　←名前-定義－登録[今日]
==================================================　←ウィンドウ枠の固定
　↑
A1に行数を入れる(コマンドボタンで、1つ加算）
　　　　　　　実際のデータ　　数式の部分は自動的に保護

-----------------------------------------------------

スクロールしても、テキストボックスの行の部分は、動きません。

なお、数式は、R1C1　方式でみると、列を変えなければ、全部同じですから、マクロでは簡単です。最初から入れておいてもよいのですが、マクロの場合は、同じことです。

まず、こんなアイデアを考えましたが、それでよかったら、少し加えていきたいと思います。

>私の職場では、エクセルの罫線を引くのもままならない人がいるので・・・

私の経験ですが、女の人は、年配の人でも、なんとか覚えるような気がします。ただ、男性の場合は、しないでほしいというような人がいることもあります。

どうしたら、そんなような状態にしてしまうか、想像の付かないようなトラブルを発生する人がいますので、見える部分よりも、起動時にバックアップを取るようなシステムを作ります。ファイルとしては、起動前に戻るだけです。私のところでは、標準装備の「自動保存」は、マクロ付きのファイルには、あまり調子よくありません。私の使っているのは、特殊なマクロですが、マクロの動いている最中でも、どうも割り込みが入るらしいのです。それに、設定されているようなサイクルで保存が必要ではないのです。

お礼

ありがとうございます。
たしかに、無理に全てをマクロで作るのではなく
行を数式を入れたまま、増やすというのは、一番楽
カも知れないです。それなら、そのまま、ワークシートの
関数を使えますし。
この方法で、試してみます。

実は私は、事務屋ではなく、入所している方の
援助をしながらの作業なので、作業結果のレスが
遅れるかもしれないですが、すみませんです。
何度も、本当にありがとうございます。