列番号のＡやＢも、数値で指定するには

質問

Sub test()
Dim int1 As Integer
Dim int2 As Integer

int1 = 1
int2 = 2

Cells(3, 1) = "=A" & int1 & "*B" & int2

End Sub

このような場合、列番号のＡやＢも、
数値で指定するにはどうすればいいでしょうか？

回答No.4

keithin · ベストアンサー

sub macro1()
　dim int1 as integer
　dim int2 as integer
　dim c1 as integer
　dim c2 as integer

　int1 = 1
　int2 = 2
　c1 = 1　　’Ａ
　c2 = 2　　’Ｂ

　cells(3,1).formular1c1 = "=R" & int1 & "C" & c1 & "*R" & int2 & "C" & c2

’さらに必要なら
’cells(3, 1).replace what:="$", replacement:=""
’あるいは
’cells(3, 1).formula = application.convertformula(cells(3, 1).formula, xla1, xla1, xlrelative, cells(3, 1))
end sub

エクセルのオプションを操作する必要はありません。

お礼

回答頂きありがとうございました。

回答No.3

High_Score

Cells(3, 1) = "=A" & int1 & "*B" & int2

Cells(3,1)="=" & Cells(int1, 1).Address & "*" & Cells(int2, 2).Address

お礼

回答頂きありがとうございました。

回答No.2

bin-chan

オプション＞全般（だったかな？）の「R1C1形式」にレ点付ける

> Cells(3, 1) = "=A" & int1 & "*B" & int2
この書き方だと、．Valueへの代入ですね。
Cells（3，1）．fomulaや．fomulaR1C1への代入を検討して下さい

お礼

回答頂きありがとうございました。

回答No.1

mar00

Sub test()
Dim int1 As Integer
Dim int2 As Integer

int1 = 1
int2 = 2

Cells(3, 1) = Ccells(1,int1) * Cells(2,int2)

End Sub

でいいのではないでしょうか。

お礼

回答頂きありがとうございました。