Excel VBA 質問スレ Part78

[831 デフォルトの名無しさん (JP 0Hc7-j5s0) 2023/01/22(日) 16:53:25.56 ID:DNm1kf3fH]

>>827
Sub main()
Dim rng As Range
Set rng = Range(Cells(1, 1), Cells(2, 2)) '①

ActiveSheet.PageSetup.PrintArea = rng.Address
End Sub

みたいな感じで、①を都度指定したらできませんか？