Excel VBA質問箱 IV

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

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


60536 / 76736 ←次へ | 前へ→

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

引用なし
パスワード
   ▼Asaki さん:
こんばんは。

いつもありがとうございます。シュミレーションのサンプルを漬けていただき、
よく分かりました。これで21から20日までのサイクルの処理の仕方が
よく分かりました。ありがとうございます。実際にフォルダーに各種ファイルを
格納できる事も分かりました。貴殿の書いていただいてコードで、元号が変わらない
限り、ず〜っと使用できると理解しても良いのですね。

もう一つ教えていただきたいのですが。・・・フォルダーを自動で作って発生させていました。順調に動いていたのですが、これも12月21日にトラブルが出て、手動でフォルダーを作って免れています。自動のコードもチェックいただけませんでしょうか。
よろしくお願いします。

素晴らしいコードが書かれていて、本当に感謝感激です。
test()
>  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-mm") & "月分\明細表" & Format(dt, "mm-dd")
>End Sub


ここからが自動のコードですチェックをお願いします。
Sub Auto_Open()

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

  If Day(Date) > 20 Then
   CkM = Month(DateAdd("m", 1, Date))
  Else
   CkM = Month(Date)
  End If

  If Dir(PFol & "明細表" & Format(Date, "yy") + 12 & "-" & _
    CkM & "月分", 16) = "" Then

   MkDir PFol & "明細表" & Format(Date, "yy") + 12 & "-" & _
    CkM & "月分"

   MsgBox " 「こんにちは」 新しい月が始まりました !" & Chr(10) & _
   "    当月のフォルダー" & Chr(10) & _
   "「明細表" & Format(Date, "yy") + 12 & "-" & CkM & "月分」" & _
   "を作成しました !", 64

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

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