Excel VBA 質問スレ Part80(ﾜｯﾁｮｲあり) (101ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

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

---

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

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.458s*