excel2003 VBAの質問です

Question

excel2003　VBAの質問です。
よろしくお願いいたします。

このような表があります。
|列1|列2|列3|列4|列5|列6|
|:--|:--:|--:|
|合計|5|1|4|8|activecell

合計行の列２～列５の合計を列６のactivecellのセルに入れたいです。

Dim Cnt1 as integer
Cnt1 = 0

Do Until Activecell.value = "合計"
    Activecell.offset(0,-1).Select
    Cnt1 = Cnt1 + 1
Loop

Activecell.offset(0,Cnt1).select
Activecell.FormulaR1C1 = "=SUM(RC[-Cnt1]:RC[-1])"

このようなコードを書いてみましたが、最後の行のRC[-Cnt1]のところの変数Cnt1がうまく
機能しないため、整数4が入りません、どうしたらよいでしょうか？

よろしくお願いいたします。

Answer 1

-Cnt1 が文字列に含まれてしまっています。
下記のように書き直せば Cnt1 の値は入るかと。

Activecell.FormulaR1C1 = "=SUM(RC[" & -Cnt1 & "]:RC[-1])"

Comments

[kintarock777]

ありがとうございました。またよろしくお願いします。

Answer 2

変数の値を文字列とするには以下のようにします。

Activecell.FormulaR1C1 = "=SUM(RC[" & -Cnt1 & "]:RC[-1])"

Comments

[kintarock777]

できました、ありがとうございました。