Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
60534 / 76732 ←次へ　｜　前へ→
【20836】Re:フォルダー（該当月21日〜翌月20日サイクル）のファイル作成について
回答  Asaki  - 04/12/21(火) 21:25 -
引用なし
パスワード
   ごめんなさい。
さっきのでは、ダメそうです。
A1に色々な日付を入力して実行してみてください。

Sub test()
　　Dim dt1　　 As Date
　　Dim dt2　　 As Date
　　Dim nen　　 As String
　　Dim tsuki　 As String
　　Dim hi　　　As String

　　dt1 = Cells(1, 1).Value
　　hi = Format(dt1, "dd")
　　If Day(dt1) > 20 Then
　　　　dt2 = DateSerial(Year(dt1), Month(dt1) + 1, Day(dt1))
　　　　nen = Format(dt2, "e")
　　　　tsuki = Right("0" & Month(dt2) + CLng(Day(dt1) <> Day(dt2)), 2)
　　Else
　　　　nen = Format(dt1, "e")
　　　　tsuki = Format(dt1, "mm")
　　End If
　
　　MsgBox "明細表" & nen & "-" & tsuki & "月分\明細表" & tsuki & "-" & hi
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 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
60534 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free