: デフォルトの名無しさん (ﾜﾝﾐﾝｸﾞｸ MM92-Svx8) [sage] 2024/04/09(火) 13:20:50.97 ID:CNAyRCwJM(1/7) AAS
すみません。初心者です。調べてもわからなかったので質問します。urlのようにまず一週間分の表を作って 一週間ごとにオートフィルすれば表がつくれるのですがそれをマクロでやりたいです。よろしくお願いいたします

---

48: デフォルトの名無しさん (ﾜﾝﾐﾝｸﾞｸ MM92-Svx8) [sage] 2024/04/09(火) 13:30:27.56 ID:CNAyRCwJM(2/7) AAS
画像ﾘﾝｸ

これでお願いいたします

---

50: デフォルトの名無しさん (ﾜﾝﾐﾝｸﾞｸ MM92-Svx8) [sage] 2024/04/09(火) 13:32:38.30 ID:CNAyRCwJM(3/7) AAS
ボタンを配置して押すごとに一週間分作成という風にしたいです。

---

51: デフォルトの名無しさん (ﾜﾝﾐﾝｸﾞｸ MM92-Svx8) [sage] 2024/04/09(火) 13:34:22.65 ID:CNAyRCwJM(4/7) AAS
>>49

49(1): デフォルトの名無しさん (ｽｯﾌﾟ Sd02-kwRZ) [sage] 2024/04/09(火) 13:31:59.88 ID:+lYdM27Td(1) AAS
質問とは

52(2): デフォルトの名無しさん (ﾌﾞｰｲﾓ MM02-Ky5X) [sage] 2024/04/09(火) 14:44:25.19 ID:EBugvdEwM(1) AAS
>>47
Sub 全自動で表を作るMacro1()
　　Dim da As Date
　　da = "1/1"　'この日からスタート
　　ro = 2
　　For we = 1 To 52　'52週間分作る
　　　　Cells(ro, 3).Resize(1, 3) = Array("a", "b", "c")
　　　　For lo = 1 To 7
　　　　　　Cells(ro + lo, 2) = da
　　　　　　da = da + 1
　　　　Next
　　　　Set ra = Cells(ro, 2).Resize(8, 4)
　　　　ra.Borders(xlEdgeLeft).LineStyle = xlContinuous
　　　　ra.Borders(xlEdgeLeft).Weight = xlMedium
　　　　ra.Borders(xlEdgeRight).LineStyle = xlContinuous
　　　　ra.Borders(xlEdgeRight).Weight = xlMedium
　　　　ra.Borders(xlEdgeTop).LineStyle = xlContinuous
　　　　ra.Borders(xlEdgeTop).Weight = xlMedium
　　　　ra.Borders(xlEdgeBottom).LineStyle = xlContinuous
　　　　ra.Borders(xlEdgeBottom).Weight = xlMedium
　　　　ra.Borders(xlInsideVertical).LineStyle = xlContinuous
　　　　ra.Borders(xlInsideVertical).Weight = xlMedium
　　　　ra.Borders(xlInsideHorizontal).LineStyle = xlContinuous
　　　　ra.Borders(xlInsideHorizontal).Weight = xlMedium
　　　　ro = ro + 8
　　Next
　　Range("B:B").Font.Name = "ＭＳ 明朝"
　　Range("C:E").Font.Name = "ＭＳ ゴシック"
　　Range("B:E").Font.Bold = True
　　Range("B:B").NumberFormatLocal = "m月d日 (aaa)"
End Sub

55(1): デフォルトの名無しさん (ﾜｯﾁｮｲ 43ce-Ky5X) [sage] 2024/04/09(火) 17:25:50.64 ID:GvF1xxBu0(1) AAS
>>54
Sub 一週間ずつコピペ追加Macro1()
　　ro = Cells(Rows.Count, 2).End(xlUp).Row
　　Cells(ro - 7, 2).Resize(8, 4).Copy Cells(ro + 1, 2)
　　For Each c In Cells(ro + 2, 2).Resize(7, 1)
　　　　c.Value = c + 7
　　Next
　　Columns("B").AutoFit
End Sub