Excel VBA 質問スレ Part80(ﾜｯﾁｮｲあり)

Excel VBA 質問スレ Part80(ﾜｯﾁｮｲあり)at TECH

Excel VBA 質問スレ Part80(ﾜｯﾁｮｲあり) - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

50:デフォルトの名無しさん 
 24/04/09 13:32:38.30 CNAyRCwJM.net
ボタンを配置して押すごとに一週間分作成という風にしたいです。

51:デフォルトの名無しさん 
 24/04/09 13:34:22.65 CNAyRCwJM.net
>>49 
誠に勝手ながらコードを教えて欲しいです

52:デフォルトの名無しさん 
 24/04/09 14:44:25.19 EBugvdEwM.net
>>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

次ページ