エクセルの学校：全文検索：Hyper Estraier： VBA��

Results of 1 - 1 of about 14741 for VBA�� (0.003 sec.)

[[20210914125736]]: #score: 3407; @digest: 3426602bd38d44e26322ae46cafb3b0d; @id: 88981; @mdate: 2021-09-16T08:01:51Z; @size: 2295; @type: text/plain; #keywords: 頭年 (30483), 度頭 (19867), 下十 (7380), 降生 (6766), 生年 (4428), 年齢 (3944), datevalue (3836), す限 (3712), 日足 (3387), 齢を (3361), 十数 (2797), datedif (2302), じや (2164), year (2033), 年度 (1909), ト関 (1798), 月日 (1776), 年月 (1730), today (1629), 理そ (1507), の年 (1394), 生ま (1284), 月1 (1154), cel (1115), やさ (986), の生 (940), 月な (923), 年の (872), 前年 (750), 試す (727), 2021 (717), 算出 (693); 『生年月日から年度頭年齢をVBAで』（かじやさん）
生年月日から、年度頭年齢を算出したいです。 A1セルに入っている生年月日をもとに、B1セルに年度頭年齢を入力したいのですが、シート関数を使いたくありません。 VBAでできますか? ＜使用 Excel:Excel2016、使用 OS:Windows10 ＞ ---- 年度頭年齢とは? シート関数でできているなら、数式を提示していただければ回答が付きやすいでしょう。（わからん） 2021/09/14(火) 13:15 ---- 失礼しました。その年度の4月1日の年齢のことです。 4月〜12月なら、その年の4月1日の年齢を、1月〜3月なら前年の4月1日の年齢を知りたいです。一応、A1セルに生年月日を入れて↓のシート関数をB1セルに放り込めば正しい結果は出るのですが、今回は関数を使うと上手く表が作れなくなるため、できればVBAで解決したいです。 =DATEDIF(A1,IF(MONTH(TODAY())>4,DATEVALUE(YEAR(TODAY())&"/04/01"),DATEVALUE(YEAR(TODAY())&"/04/01")),"Y") （かじやさん） 2021/09/15(水) 23:14 ---- 追記します。生年月日が入っているのはA1セルだけではなく、A2以下十数行もです。それらの生年月日に対応する4月1日時点の年齢を、B列に表示したいです。（かじやさん） 2021/09/15(水) 23:32 ---- =DATEDIF(A1,IF(MONTH(TODAY())>4,DATEVALUE(YEAR(TODAY())&"/04/01"),DATEVALUE(YEAR(TODAY())&"/04/01")),"Y") ‾‾‾‾‾‾‾‾‾‾‾‾‾↑‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾ ‾‾‾‾‾‾‾‾‾‾‾‾‾‾↑‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾ まったく同じですよ? まったく同じ関数なら =DATEDIF(A1,DATE(YEAR(TODAY()),4,1),"Y") でいいです。で、4/2以降生まれた人は、274日足してやると翌年の生まれの人と同じになります。すると歳は、「今年の年」-「水増し年」でも算出できます。つまり、=YEAR(TODAY())-YEAR(A3+274) VBAなら Sub age() Debug.Print Year(Date) - Year(Range("A1") + 274) End Sub Sub age() Dim cel As Range For Each cel In Range("A1:A10") cel.Offset(, 1) = Year(Date) - Year(cel + 274) Next End Sub （半平太） 2021/09/15(水) 23:54 ---- datedifの開始日に変数を入れることができれば解決なのですが、試す限りでは無理そうですね…。（かじやさん） 2021/09/16(木) 16:52 ---- ＞試す限りでは無理そうですね…。無理じゃないと思いますが、質問は、これだったんじゃないですか? ↓ ＞VBAでできますか? VBA案を書きましたけど、読んでないのですか? （半平太） 2021/09/16(木) 17:01 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202109/20210914125736.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ