Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

44177 / 76807

←次へ　｜　前へ→


	【37653】Re:集計処理速度を早くするには？

ハチ - 06/5/14(日) 11:27 -


	引用なし

	パスワード

>もっと簡単に表記できそうな気もしてきましたが・・・もう寝ます。

基準列を開始列にしてR1C1で記述したほうが、すっきりしました。

Sub test2()

Dim c As Integer '開始Columnの指定
Dim GoukeiC As Integer '合計のColumn
Dim LRow As Long 'Ｄ列の最終行

With Worksheets(1)

LRow = .Range("D65536").End(xlUp).Row
c = 5
GoukeiC = c + 25

'合計
.Range(.Cells(4, GoukeiC), .Cells(LRow, GoukeiC)).FormulaR1C1 _
= "=SUM(RC" & c & ":RC" & GoukeiC - 1 & ")"

'累計
.Cells(4, GoukeiC + 1).FormulaR1C1 = "=RC[-1]"
.Range(.Cells(5, GoukeiC + 1), .Cells(LRow, GoukeiC + 1)).FormulaR1C1 _
= "=R[-1]C+RC[-1]"

End With

End Sub

0 hits

▼

【37643】集計処理速度を早くするには？ 吉 06/5/13(土) 20:12