Excel VBA質問箱 IV

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

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


60436 / 76736 ←次へ | 前へ→

【20939】Re:フォルダー(該当月21日〜翌月20日サイクル)のファイル作成について
質問  YN61  - 04/12/26(日) 20:52 -

引用なし
パスワード
   ▼Asaki さん:
>問題があるから、最後のやつを使ってくださいとお願いしています。
>A1に 1/31 と入力してtest1を実行したら、フォルダが3月分になるでしょう?
>2月分 にならなければいけませんよね?

確かに1/31と入力すると→「3月分」ホルダーになりました。一番最後のものを使わせせていただきます。
ただ、今日(12月26日)の処理をしますと

フォルダーは「1月分」で良いのですが、ファイル名が「明細表12ー26」で無いと
困るのですが、・・・このコードでは「明細表01−26」になります。

この件に関しましては、前回にも書かせていますが、最後のコードでは1月先の月日に
なるのですが・・・何処が問題なのでしょうか

(前回の質問の中で)
>>>12月21日には、「明細表17−01月分」のフォルダーに「明細表01-21」のファイルに仕上げたい
>>→これは、「明細表17−1月分」のフォルダーには
>>「明細表12-21」から「明細表01-20」までファイル(毎日作成するデータですが)が格納される事を意味しています。

>内容は分かっていますが、ご自分の記述内容が食い違っていることにお気づきでは有り
>ませんか?

>動作確認して、作成されるフォルダ名、ファイル名が本当に正しいかどうか(意図どお
>りか)再度チェックされることをお勧めします。

どのような意味なのか少し分かりにくいのですが、
1月分のフォルダーには・・・→「12月21日から1月20日」までのファイルが入る必要があります。最後にいただいたコードを動かすと「明細表17-01月分\明細票01-26」となります。
これでは無く「明細表17-01月分\明細票12-26」とならないとだめなんです。

最後に再度、今日の日にちがファイルに入る方法を教えていただきますよう、
お願い申し上げます。下のコードでよいでしょうか?
本当にご親切にありがとうございました、会社に行って直します。
ありがとうございます。

Sub test2()
  Dim dt1   As Date
  Dim dt2   As Date

  dt1 = Cells(1, 1).Value
  dt2 = dt1
  If Day(dt1) > 20 Then
    dt2 = DateSerial(Year(dt1), Month(dt1) + 1, Day(dt1))
    dt2 = DateSerial(Year(dt2), Month(dt2) + CLng(Day(dt1) <> Day(dt2)), Day(dt2))
  End If

  MsgBox "明細表" & Format(dt2, "e-m") & "月分\明細表" & _
  Format(Date, "mm-dd") & ".xls"

  '  Format(dt2, "mm") & "-" & Format(dt1, "dd")・・・これを上のコードと入  れ替えました
End Sub

0 hits

【20830】フォルダー(該当月21日〜翌月20日サイクル)のファイル作成について YN61 04/12/21(火) 19:12 質問
【20832】Re:フォルダー(該当月21日〜翌月20日サイ... Asaki 04/12/21(火) 20:32 回答
【20833】Re:フォルダー(該当月21日〜翌月20日サイ... Hirofumi 04/12/21(火) 20:37 回答
【20836】Re:フォルダー(該当月21日〜翌月20日サイ... Asaki 04/12/21(火) 21:25 回答
【20837】Re:フォルダー(該当月21日〜翌月20日サイ... Asaki 04/12/21(火) 21:49 発言
【20838】Re:フォルダー(該当月21日〜翌月20日サイ... YN61 04/12/21(火) 22:39 質問
【20840】Re:フォルダー(該当月21日〜翌月20日サイ... YN61 04/12/21(火) 23:41 質問
【20841】Re:フォルダー(該当月21日〜翌月20日サイ... かみちゃん 04/12/22(水) 0:30 発言
【20842】Re:フォルダー(該当月21日〜翌月20日サイ... YN61 04/12/22(水) 7:16 質問
【20843】Re:フォルダー(該当月21日〜翌月20日サイ... Asaki 04/12/22(水) 9:20 回答
【20851】Re:フォルダー(該当月21日〜翌月20日サイ... YN61 04/12/22(水) 19:29 お礼
【20906】Re:フォルダー(該当月21日〜翌月20日サイ... Asaki 04/12/24(金) 9:45 回答
【20939】Re:フォルダー(該当月21日〜翌月20日サイ... YN61 04/12/26(日) 20:52 質問
【20943】Re:フォルダー(該当月21日〜翌月20日サイ... Asaki 04/12/27(月) 10:00 回答
【20951】Re:フォルダー(該当月21日〜翌月20日サイ... YN61 04/12/27(月) 20:00 お礼
【20953】Re:フォルダー(該当月21日〜翌月20日サイ... Asaki 04/12/28(火) 9:32 回答
【20959】Re:フォルダー(該当月21日〜翌月20日サイ... YN61 04/12/28(火) 21:02 お礼
【20969】Re:フォルダー(該当月21日〜翌月20日サイ... Asaki 04/12/29(水) 11:11 発言
【21135】Re:フォルダー(該当月21日〜翌月20日サイ... YN61 05/1/12(水) 18:31 質問
【21144】Re:フォルダー(該当月21日〜翌月20日サイ... かみちゃん 05/1/13(木) 6:44 回答
【21178】Re:フォルダー(該当月21日〜翌月20日サイ... YN61 05/1/13(木) 20:48 お礼

60436 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free