ＤＡＴＥ関数とＴＥＸＴ関数で作成しています。

質問

ＤＡＴＥ関数とＴＥＸＴ関数で作成しています。
みんなが使うので、
セルをＤＥＬＥＴＥしますと、消えてしますので、ＶＢＡで作成したいと思います。
Ａ１セルに年、Ｂ１セルに月、Ｃ１セルに日を入力しております。

Ｄ１にＤＡＴＥ（Ａ１，Ｂ１,Ｃ１）、Ｅ１にはＩＦ（Ｂ１＝””，””，（ＴＥＸＴ（ＤＡＴＥ（Ａ１，Ｂ１，Ｃ１））を入力してます。
これをＶＢＡで作成したいのですが、
sub 日付（）

formura 日付（A1,B1,C1)ここからがわかりません。

end sub

よろしくお願いします。

回答No.2

buraigasho · ベストアンサー

曜日はFormat関数でできますよ。

Range("E1") = Format(DateSerial(Range("A1"), Range("B1"), Range("C1")), "ggge年mm月dd日")

の"ggge年mm月dd日"ここを"aaa"若しくは"aaaa"と変えてみてください。

Range("E1") = Format(DateSerial(Range("A1"), Range("B1"), Range("C1")), "aaa")

詳しくはFormat関数ヘルプで!

回答No.1

imogasi

日付シリアル値（初めてならWEB照会のこと）でよければ
Sub test01()
Range("D1") = DateSerial(Range("A1"), Range("B1"), Range("C1"))
End Sub
文字列を望むなら平成22年08月05日　　のような例で
Sub test01()
Range("E1") = Format(DateSerial(Range("A1"), Range("B1"), Range("C1")), "ggge年mm月dd日")
End Sub
前者は+1などできます（翌日）。そのセルに書式設定も自由に出来ます。
組織設定はNumberFormatでFormulaではない。後者は関数式指定の場合です。
式を壊されたくないのでVBAを使うなら、その方法は合いません。
後者は+1できません。書式も内容的ですが、既に決っています。

補足

早速の回答ありがとうございます。
日付できました。
後、年月日の曜日を表示したいのですが、どのようにＶＢＡを追加すればよろしいでしょうか。
よろしくお願いします。

formura(yobi　as date)

yobi=( 日付,1（"日",”月","火","水","木","金","土",)
end formura

わからないですが、書いてみました。
よろしくお願いします。