Läs alla siffror från ett önskat cellintervall med hjälp av ett makro och lägg till ett nummer i innehållet
Det är ofta nödvändigt att lägga till ett märke till celler i en lista. För att göra detta är det nödvändigt att lägga till ett fast värde till alla konstanter i ett cellintervall.
Formlerna ska inte ändras. Ett makro löser denna uppgif.webpt och lägger till ett valfritt antal till alla konstanter i ett markerat dataområde.
På så sätt kan du till exempel justera priser och liknande snabbt och effektivt till nya förhållanden.
Följande bild visar en tabell som ska ändras. Det finns konstanter i cellerna B1 och B2 och formler i cellerna B3 och B4. De två formelcellerna hänvisar till cellerna med de konstanta värdena.
För att lägga till siffran 10 till alla konstanter i den här listan, markera först dataområdet B1: B4 och ring sedan till följande makro:
Lägg till subkonstant ()
Dim Cell As Range
Dim Factor så länge
Ytterligare belopp = 10
För varje cell i urval
Med cell
Om inte (.HasFormula) Då .Value = .Value + ytterligare belopp
Sluta med
Nästa cell
Avsluta Sub
Efter start av makrot läggs den extra mängden 10 till alla konstanta celler i det markerade cellområdet. Följande bild visar resultatet:
Makrot använder den faktor som du definierade i värdetilldelningen för variabeln "Ytterligare belopp".
För att gå in i makrot, tryck på ALT F11 i Excel för att öppna VBA -redigeraren. Använd kommandot INSERT - MODULE för att infoga ett tomt modulark. För att starta makrot direkt från Excel, använd tangentkombinationen ALT F8.
