|
okitsun さん、こんにちわ。
>AxとしてA3のセルを指定することが出来るのでしょうか。
いろんな方法がありますが。(Addressでセル位置を確認)
Sub test()
x = 3
MsgBox Cells(x, 1).Address(False, False), vbInformation, "Cellsの行引数その1"
MsgBox Cells(x, "A").Address(False, False), vbInformation, "Cellsの行引数その2"
MsgBox Range("A1").Offset(x - 1, 0).Address(False, False), vbInformation, "Offsetの使用"
End Sub
>●同じように、X4としてC4のセルを指定することが出来るので
>しょうか。
Sub test()
x = 4
MsgBox Cells(x, 3).Address(False, False), vbInformation, "Cellsの行引数その1"
MsgBox Cells(x, "C").Address(False, False), vbInformation, "Cellsの行引数その2"
MsgBox Range("A1").Offset(x - 1, 2).Address(False, False), vbInformation, "Offsetの使用"
End Sub
列がAだったりCだったりの分岐に意味があるのなら、そこも条件で与えればいいです。
|
|