エクセル 二つの日付でどちらか早い方の日付を表示させたいのです

質問

エクセル　二つの日付でどちらか早い方の日付を表示させたいのです

現在
Range("A3").NumberFormat = "ggg ee 年 m 月 d 日"
Range("A3").Formula = "=DATE(YEAR(C2),MONTH(C2)+1,26)" セルC2の翌月２６日

セルA3にC2の条件を入れています
ここにもう一つのセルD2の日付の翌月２６日の条件を追加
Range("A3").Formula = "=DATE(YEAR(D2),MONTH(D2)+1,26)"　　セルＤ2の翌月２６日

二つの条件で、どちらか早い方をセルA3に表示させる
には　どの様にすれば良いでしょうか

よろしくお願いいたします

回答No.2

noname#144013 · ベストアンサー

こんにちは。

ご提示の記述では、VBAで処理されているようですが、やっている事はワーク
シートのセルに関数式を手入力するのと変わらないようです。

それならば、わざわざVBAを使うまでもなく、セルに直接関数式を設定すれば
良いように思われます。

VBAで行うならば、Formulaプロパティに関数式を設定するよりも、VBA内の
判定及び計算により、日付を計算し、直接Valueプロパティに、計算した日付
を設定する方が自然なように思います。

注）上記はあくまでも私の個人的な感想ですので、あまりお気になさらないで
　　下さい。

というわけで本題です。

上記を踏まえて、
　（１）ワークシートのセルに直接関数式を設定する場合
　（２）VBAにて、セルに関数式を設定する場合
　（３）VBAにて、内部で計算した日付をセルに設定する場合
の３パターンを作成してみました。

（１）セルに直接関数式を設定する場合
　＜A3に設定する数式＞
　　=IF(OR(ISNUMBER(C2)=FALSE,ISNUMBER(D2)=FALSE),
　　IF(ISNUMBER(C2),DATE(YEAR(C2),MONTH(C2)+1,26),
　　IF(ISNUMBER(D2),DATE(YEAR(D2),MONTH(D2)+1,26),"")),
　　IF(DATE(YEAR(C2),MONTH(C2),1)<=DATE(YEAR(D2),MONTH(D2),1),
　　DATE(YEAR(C2),MONTH(C2)+1,26),DATE(YEAR(D2),MONTH(D2)+1,26)))
　　※上記の数式は、表示の都合上複数行になっていますが、実際の入力では、
　　　１行で記述して下さい。

　＜A3の書式（表示形式）＞
　　【表示形式】タブの設定
　　・分類　：　ユーザー定義
　　・種類　：　ggg ee "年" m "月" d "日"

　＜数式の補足＞
　　・元になるC2およびD2の日付に対して、双方とも、翌月26日にする部分は
　　　同じなため、日付の大小判定は、元の日付の【年月】で比較しています。
　　・C2及びD2に日付（数値）が入力されていない場合を考慮して、エラー値が
　　　表示されない対策をとっています。そのため、数式が長くなっています。
　　　（もっと簡単な記述の仕方があるかもしれませんが。。。）
　　　【例外処理】
　　　　１．C2のみに日付（数値）が入力されている場合
　　　　　　⇒A3には、C2の日付の翌月26日の日付を表示
　　　　２．D2のみに日付（数値）が入力されている場合
　　　　　　⇒A3には、D2の日付の翌月26日の日付を表示
　　　　３．C2とD2双方とも、日付（数値）でなかった場合
　　　　　　⇒A3には、空白を表示

（２）VBAにて、セルに関数式を設定する場合
　・下記『■マクロソース』のリンク先ソースの関数「SelectDate1」をご覧下さい。

（３）VBAにて、内部で計算した日付をセルに設定する場合
　・下記『■マクロソース』のリンク先ソースの関数「SelectDate2」をご覧下さい。

注）上記３バターンに共通した注意事項
　　C2の日付とD2の日付に加減算する部分（翌月26日にする）が、それぞれ別々に
　　加減算した日付にする場合（C2には翌月10日、D2には翌月20日など）は、日付
　　の大小判定で参照する日付も、『加減算した後の日付』で大小判定を行うように
　　修正して下さい。

■マクロソース(※下記リンク先参照）
http://ideone.com/yfl2N

以上です。

お礼

誠に　ご指導ありがとうございます
おっしゃる通りだと思います

勉強いたします。
コードはとっても勉強になりました。

回答No.1

imogasi

エクセルのシートの日付の「セルの値」は、日付シリアル値という正整数の値であることを知らないのでは。
1900年1月１日からその日までの序数（何番目の日であるか）を示している。
WEBででも「日付シリアル値」で照会して勉強のこと。
従って日付の前後は日付シリアル値の大小になる。セルのValueを大小比較し判定すれば良い。
VBAを使うらしいが、あくまでエクセルのVBAでエクセルのことを知って居ないと、良いプログラムは組めないのだ。