| |
▼きくちゃん さん：
こんにちは。
>>>
>>>「="小"&DATEDIF(B1,DATE(YEAR(TODAY()),4,1),"y")-5」
>>>こんな数式で出来ませんか（Ｂ１にシリアル値の生年月日）？
>>考え方は、↑でいいと思いますが、Today()を使用すると、月が１〜３のとき、
>>学年が変わってしまい（方法はあるけれど）、数式が複雑になるので
>>どこかのセルにたとえば、セルＥ１に年度を入力しておきます（2004等）。
>>
>>「="小"&DATEDIF(B1,DATE(E1,4,1),"y")-5」
>>
>>とした方がよいでしょうか？
>
>>名簿には、幼児から大学生まで含まれておりますので、
>>「=DATEDIF(B1,DATE(YEAR(TODAY()),4,1),"y")」で実行してみました。
>>本日の段階では、学齢は全て問題なく数値化されました。
>>月が１〜３のとき、
>>学年が変わってしまい（方法はあるけれど）、数式が複雑になる
>>というのは、2005年の１〜３月に実行した場合の事でしょうか？
そういうことです。
それに今日の時点で来年の学齢を求めたいと思っても出来ませんよね？
私は、↑これが引っかかっていたので年度指定が良いと思ったのですが・・・。
（この辺は、用途にもよるので一概には言えませんが）
今、学齢に一括変換できればそれでよいのであれば、どっちでも良いですね！！
取り合えず、Today()関数を使用する方法で行きましょうか？
学齢変換するシートは、
以下のようなレイアウトだとしましょうか
Ａ列（氏名）、Ｂ列（生年月日、シリアル値で）、Ｃ列（学齢）いずれも１行目は、項目名とします（仮にSheet1をシート名とします）。
Ａ Ｂ Ｃ
１ 氏名 生年月日 学齢
２ a 93/04/02
３ b 00/05/01
４ c 90/08/24
５ d 86/08/25
別のシートに対応表を作りましょう。
ここでは、シート名は、Sheet2します。
Ａ列には4/1時点の満年齢 Ｂ列は、学齢、いずれも１行目は、項目名とします。
Ａ Ｂ
１ 4/1時点での満年齢 学齢
２ 0 幼児
３ 6 小１
４ 7 小２
５ 8 小３
６ 9 小４
７ 10 小５
８ 11 小６
９ 12 中１
１０ 13 中２
１１ 14 中３
１２ 15 高１
１３ 16 高２
１４ 17 高３
１５ 18 大学
１６ 22 （未入力ではなく、空白を入れておきます）
セルＣ１６は、空白にして下さい（そうしないと、２２歳以上は、0になってしまいますから）。
こんな対応表を作成した場合、Sheet1の学齢セル（例えば、Ｃ２）には、
「=VLOOKUP(DATEDIF(B2,DATE(IF(MONTH(TODAY())>3,YEAR(TODAY()),YEAR(TODAY())-1),4,1),"y"),Sheet2!$A$2:$B$16,2,TRUE)」
こんな数式で「小５」と表示されます。
後は、オートフィル操作でよいと思いますが、ＶＢＡでするなら
標準モジュールに
'==========================================================
Sub main()
With Range("b2", Cells(Rows.Count, 2).End(xlUp))
If .Row > 1 Then
.Offset(0, 1).Formula = _
"=VLOOKUP(DATEDIF(B2,DATE(IF(MONTH(TODAY())>3,YEAR(TODAY()),YEAR(TODAY())-1),4,1)" & _
",""y""),Sheet2!$A$2:$B$16,2,TRUE)"
End If
End With
End Sub
Sheet1をアクティブにした状態で実行して下さい。
尚、Ｂ列の生年月日が入力してある行を基準にセル範囲を取得しています。
|
|
ichinose
- 04/10/27(水) 17:30 -
