こんばんは、よろしくお願いします。
小計を計算したいのですが、このような表があります
|A|B|C|D|E|F|G|
|:--|:--:|--:|
|カツ丼|玉子丼|小計|カツ丼|玉子丼|小計|総合計|
|2|1|3|4|1|5|8|
ここでC列の小計とF列の小計を足したものがG列の総合計になっています。
G2のセルには数式 =SUM(C2,F2) が入っていて総合計が出るようになっています。
そこでG列の前に列を3行追加して新たにカツ丼、玉子丼、小計の列を作ります。
|A|B|C|D|E|F|G|H|I|J|
|:--|:--:|--:|
|カツ丼|玉子丼|小計|カツ丼|玉子丼|小計|カツ丼|玉子丼|小計|総合計|
|2|1|3|4|1|5|6|2|8|8|
このような表を作りたいのですが、表を作るのに自動化したいです。
この時、J2のセルにはまだ、数式 =SUM(C2,F2)が入っているのですが、
これを自動で =SUM(C2,F2,I2)に変えてJ2の値が16になるようなコードを作りたいです。
I2をアクティブにして
Dim Rng1 as string Dim Vlu1 as string Rng1 = ActiveCell.address Activecell.Offset(0,1).select Vlu1 = Activecell.Formula Activecell.Formula = Vlu1 + Rng1 'こんなようにして、計算式に3つおきのセルの '値を増やしていきたいのですが
このように、総合計の計算式に3行ごとに小計のセルの値を足していきたいのですが、
どのように増やしていいのかわかりません、セル番地の取得方法と、数式にくっつけるやり方などわかりません、アドバイスよろしくお願いいたします。
回答3件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/02/20 13:29
2018/02/20 23:32
2018/02/23 14:57
2018/02/25 23:33
2018/02/27 07:57