Excel VBA質問箱 IV

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

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


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

44063 / 76735

←次へ　｜　前へ→


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

吉 - 06/5/15(月) 20:34 -


	引用なし

	パスワード

▼ハチさん：

こんばんわ。

返事遅くなってすいません。

お蔭様で以前より比べられないぐらい早く処理できるようになりました。

ありがとうございました。今後も宜しくお願いします。

参考に出来た記述を載せておきます。
何か改善点があれば御教授をお願いします。

Private Sub CommandButton2_Click()
Dim a, i As Integer '開始Columnの指定
Dim GoukeiA As Integer '合計のColumn
Dim LRow As Long 'Ｄ列の最終行
LRow = Worksheets("人員集計").Range("D65536").End(xlUp).Row
a = 5
GoukeiA = a + 25
For i = 1 To 9
With Worksheets("人員集計")
'行の計
.Range(.Cells(4, GoukeiA), .Cells(LRow, GoukeiA)).FormulaR1C1 = "=SUM(RC" & a & ":RC" & GoukeiA - 1 & ")"
'累計
.Cells(4, GoukeiA + 1).FormulaR1C1 = "=RC[-1]"
.Range(.Cells(5, GoukeiA + 1), .Cells(LRow, GoukeiA + 1)).FormulaR1C1 = "=R[-1]C+RC[-1]"
End With
a = a + 27
GoukeiA = GoukeiA + 27
Next i
'列の計
Range(Cells(3, 5), Cells(3, 247)).FormulaR1C1 = "=SUM(R[1]C:R[" & LRow & "]C)"
Range(Cells(3, 5), Cells(LRow, 247)).Copy
Range(Cells(3, 5), Cells(LRow, 247)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("D65536").End(xlUp).Select
End Sub

0 hits

▼

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