Weten hoe Excel macro's te dwingen herberekening van een werkblad zorgt ervoor dat de formules in uw werkmappen produceren nauwkeurige waarden . Excel berekent automatisch formules standaard , wat kan resulteren in lange doorlooptijden voor werkboeken met veel formules . Overschakelen naar de handmatige berekening lost dit probleem op , maar creëert het probleem van onjuiste formules . Excel VBA Macro's kunnen herstellen , tijdelijk of permanent , automatische berekening . Een voordeel aan het gebruik van macro's te herberekenen in tegenstelling tot en schakelt de automatische optie berekening is dat je kunt kiezen precies welke cellen opnieuw te berekenen , waardoor de vertragingen die door het berekenen en gehele werkblad voorkomt . Instructies 1 Klik op " Options" knop in het menu 's " Bestand " , klik vervolgens op de " formules" link. Klik op de "Manual " optie , dan " OK " om de "Opties " dialoogvenster te sluiten . Deze stap schakelt automatisch berekenen , die de macro zal herstellen Type 2 het volgende in cel A1 tot C1 van het huidige werkblad : . 5 , 10 , " . = A1 * a2 " Merk op dat de formule in C1 is onjuist , te wijten aan de selectie van de handmatige optie in stap een . Uw macro zal automatische berekening te herstellen . 3 Klik op " Visual Basic "-knop van het tabblad "Ontwikkelaar " om de Visual Basic programmeeromgeving voeren . Plak het volgende programma in het venster dat verschijnt . Dit programma gebruikt de " Range " object waarden in twee verschillende werkbladcellen voeren , en een formule in een andere cel . Het programma heeft twee verklaringen die dwingen de huidige werkblad om de berekening te werken . De eerste is " Application.Calculation = xlCalculationAutomatic . " Deze verklaring stelt de " Berekening " eigendom van de Excel- applicatie zelf . De tweede is de een de functie van de " ActiveSheet " object " Bereken " te bellen . Deze verklaring vertelt alleen het actieve werkblad te berekenen , niet de hele werkmap . Public Sub herberekenen ( ) ' getallen invoeren in een cel ' Voer een calulation dat afhangt op die nummers ' Force herberekening Application.Calculation = xlCalculationAutomatic Range ( " a1 " ) = Range 5 ( " a2 " ) = 10 Range ( " a3 " ) . Formula = " = a1 * a2 " ActiveSheet.Calculate End Sub Press Goedkope 4 " F5 " om het programma uit te voeren . 5 Klik op het pictogram " Excel " op de taakbalk van Windows terug te keren naar Excel . Merk op dat de cel A3 heeft een functie die bijgewerkte berekening vergt , en dat het resultaat van de berekening , het product van het werkblad de bovenste twee cellen , juist.
|