|
つんさん、回答有難うございます。
すいません、知識が無いのに、マクロに手をだしてしまってます・・・(××;
一応、もう一度そのコードを表示してコピーしてきました。
Sub 七行()
'
' 七行 Macro
' マクロ記録日 : 2004/7/9 ユーザー名 : ×××株式会社
'
'
ActiveCell.FormulaR1C1 = "=SUM(R[-6]C[-5]:RC[-5])"
ActiveCell.Offset(-6, -11).Range("A1").Select
End Sub
Sub 八行()
'
' 八行 Macro
' マクロ記録日 : 2004/7/9 ユーザー名 : ×××株式会社
'
'
ActiveCell.FormulaR1C1 = "=SUM(R[-7]C[-5]:RC[-5])"
ActiveCell.Offset(-7, -11).Range("A1").Select
End Sub
>ちょこ★さんは、実際にどういう処理をして、マクロを記録したのでしょうか?
集計をするのに、ボタンですぐ合計を出せるようにしたいとおもって、作りました。
>記録したあとは、少しもいじってませんか?
最後に行くセルを直したんですが、設定をあれやこれやとのぞいてたときにもしかしたらいじってしまったかもしれません(;_;)後悔・・・。
>マクロの記録で、SUM関数を挿入すると、
>ActiveCell.FormulaR1C1 = "=SUM(R[-10]C:R[-1]C)"
>という形になります。
>ちょこ★さんのコードと比べて、"="が足りませんよね?
足りないのかさえもわかってない私・・・・(??;すいません
>普通に、記録すると、
>
>Range("C1").Select
そうなんです!!!!そうなったんです。だから
ActiveCell.Offset(-7, -11).Range("A1").Select になるようにするにはどうすれば元どうりになるかって考えてたんです!
>なので、マクロの記録で出来たコードそのものではないと思うんですが・・・
会社の人にもその様に言われたんですが
ActiveCell.Offset(-7, -11).Range("A1").Select
のようなコード単語を私は知らないので,修正して作れるような知識が無いんです。
>最初は大変だと思いますが、記録で出来たコードを元に修正して実用的なコードにしていけるようにしたほうがベターかなあ、と思います。
>・・ちと、えらそう?(^^;
実用的なコードをもっと勉強してからてを出した方がいいですよね・・・・。
えらそうだなんて、とんでもないです。初心者に丁寧にお返事下さり感謝しています。m(__)m
また回答下さればありがたいです(;▽;)宜しくお願いします.
|
|