こんにちは、違うサイトで見つけたマクロなんですけど、そのマクロについての質問です。以下がそのマクロです。
Sub MakeNippo()
Dim StartDy As Date
Dim EndDy As Date
Dim Celldy As Date
Dim i As Integer
Dim Sh As Worksheet
Dim ShNum As Integer
Dim Wdy As Integer
Set Sh = Worksheets("日報1")
StartDy = CDate(Range("A2"))
EndDy = CDate(Range("C2"))
Celldy = StartDy
Wdy = Format(StsrtDy, "w")
ShNum = 1
Do While Celldy < EndDy
For i = 4 + Wdy To 11
Sh.Cells(i, 1).Value = Format(Celldy, "ggge年mm月dd日")
Celldy = Celldy + 1
If Celldy > EndDy Then Exit For
Next
If Celldy < EndDy Then
Worksheets("原紙").Copy after:=Sh
ShNum = ShNum + 1
Set Sh = ActiveSheet
Sh.Visible = xlSheetVisible
Sh.Name = "日報" & ShNum
Wdy = 1
End If
Loop
End Sub
日付をA2とC2に入れるとその間の日付が1週間づつシートに出力されるマクロなのですが、このまま実行するとA5,A6,A7,A8,A9,A10,A11に日付が出力されます。
これをA7,A14,A21,A28,A35,A42,A49に(7行おきに)日付を出力したいのですが
このマクロのどの部分を変えれば良いのでしょうか?当方マクロは何の事やらさっぱり解らないのでどなたか助けていただけないでしょうか?よろしくお願いします
No.1ベストアンサー
- 回答日時:
For の次を
Sh.Cells(i, 1).Value = Format(Celldy, "ggge年mm月dd日")
↓
Sh.Cells(7 + (i - 4 - Wdy) * 7, 1).Value = Format(Celldy, "ggge年mm月dd日")
と変えればいいと思います。
前半の、Wdy = Format(StsrtDy, "w") はWdy = Format(StartDy, "w") のうち間違い?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/22 08:53
- Visual Basic(VBA) 2つ目のコンボボックスが動作しません。 3 2023/03/25 12:29
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/17 11:59
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) Sheet3から2つの条件でオートフィルターで抽出した個数をSheet2へ入力するマクロで、一つ目の 4 2023/01/12 23:40
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
メッセージボックスのOKボタ...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
一つのTeratermのマクロで複数...
-
EXCELのVBAでRange("A1:C4")を...
-
Excel VBAからAccessマクロを実...
-
ExcelのVBA。public変数の値が...
-
ソース内の行末に\\
-
ピボットテーブルでの毎回可変...
-
特定文字のある行の前に空白行...
-
ExcelVBAでPDFを閉じるソース
-
マクロの連続実行
-
TERA TERMを隠す方法
-
エクセルに張り付けた写真のフ...
-
VBA初心者 Ctrl+での操作、ボタ...
-
TeraTermマクロの文字列結合
-
エクセルのマクロについて教え...
-
エクセル マクロ 指定日の指定...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
他人が作ったマクロの理解
-
ExcelVBAでPDFを閉じるソース
-
TERA TERMを隠す方法
-
エクセルで別のセルにあるふり...
-
マクロ実行時、ユーザーフォー...
-
Excel VBAからAccessマクロを実...
-
EXCELのVBAでRange("A1:C4")を...
-
TeraTermマクロの文字列結合
-
PDF出力マクロについて。マクロ...
-
#defineの定数を文字列として読...
-
エクセルのマクロをセルの値に...
-
wordを起動した際に特定のペー...
おすすめ情報