Excel VBA에서 계산 속도가 느립니다.

Question

현재 재고 투자 수익을 계산 중입니다. 나는 약 10 년 동안의 역사적인 데이터를 가지고 있으며, 나의 기능을 구축 한 방법은 그 일을 오래 수행하는데 시간이 걸린다. 예를 들어 각 날의 수익을 계산하기 위해 11 개의 열과 2872 개의 행이 있습니다.

my Function 
    Public Sub CalcROI(ByVal ColPick As Integer, ByVal ColPrint As Integer) 

    Dim irow As Integer 
    Dim iCol As Integer 

    For irow = 4 To 2873 
    'Calculating ROI 
     Cells(irow + 1, ColPrint).Value = (Cells(irow + 1, ColPick).Value - Cells(irow, ColPick).Value)/Cells(irow, ColPick).Value 
     Next irow 

     End Sub 

및 절차의 구현은

CalcROI ColPick:=4, ColPrint:=17 

ColPick입니다 - 가치 계산에

ColPrint을 선택해야하는 곳에서 - 그 필요가 출력

Answer 1

I를 인쇄 할 수있는 컬럼에 어제 다른 질문에서 본 것을 시험하고 싶었습니다. 테스트를하는 경우, 끔찍하게 잘못 될 경우를 대비하여 복사본을 통합 문서로 실행하십시오!

내가 (무작위 숫자> 0의 열을 사용)를 테스트 한하고 작업을 수행

업데이트.

Public Sub CalcROI(ByVal ColPick As Integer, ByVal ColPrint As Integer) 
Dim rgPick As Range 
Dim vaPick As Variant 
Dim rgPrint As Range 
Dim vaPrint As Variant 
Dim Row As Integer 

    Set rgPick = Range(Cells(4, ColPick), Cells(2873 + 1, ColPick)) 
    vaPick = rgPick.Value 

    Set rgPrint = Range(Cells(4, ColPrint), Cells(2873 + 1, ColPrint)) 
    vaPrint = rgPrint.Value 

    For Row = LBound(vaPick) To UBound(vaPick) - 1 
     vaPrint(Row + 1, 1) = (vaPick(Row + 1, 1) - vaPick(Row, 1))/vaPick(Row, 1) 
    Next Row 

    rgPrint = vaPrint 

End Sub 

Answer 나는 참조.

Answer 2

현재 코드를 변경하고 싶지 않은 경우 Application.ScreenUpdating을 사용하면 거의 모든 향후 Excel VBA 코드를 더 빠르게 실행할 수있을뿐만 아니라이 작업을 수행하는 데 도움이됩니다.

---

Public Sub CalcROI(ByVal ColPick As Integer, ByVal ColPrint As Integer) 
    'this stops Excel from updating the screen after every single iteration in your loop 
    'in the future, this is an EASY way to speed up the majority of Excel macros 
    Application.screenupdating = false 
    Dim irow As Integer 
    Dim iCol As Integer 

    For irow = 4 To 2873 
    'Calculating ROI 
     Cells(irow + 1, ColPrint).Value = (Cells(irow + 1, ColPick).Value - Cells(irow, ColPick).Value)/Cells(irow, ColPick).Value 
     Next irow 
     'this isn't strictly speaking necessary, but will help 
     application.screenupdating = true 
     End Sub