Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
60542 / 76736 ←次へ　｜　前へ→
【20832】Re:フォルダー（該当月21日〜翌月20日サイクル）のファイル作成について
回答  Asaki  - 04/12/21(火) 20:32 -
引用なし
パスワード
   こんばんは。

新規シートを追加して、A1セルに適当な日付を入力して↓を実行してみてください。
Sub 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
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 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
60542 / 76736 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free