excel2003 VBAの質問です。
よろしくお願いいたします。
このような表があります。
|列1|列2|列3|列4|列5|列6|
|:--|:--:|--:|
|合計|5|1|4|8|activecell
合計行の列2~列5の合計を列6の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が入りません、どうしたらよいでしょうか?
よろしくお願いいたします。
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/02/19 13:12