Excel VBA質問箱 IV

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

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


60527 / 76732 ←次へ | 前へ→

【20843】Re:フォルダー(該当月21日〜翌月20日サイクル)のファイル作成について
回答  Asaki  - 04/12/22(水) 9:20 -

引用なし
パスワード
   時間的に、一番最後のやつを使ってください。
少なくとも、1番最初のやつは上手く行きませんから。(元の日付が1/31の場合など)

Sub test()
  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-mm") & "月分\明細表" & Format(dt2, "mm") & "-" & Format(dt1, "dd")
End Sub

かみちゃん さんもおっしゃってますが
一番最初の
>12月21日には、「明細表17−01月分」のフォルダーに「明細表01-21」のファイルに仕上げたい

>2005/1/21と入れてマクロをすると「明細票16−2月分¥明細票02−21」になります
>→何とか「・・・¥明細票01−21」と出したいのですが・・・
では、内容が違います。
後者でよいですね?
つまり、12/21 は「明細票17-01月分」フォルダに「明細票12-21」のファイルが作成される。
これであれば
  MsgBox "明細表" & Format(dt2, "e-mm") & "月分\明細表" & Format(dt1, "mm") & "-" & Format(dt1, "dd")
にしてください。


フォルダを作成する方は↓のような感じでどうですか?
Sub Auto_Open()

 ' 自動発生(20日を過ぎた時点で翌月分ホルダー作成)
  Dim str   As String
  Dim dt   As Date
  Const PFol As String = "U:\AA\"

  '20日を過ぎていたら1ヶ月加算
  If Day(Date) > 20 Then
    dt = DateAdd("m", 1, Date)
  Else
    dt = Date
  End If

  str = PFol & "明細表" & Format(dt, "e-mm") & "月分"
  If Dir(str, vbDirectory) = "" Then
    MkDir str
    MsgBox " 「こんにちは」 新しい月が始まりました !" & vbLf & _
      "    当月のフォルダー" & vbLf & Replace(str, PFol, "") & "を作成しました !" _
      , vbOKOnly + vbInformation
  End If

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 お礼

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