Zo koppel je aan elke formule een factor
Als u wereldwijd gegevens in uw tabellen wijzigt, kunt u razendsnel prijsverhogingen of -verlagingen of andere berekeningsaanpassingen doorvoeren.
U kunt een factor toevoegen aan alle formules in uw lijsten. Een macro lost deze taak op en koppelt een vermenigvuldigingsfactor aan alle formules in een geselecteerd gegevensgebied. Zo kunt u snel en effectief prijslijsten en dergelijke aanpassen aan nieuwe voorwaarden.
De volgende afbeelding toont zo'n tabel. Er zijn constanten in cellen B1: B3 en een formule in cel B4. De formulecel verwijst naar de cellen met de constanten.
Om de factor 110% toe te voegen aan alle formules in deze lijst, markeert u eerst het gegevensgebied B1: A4 en roept u vervolgens de volgende macro aan:
SubfactorAnFormelnAnhaengen ()
Dim cel als bereik
Dimfactor As String
Factor = "110%"
Voor elke cel in selectie
Met cel
Als .HasFormula Dan .Formule = _
"= (" & Rechts $ (. Formule, Len (.Formule) - 1) & ") *" & factor
Eindigt met
Volgende cel
Einde sub
Na het starten van de macro worden alle formulecellen in het gemarkeerde celgebied met een factor 110% vermenigvuldigd. De volgende afbeelding toont het resultaat:
De macro voegt de factor in die u hebt opgegeven in de waardetoewijzing voor de variabele factor hebben gedefinieerd. De uitdrukking "110%" wordt daar als tekst opgeslagen. Dit leidt tot een verhoging van de formuleresultaten met 10%. Wijzig dit getal voor een andere factor. Door factoren onder de 1 te gebruiken, kun je ook delen.
In de IndienRegel van de macro, de bestaande formuletekst wordt tussen haakjes geplaatst en daarna wordt een vermenigvuldigingsfactor toegevoegd.
Natuurlijk kunt u de macro ook op alle cellen in een tabel gebruiken. Selecteer hiervoor alle tabelcellen met de toetsencombinatie CTRL A voordat u de macro oproept.