Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

50420 / 76738

←次へ　｜　前へ→


	【31207】Re:日付を設定して印刷する

ichinose - 05/11/14(月) 16:19 -


	引用なし

	パスワード

▼こたつねこさん、AOさん、こんにちは。

>
>>このﾏｸﾛを利用して日付を印刷したところ11月まではちゃんと印刷できますが
>>12/1では印刷できませんなぜでしょうか　宜しくお願いします
>
>DateValue関数は日付形式の文字列をシリアル値として取得します。
>なので
>>>　　fstDate = Worksheets("Sheet1").Range("N3").Value
>が2005/12/1の場合
>Year(fstDate) & "/" & Month(fstDate) + 1 & "/1"
>の文字列は"2005/13/1"となりますよね？
>こんな日付はありえませんよね？
>なのでエラーになります。

　　lstDate = DateSerial(Year(fstDate), Month(fstDate) + 1, 0)

または、

　　lstDate = DateSerial(Year(fstDate), Month(fstDate) + 1, 1)-1

とすれば、ＯＫだと思います。試してみてください。

0 hits

▼

【14057】日付を設定して印刷する pig 04/5/19(水) 14:19