Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


59279 / 76732 ←次へ | 前へ→

【22159】Re:表の合計を計算
質問  igusukei  - 05/2/10(木) 9:52 -

引用なし
パスワード
   りすりすさん
かみちゃん
殆ど同じ時刻に回答頂いたのですね、お二方ご親切にありがとうございます。
両方とも試して見ました、バッチリです!!
かみちゃん、細かい指導ありがとうございます
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
0 hits

【22143】表の合計を計算 igusukei 05/2/9(水) 21:21 質問
【22144】Re:表の合計を計算 りすりす 05/2/9(水) 21:53 回答
【22145】Re:表の合計を計算 かみちゃん 05/2/9(水) 21:59 回答
【22159】Re:表の合計を計算 igusukei 05/2/10(木) 9:52 質問
【22163】Re:表の合計を計算 りすりす 05/2/10(木) 12:48 回答
【22180】Re:表の合計を計算 りすりす 05/2/10(木) 16:05 発言
【22164】Re:表の合計を計算 かみちゃん 05/2/10(木) 12:53 回答
【22187】Re:表の合計を計算 sa 05/2/10(木) 16:42 発言
【22191】Re:表の合計を計算 sa 05/2/10(木) 17:20 発言
【22202】Re:表の合計を計算 igusukei 05/2/10(木) 22:39 お礼

59279 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free