-2

VBAコードのフォロー効率を上げたい。私が考えることができるのは、コードで「With」と「End With」を使用することです。コードを最適化するために他にできることはありますか?

ありがとう！

 Sub ONLY_CORP_Lives_Premiums()
Dim row_phil, row_phl, row_eveeb, row_evenb As Integer
Dim row_indiv, row_sme, row_corp As Integer
Dim row As Variant
Dim row_start, row_end As Integer
Dim i, k As Integer
Dim start_time, end_time

start_time = Now()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Sheets("SETUP").Range("J32") = Sheets("SETUP").Range("J28")

Sheets("LIVES PROJECTION").Activate
row_phil = Application.CountIf(Range("B1237:B1048576"), "PHIL" & "*")
row_phl = Application.CountIf(Range("B1237:B1048576"), "PHL" & "*") + row_phil
row_eveeb = Application.CountIf(Range("B1237:B1048576"), "EVEEB" & "*") + row_phl
row_evenb = Application.CountIf(Range("B1237:B1048576"), "EVENB" & "*") + row_eveeb
row = Array(0, row_phil, row_phl, row_eveeb, row_evenb)

For i = LBound(row) To (UBound(row) - 1)

    row_start = row(i) + 34
    row_end = row(i + 1) - 1 + 34
    row_indiv = Application.CountIf(Range("d" & row_start & ":d" & row_end), "INDIV")
    row_sme = Application.CountIf(Range("d" & row_start & ":d" & row_end), "SME")
    row_corp = Application.CountIf(Range("d" & row_start & ":d" & row_end), "CORP")
        For k = row_start + row_indiv + row_sme - 34 To row_start + row_indiv + row_sme + row_corp - 1 - 34
        With Sheets("LIVES PROJECTION")
        .Range("B12:G12").Value = .Range("B34:G34").Offset(k, 0).Value
        .Range("B12:FM26").Calculate
        End With
        Sheets("PREMIUMS PROJECTION").Range("B12:FM26").Calculate
        Sheets("LIVES PROJECTION").Range("H34:FM34").Offset(k, 0).Value = Sheets("LIVES PROJECTION").Range("H12:FM12").Value
        Sheets("PREMIUMS PROJECTION").Range("H34:FM34").Offset(k, 0).Value = Sheets("PREMIUMS PROJECTION").Range("H12:FM12").Value
        Next k
Next i
''
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Sheets("SETUP").Range("J33") = Sheets("SETUP").Range("J28")
Calculate!
end_time = Now()
Sheets("SETUP").Range("j50") = DateDiff("s", start_time, end_time)

End Sub
4

1 に答える 1

1

For .. Nextループ内でそんなに計算する必要がありますか? そうでない場合はApplication.Calculation = xlCalculationManual、最初に切り替えて、最後に 1 回計算します。コードの実行中に計算する必要がある場合は、できるだけ計算が少なくなるように変更してみてください。を使用With .. End Withしてもあまり役に立ちません。もしあれば。

于 2013-03-22T11:00:09.560 に答える