| |
▼Asaki さん：
ご親切なご指導ありがとうございました。
貴重な時間を裂いていただき、本当に感謝しています。
またフォルダーの作成までお願いして、本当に申し訳ありませんでした。
このフォルダー作成のレベルになると理解が少し厳しいです。徐々に勉強して行きますので、今後ともよろしくお願いします。
>時間的に、一番最後のやつを使ってください。
>少なくとも、1番最初のやつは上手く行きませんから。（元の日付が1/31の場合など）
早速一番最初のご提示いただいたものを今日、使わせていただきましたが、問題なく、動いています。素晴らしい！の感激の一言ですが･･･問題あるでしょうか？
Sub test1()
Dim dt As Date
dt = Cells(1, 1).Value
If Day(dt) > 20 Then
dt = DateSerial(Year(dt), Month(dt) + 1, Day(dt))
End If
MsgBox "明細表" & Format(dt, "e-m") & "月分\明細表" & _
Format(Date, "mm-dd") & ".xls"
End Sub
下から２行目を「Format(Date,"mm-dd")」
で問題なさそうに思いますが、また思い通りに動いて・展開していますが。･･･
→元の日付が1/31の場合など、上手く行かないとのご指摘をいただいていますが、上手くいってるようですが、どのような意味でしょうか？
一番最後のコードも残しておきます。万が一、最初のもの(上のコードですが）がトラブル（トラブルと思いませんが）が発生したときに、代用するようにします。
>
>かみちゃん さんもおっしゃってますが
>１２月２１日には、「明細表１７−０１月分」のフォルダーに「明細表01-21」のファイルに仕上げたい
→これは、「明細表１７−１月分」のフォルダーには
「明細表12-21」から「明細表01-20」までファイル（毎日作成するデータですが）が格納される事を意味しています。
集計したファイルを、フォルダーに格納する仕事がルーティーンのワークになっています。もし、問題が発生しましたら、また質問をさせていただくかと思います。
これからも、よろしくお願いします。
|
|
YN61
- 04/12/22(水) 19:29 -
