列 数値で指定するにはどうすればいいでしょうか？

質問

ActiveSheet.PageSetup.PrintArea = "$A$1:$C$10"

このような書き方を、列の値をアルファベットで
指定するのではなく
数値で指定するにはどうすればいいでしょうか？

cells(1,1) cells(10,3)
のような方法で指定したいです。

回答No.3

watabe007

こんばんは
>cells(1,1) cells(10,3)
>のような方法で指定したいです。
ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(10, 3)).Address

回答No.2

kkkkkm

以下のような方法もあります

With ActiveSheet
.Range(.Cells(1, 1), .Cells(10, 3)).Select
.PageSetup.PrintArea = Selection.Address
End With

回答No.1

tom04

こんばんは！

印刷範囲の設定はR1C1形式でやらなければならないようですので・・・
一例です。

ActiveSheet.PageSetup.PrintArea = Cells(1, 1).Address & ":" & Cells(10, 3).Address

のようにしてみてはどうでしょうか？m(_ _)m