Excel VBA質問箱 IV

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

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


66834 / 76732 ←次へ | 前へ→

【14457】Re:自動フォルダーの作成
質問  YN61  - 04/5/29(土) 22:14 -

引用なし
パスワード
   ▼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

0 hits

【14395】自動フォルダーの作成 YN61 04/5/28(金) 8:01 質問
【14400】Re:自動フォルダーの作成 Asaki 04/5/28(金) 9:14 回答
【14417】Re:自動フォルダーの作成 Kein 04/5/28(金) 15:07 回答
【14443】Re:自動フォルダーの作成 YN61 04/5/29(土) 8:47 お礼
【14453】Re:自動フォルダーの作成 Kein 04/5/29(土) 17:18 回答
【14456】Re:自動フォルダーの作成 YN61 04/5/29(土) 21:42 お礼
【14457】Re:自動フォルダーの作成 YN61 04/5/29(土) 22:14 質問
【14458】Re:自動フォルダーの作成 Kein 04/5/30(日) 0:51 発言
【14461】Re:自動フォルダーの作成 YN61 04/5/30(日) 7:30 お礼
【14465】Re:自動フォルダーの作成 YN61 04/5/30(日) 11:51 質問
【14476】Re:自動フォルダーの作成 Kein 04/5/30(日) 16:29 発言
【14477】Re:自動フォルダーの作成 Kein 04/5/30(日) 16:32 発言
【14487】Re:自動フォルダーの作成 YN61 04/5/30(日) 17:40 お礼

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