[[20160204135353]]　『自動で年齢を表示？』（事務マスター）　ページの最後に飛ぶ

『自動で年齢を表示？』（事務マスター）

はじめまして！
わからないことがあり教えて下さい。

セルＢに手打ちで「27」と数字を入力してあります。
この数字は年齢になります。

やりたい事は、各年度（4月）でセルＢに入力された
年齢が自動で変わるようにしたいと思っています。

2016年4月になればセルＢが「28」
2017年4月になればセルＢが「29」
・
・
・
と変わっていくようにやりたい場合、どのような式
でできますでしょうか？

宜しくお願いします。

＜使用 Excel：Excel2010、使用 OS：unknown ＞

 手打ちした個所を変更するにはマクロじゃないとできないと思います。
 式で行うにはどこかに生年月日を入力しておいて、基準日から算出という
 形になるかと思います。
（ろっくん） 2016/02/04(木) 14:42

B1=TEXT(TODAY(),"yyyy")*1-1989+IF(TEXT(TODAY(),"mm")*1>=4,1,0)
（mm） 2016/02/04(木) 14:59

（ろっくん）さん

　ありがとうございます。

　マクロを使った場合、どのようなプログラムになりますでしょうか？

（ｍｍ）さん

　ありがとうございます。

　
（事務マスター） 2016/02/04(木) 15:32

 単に入力された数字を4月1日に1増やすだけですので
 マクロでやるのは簡単です（4月1日に手動で実行する）が、
 どこかに生年月日を入力しておいて計算させるほうが安全と思います。

 下記サンプルは1シート目のセルB1に対してのみ実行するマクロです。
 Sub test()
    Dim Rng As Range
    Set Rng = ThisWorkbook.Sheets(1).Range("B1")
    If Len(Rng.Value) * IsNumeric(Rng.Value) Then Rng.Value = Rng.Value + 1
 End Sub
（ろっくん） 2016/02/04(木) 15:54

（ろっくん）さん

　大変助かります！！
　ありがとうございます。
（事務マスター） 2016/02/04(木) 16:11

（ろっくん）さん

　再質問があります！

　セルＢ1に対してのみの実行でしたが、範囲がＢ1からＤ10の広範囲の場合
　はどのようにすれば宜しいでしょうか？

　宜しくお願いします。
（事務マスター） 2016/02/04(木) 16:38

[[20160205153936]]　『ＶＢＡを使ってやりたいことがあります！』（悩む事務）

 で再質問。
（ねむねむ） 2016/02/05(金) 16:42

はぁ～～難しいよね、ＶＢＡ

（悩む事務） 2016/02/05(金) 16:49

コメント返信：

[ 一覧(最新更新順) ]

[[20160204135353]] 『自動で年齢を表示？』（事務マスター） ページの最後に飛ぶ

[[20160204135353]]　『自動で年齢を表示？』（事務マスター）　ページの最後に飛ぶ