OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

マクロの質問!

  • すぐに回答を!
  • 質問No.108130
  • 閲覧数31
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 14% (1/7)

こんにちは、違うサイトで見つけたマクロなんですけど、そのマクロについての質問です。以下がそのマクロです。
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行おきに)日付を出力したいのですが
このマクロのどの部分を変えれば良いのでしょうか?当方マクロは何の事やらさっぱり解らないのでどなたか助けていただけないでしょうか?よろしくお願いします
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル13

ベストアンサー率 68% (791/1163)

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") のうち間違い?
お礼コメント
ckkk

お礼率 14% (1/7)

早速の解答ありがとうございました。さっそく試してみたところ問題解決できました。ありがとうございました。
投稿日時 - 2001-07-23 14:34:15
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ