Manuell, halvautomatisk och automatisk beräkning eller ring Beräkning i VBA

Ett program för inställning av beräkning alternativ eller ringa beräkningen på efterfrågan.

Förklaring

För att kunna beräkna enbart på efterfrågan kan det spara tid i vissa situationen när du skriver siffror till Excel-blad om det innehåller en massa formler kan det vara bra att sätta beräkningen alternativ till manuell. Å andra sidan om att kombinera koden med formler formlerna måste uppdateras innan data ur blad, då är det bra att kunna ringa beräkna på efterfrågan.

VBA Macro Koden finns tillgänglig för nedladdning i slutet av denna sida!

Kod

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

Ladda ner Excel-fil!Manual_Semi_Automatic_and_Automatic_Calculation_or_Call_Calculation_in_VBA.xls

 

Add your comment

Your name:
Subject:
Comment: