|
▼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
|
|