EXCEL VBA

ＥＯＭＯＮＴＨ　関数にて、日付のみを表示させたのですが、どうすればいいのですか？

No.3 回答者： kobouzu_su 回答日時： 2007/07/14 09:03

こんにちは。

EOMONTHはVBAでは使えないので別な方法でやります。
例えば、セルＡ１　に適当な日付（年月日）が入力されてるとして、その月の末日を求める場合

'-----------------------------------------------------
Sub Test()
　　Dim myDate
　　myDate = Range("A1").Value
　　myDate = DateSerial(Year(myDate), Month(myDate) + 1, 0)

　　　　MsgBox myDate
　　　　MsgBox "今月の末日は、" & Day(myDate) & "日です"
End Sub
'-------------------------------------------------------

以上です。
　

この回答へのお礼

ありがとうございます。

出来ました。

お礼日時：2007/07/14 21:06

No.2 回答者： temtecomai2 回答日時： 2007/07/13 18:55

日付のみってどういう意味でしょうか。

EOMONTH は日付を返す関数ですが。

年月日の 日 という意味であれば
EOMONTH を記述したセルを右クリックして [セルの書式設定] をクリック。
<表示形式> タブの左側 <分類> の一覧で一番下の 「ユーザー定義関数」 を選択。
右側 <種類> に手書きで d とだけ入力してください。
EOMONTH の結果が 2007/7/31 なら 31 と表示されます。
31日 と表示させたいのであれば d"日" と入力します。

この回答への補足

質問が内容が足りませんでした。

補足しますと、ＶＢＡで当月末の日付を　メッセージ　(Ｍｓｇｂｏｘ　＿＿＿　)にて、表示させたいのです。

Ｍｓｇｂｏｘ　今月末は ○○ 日 というように・・・・。
ＥＯＭＯＮＴＨ関数を上手く利用できないかと思って先程質問をしました次第です。

補足日時：2007/07/13 20:45

No.1 回答者： dais4x 回答日時： 2007/07/13 18:52

セルの書式設定で

表示形式タブの
分類を【ユーザー定義】
種類を【dd】または【d】 としてください

この回答への補足

質問が内容が足りませんでした。

補足しますと、ＶＢＡで当月末の日付を　メッセージ　(Ｍｓｇｂｏｘ　＿＿＿　)にて、表示させたいのです。

Ｍｓｇｂｏｘ　今月末は ○○ 日 というように・・・・。
ＥＯＭＯＮＴＨ関数を上手く利用できないかと思って先程質問をしました次第です。

補足日時：2007/07/13 21:01