Manual, Semi automatisk og automatisk beregning eller ring Beregning i VBA

Et program til indstilling af beregningen optioner eller ringe til beregning af efterspørgslen.

Forklaring

For at kunne beregne kun on demand kan tidsbesparende i nogle situation, når du skriver tallene til Excel ark, hvis det indeholder en masse formler, kan det være godt at sætte beregningen mulighed for at manual. På den anden side, hvis der kombinerer kode med formler formlerne skal opdateres, før data er hentet fra ark, så er det godt at kunne ringe til beregning af efterspørgslen.

VBA Makro Code er tilgængelig til download i slutningen af denne side!

Kode

Public Sub Manual_Semi_Automatic_and_Automatic_Calculation_or_ Call _Calculation_in_VBA ()

If range ("C5") .value=1 then
Application.Calculation = xlAutomatic
End if

If range ("C5") .value=1 then
Application.Calculation = xlSemiautomatic
End if

If range ("C5") .value=1 then
Application.Calculation = xlManual

End sub

Public Sub Calculate _On_Demand_VBA ()

Calculate

End sub

Download excel filen!Manual_Semi_Automatic_and_Automatic_Calculation_or_Call_Calculation_in_VBA.xls

 

Add your comment

Your name:
Subject:
Comment: