VB初心者です。よろしくお願いします。

質問

すみません。

プログラム中で数式を書きたいのですが、

　　　　　　9/1 　　　9/2
データ１ 10000 20000
データ２ 15000 300
データ３ 18000 40000
累計 43000 60300

たとえば↑みたいな表の場合、
累計は数式をプログラムに書いて出力したい場合、
(例の表が見ずらくてすみません）

行と列は固定ではなく可変で
intRow,intColという変数にセットされているとした時、
（値はプログラム中で算出してセットされている事を前提）
累計はどのように書いたらよろしいでしょうか・・・

書きたいセルの場所が固定の場合は分かるのですが、
行と列が可変で変数にもたせた場合の書き方が
よく分かりません。
よろしくお願い致します。

回答No.1

zap35 · ベストアンサー

これはＥＸＣＥＬのＶＢＡの質問でしょうか？

　　　　　Ａ列　　　　Ｂ列　　Ｃ列
１行目　 　　　　　　9/1　　　9/2
２行目　データ１　10000　20000
３行目　データ２　15000　300
４行目　データ３　18000　40000
５行目　累計

のような表で以下のサンプルマクロを実行すればＢ５、Ｃ５セルに集計の関数式を入れることが可能です。この場合SpecialCells(xlCellTypeLastCell)はＣ５セルを指しています。

実際のシートのデータ配置が分かりませんので具体的には書けませんが、「intRow，intColという変数」を使えば同じように関数式を入れられると思います。後は工夫してみてください
（なおマクロでセル参照はＲ１Ｃ１形式を使用しています）

Sub Macro1()
Dim rng As Range, idxC As Integer
　Set rng = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell)
　For idxC = 2 To rng.Column
　　Cells(rng.Row, idxC).FormulaR1C1 = "=sum(R2C" & _
　　　idxC & ":R[-1]C" & idxC & ")"
　Next idxC
End Sub

　→　実行結果：Ｂ５、Ｃ５セルにSUM関数が入力される。