Excelマクロで質問です。 月.xlsx←① 火木.xlsx←② 水金.xlsx←③ というブックがあります。 これを、その曜日ブックを、その曜日の日にちの名前にしたいです。
Excelマクロで質問です。 月.xlsx←① 火木.xlsx←② 水金.xlsx←③ というブックがあります。 これを、その曜日ブックを、その曜日の日にちの名前にしたいです。 今月だと、 ①のブックで、 6.xlsx 13.xlsx 20.xlsx 27.xlsx ②のブックで 7.xlsx 9.xlsx 14.xlsx 16.xlsx 21.xlsx 23.xlsx 28.xlsx 30.xlsx という感じです。 作成ブック.xlsmを作り、①②③を開けて名前を付けて保存していこうと思ったのですが、 日にちと曜日の取得の仕方が分かりません。 よろしくお願いします。
Excel | Visual Basic・48閲覧
ベストアンサー
今月の日付でいいのであれば、以下のようなものでしょうか？ ・対象パスをマクロファイルのフォルダーとしています。違うのであれば、適宜に修正してください。 ・「Private Sub CommandButton1_Click()」はACTIVEXのボタンの場合です。実施環境にあわせてください。 Private Sub CommandButton1_Click() Dim iFirstDate As Long, ii As Long ''今月１日の日付を求める。 iFirstDate = DateValue(Format(Now(), "yyyy/mm/01")) ''１日～月末まで曜日によりファイルをコピーする。 With ThisWorkbook For ii = iFirstDate To DateAdd("m", 1, iFirstDate) - 1 Select Case Weekday(ii) Case vbMonday FileCopy Source:=.Path & "\月.xlsx", Destination:=.Path & "\" & Format(ii, "d") & ".xlsx" Case vbTuesday, vbThursday FileCopy Source:=.Path & "\火木.xlsx", Destination:=.Path & "\" & Format(ii, "d") & ".xlsx" Case vbWednesday, vbFriday FileCopy Source:=.Path & "\水金.xlsx", Destination:=.Path & "\" & Format(ii, "d") & ".xlsx" Case Else End Select Next ii End With End Sub
この返信は削除されました
質問者からのお礼コメント
ありがとうございます！
お礼日時：6/25 20:07
