| |
りすりすさん
かみちゃん
殆ど同じ時刻に回答頂いたのですね、お二方ご親切にありがとうございます。
両方とも試して見ました、バッチリです！！
かみちゃん、細かい指導ありがとうございます
ActiveCell.FormulaR1C1 = これはR1C1 形式で と言う意味なんですね(^^;
Range(endR + 1, L).Select ← これは恥ずかしいでした
勉強になりました (^_^)
そこで欲張って、さらに質問ですが…（図々しい ^^; )
実は合計を出す列がたくさんあるのです、L列〜Q列まで（7つ）
Sub Macro1()〜Sub Macro7() 作ればいいのですが、もっといい方法があるのではと…？
関数で
Function Totals(Col As Range)
Dim encR As Long
Sheets("Sheet1").Select
endR = Range("A65536").End(xlUp).Row
Range(Con & endR + 1).Select
ActiveCell.Formula = "=SUM(Col&2:ol" & endR & ")"
End Function
この様にして、 Totals(L) で実行できないかと試しましたが、エラーでだめでした。
このできると、Totals(L)〜Totals(Q) までを順に実行すれば、簡単かなとも思いました。考えているうちに For 〜 next 文で出来そうな気がしますが、どうやっていいものか…？
その場合はたぶん R1C1形式にしないといけないのでしょうね？
済みません、だんだん欲が出てきて難しくなりました（←自分には）
また教えてください、よろしくお願いします。m(__)m
|
|
igusukei
- 05/2/10(木) 9:52 -
