Lees alle getallen uit een gewenst celbereik uit met behulp van een macro en voeg een getal toe aan de inhoud
Het is vaak nodig om een markering toe te voegen aan cellen in een lijst. Om dit te doen, is het noodzakelijk om een vaste waarde toe te voegen aan alle constanten in een celbereik.
De formules mogen niet worden gewijzigd. Een macro lost deze taak op en voegt een getal naar keuze toe aan alle constanten in een gemarkeerd gegevensgebied.
Zo kunt u bijvoorbeeld snel en effectief prijzen en dergelijke aanpassen aan nieuwe voorwaarden.
De volgende afbeelding toont een tabel die moet worden gewijzigd. Er zijn constanten in de cellen B1 en B2 en formules in de cellen B3 en B4. De twee formulecellen verwijzen naar de cellen met de constante waarden.
Om het getal 10 toe te voegen aan alle constanten in deze lijst, markeert u eerst het gegevensgebied B1: B4 en roept u vervolgens de volgende macro aan:
Subconstante toevoegen ()
Dim cel als bereik
Dimfactor zo lang
Extra bedrag = 10
Voor elke cel in selectie
Met cel
Indien niet (.HasFormula) Dan .Waarde = .Waarde + extra bedrag
Eindigt met
Volgende cel
Einde sub
Na het starten van de macro wordt de extra hoeveelheid 10 toegevoegd aan alle constante cellen in het gemarkeerde celgebied. De volgende afbeelding laat het resultaat zien:
De macro gebruikt de factor die u in de waardetoekenning voor de variabele "Extra bedrag" hebt gedefinieerd.
Om de macro in te voeren, drukt u op ALT F11 in Excel om de VBA-editor te openen. Gebruik de opdracht INSERT - MODULE om een leeg moduleblad in te voegen. Om de macro rechtstreeks vanuit Excel te starten, gebruikt u de toetsencombinatie ALT F8.
