Hvert større Microsoft Office-produkt , som Microsoft Excel , kommer med en inkluderet programmeringssprog kaldet Visual Basic for Applications eller VBA. Hvis du har brug for til at fuldføre en repetitiv opgave i Excel, såsom at ændre en lang liste af celler til at vise nuller , kan du skrive et program i VBA og fuldføre opgaven med blot et klik på en knap. Hvad er nuller ?
Førende nuller nuller , der kommer før et tal , som de to nuller i " 001234 ". Disse nuller har ingen værdi , naturligvis, så de ikke ændre antallet i nogen reel måde , de bare ændre udseendet af nummeret. Nuller i Excel kan være nyttigt, hvis du har brug for en lang række af numre, som alle indeholder det samme antal cifre , uanset deres faktiske værdi , fordi en formel eller andet sted i regnearket bruger en bestemt ciffer at udføre en funktion .
< br >
VBA Code krav
Når du opretter en makro i VBA , som man til at tilføje nuller på en nummerserie , er der kun et par krav, at du nødt til at få højre . Åbn først VBA editoren ved at trykke på " Alt" og " F11 ", så højre -klik på dit regneark og indsætte et modul. VBA-makroer optages altid i moduler . Klik på modulet og klik på den hvide plads på højre side af skærmen. Indtast følgende kode : Hej
Sub LZero ()
Change " LZero " til hvad navn , du vil have din makro til at have. Tryk på " Enter" og Excel vil automatisk tilføje " End Sub " under denne linje. Du har nu alle krav til din VBA-kode.
Right Funktion og Concatenate
For at tilføje nuller til en celle , kan du bruge den rigtige funktion , sammen med en simpel sammenkædning . Tilføjelse denne formel til en ny kolonne kan være en simpel proces i Excel, men når du har brug for at gøre det i VBA , bliver det lidt mere kompliceret . Indtast følgende kode mellem "Sub Lzero () " og " End Sub " linier: Salg
Dim x As Integer
Dim y As Integer
x = 1 til 10
y = Cells (x , 1). Værdi
celler ( x, 1). FormulaR1C1 = " = HØJRE (" " 00000 " "& " & y & " , 6) "
Næste
ændre tallene i " 1 til 10 " at være lig med de rækker , du ønsker at starte og afslutte din formel på . Så hvis du ønsker at starte på celle " A5 " og slutter den " A15 ", skal du ændre dette til " 5 til 15 " : Hej
x = 5 til 15
Ændr " 1 "i begge tilfælde om" Celler (x, 1 ) " til at være lig med antallet af kolonnen , som du ønsker at tilføje de førende nuller. Kolonne "A" er det samme som "1 ", og hver kolonne længere til højre tilføjer en mere til nummeret .
Sidst ændre " 6" i slutningen af koden til at være lig med samlede antal cifre, du vil antallet at have, og ændre " 00000 " for at have en mindre nul end de samlede cifre. Luk VBA editoren ved hjælp af " X " øverst i vinduet . Køre din kode ved at klikke på "Macro " knappen under fanen Udvikler .
Selection.NumberFormat
Du kan også ændre antallet format til at vise nuller . Det virker ligesom det ville, hvis du skulle højreklikke på cellen , vælg "Formater celler" og oprette et brugerdefineret talformat . Indtast følgende kode mellem "Sub Lzero " og " End Sub " linjer : Hej
Selection.NumberFormat = " 000000 "
Ændre antallet af nuller for at være lig med det samlede antal cifre du vil have tallene til at have. Da denne proces vil ændre formatet af cellen, og ikke kun antallet , vil enhver ny nummer, du skriver ind i disse celler har dine nuller . Før du kører denne makro , skal du markere de celler, der skal ændres ved makroen.
