|
▼Kein さん:
もう少し教えてください。
下のコードは最初にいただいたコードです。
Elseの後のCkm=month(Date)は具体的にはどのような意味なんでしょうか。
コメントいただけませんでしょうか。
(小生の理解ですが、20日以上の日の時は翌月の、さもなければ今月?と
理解したのですが・・・ちょっとおかしいですね。)
それから9行目のDir関数の前にMkDirと書かれていますが、このMkは何を
意味するのでしょうか。
イベントマクロは順調に動いています。ありがとうございました。
>Sub Make_ThisMonth_Folder()
> Dim CkM As Integer
> Const PFol As String = "C:\My Documents\"
>
> If Day(Date) > 20 Then
> CkM = Month(DateAdd("m", 1, Date))
> Else
> CkM = Month(Date)
> End If
> If Dir(PFol & CkM & "月集計", 16) = "" Then
> MkDir PFol & CkM & "月集計"
> Else
> MsgBox "既に当月のフォルダーが存在します", 64
> End If
>End Sub
|
|