VBA セルに入力されている数値でセルを指定する

質問

Excel VBA初心者です。

Sheet1のA1セルに10、A2セルに3を入力しています。
この入力したセルの数値を参照して、
Sheet2の「Cells(10,3)」(C10セル)を青(Interior.ColorIndex = 5)に
書式変更したいのですが、「Cells(”Sheet1.A1の値”,”Sheet1.A2の値”)」の
書き方がわかりません。

Excel2010を使用しています。
よろしくお願いします。

回答No.1

keithin · ベストアンサー

＞Sheet2の「Cells(10,3)」を

丁寧に、１０の箇所、３の箇所に該当のセルを指定するだけです。

sub macro1()
　worksheets("Sheet2").cells(worksheets("Sheet1").range("A1").value, worksheets("Sheet1").range("A2").value).interior.colorindex = 5
end sub

ダラダラと長くなるのを避けるため、次のようにすることもあります。

sub macro2()
　with worksheets("Sheet1")
　　worksheets("Sheet2").cells(.range("A1").value, .range("A2").value).interior.colorindex = 5
　end with
end sub

sub macro3()
　dim w as worksheet
　set w = worksheets("Sheet1")
　worksheets("Sheet2").select
　cells(w.range("A1").value, w.range("A2").value).interior.colorindex = 5
end sub

お礼

keithinさま

早速のご回答ありがとうございます！
「.value」を使うのですね。
出来ました！
急いでいたので大変助かりました。
ありがとうございます！