Sådan ganges alle celler i et område med en konstant
Vil du gerne sikre, at alle konstanter i et område ganges med en faktor? Du kan opnå dette ved smart at bruge funktionen EDIT - INSERT CONTENT.
Det er lettere, hvis du bruger følgende makro:
Brug subfaktor ()
Dim celle som rækkevidde
Dim inputværdi Så lang
Inputværdi = InputBox ("Indtast venligst faktoren (f.eks. 100)")
For hver celle i markering
Hvis ikke (Cell.HasFormula) Så
Cell.Formula = "=" & Cell.Value & "*" & Val (inputværdi)
Afslut Hvis
Næste celle
Afslut Sub
I det første trin skal du vælge en række celler i en tabel. Den følgende figur viser et eksempel på et fremhævet område.
Ring derefter til makroen. Excel spørger nu i et vindue om den faktor, du vil bruge. Følgende figur viser dette vindue:
Bekræft definitionen af faktoren med knappen OK.
Excel cykler nu gennem alle cellerne i markeringen. Kun de celler, hvor der ikke er nogen formel, ændres. De ganges med den indtastede faktor. Excel indtaster den nye værdi som en formel i cellen. Følgende figur viser, hvordan resultatet kan se ud:
Hvis du vil indtaste tallene som konstanter, skal du erstatte linjen "Cell.Formula" med følgende udtryk:
Cell.Value = Cell.Value * Val (inputværdi)
Ved at indtaste en faktor mindre end en kan du også dividere cellerne med en konstant.
Konvertering af en formel til en konstant ved hjælp af en makro: Sådan konverteres en beregning ved hjælp af VBA til en absolut værdi
Du vil konvertere cellerne i et område til absolutte værdier. Du kan gøre dette interaktivt ved at kopiere området og derefter indsætte det som værdier. Den relevante kommando kaldes "Rediger - indsæt special" i Excel op til version 2003 og "Start - indsæt - indsæt special" i Excel fra version 2007.
Hvis du vil konvertere individuelle celler i en makro, hjælper følgende programkode dig:
SubValueConvert ()
Med ActiveSheet.Range ("a1")
.Formel = .Værdi
Afslut med
Afslut Sub
Makroen konverterer det aktuelle indhold af celle A1 i den aktive tabel til en absolut værdi.
