Elke grote Microsoft Office-product, zoals Microsoft Excel, wordt geleverd met een inbegrepen programmeertaal Visual Basic for Applications, of VBA genoemd. Als u nodig hebt om een repetitieve taak in Excel, zoals het wijzigen van een lange lijst van cellen voor het weergeven van de voorloopnullen, kun je een programma schrijven in VBA en voltooien van de taak met slechts een klik van een knop.
Wat zijn voorloopnullen?
Voorloopnullen zijn nullen die voor een nummer, zoals de twee nullen in "001234." Deze nullen hebben geen waarde, uiteraard, zodat ze niet het nummer in een echte manier veranderen; Ze verander gewoon de weergave van het getal. Voorloopnullen in Excel is handig als u een lange reeks getallen bevatten allemaal hetzelfde aantal cijfers, ongeacht hun werkelijke waarde, moet omdat een formule ergens op het werkblad een bepaald cijfer gebruikt om een functie te vervullen.
Eisen van de VBA-Code
Wanneer u een macro in VBA, zoals een toe te voegen voorloopnullen op een bereik van getallen maakt, zijn er alleen een paar eisen dat u hebt om goed te krijgen. Eerst de VBA-editor openen door te drukken op de "Alt" en "F11," en vervolgens met de rechtermuisknop op het werkblad en voeg een module. VBA-macro's worden altijd geregistreerd in modules. Klik op de module en klik op de witruimte aan de rechterkant van het scherm. Typ in de volgende code:
Sub LZero()
Wijzigen in "LZero" welke naam u uw macro wilt te hebben. Druk op "Enter" en Excel voegt automatisch "End Sub" onder deze regel. U hebt nu alle de voorschriften voor de VBA-code.
Rechts, functie en vervolgens aaneengeschakeld
Om toe te voegen voorloopnullen naar een cel, kunt u de juiste functie, samen met een eenvoudige samenvoeging. Deze formule toe te voegen aan een nieuwe kolom kan een eenvoudig proces in Excel, maar wanneer u nodig hebt om het te doen in VBA, het wordt een beetje ingewikkelder. Voer de volgende code tussen de regels "Sub Lzero()" en "End Sub":
Dim x As Integer
Dim y As Integer
Voor x = 1 tot en met 10
y = cellen (x, 1). Waarde
Cellen (x, 1). FormulaR1C1 = "= rechts (""00000" "&" & y & ", 6)"
Volgende
Het wijzigen van de nummers in "1 tot en met 10" gelijk aan de rijen die u wilt beginnen en eindigen de formule op. Dus als u wilt beginnen op cel "A5" en eindigen op "A15", zou u dit te "5 tot en met 15":
Voor x = 5 tot en met 15
De "1" in beide gevallen van "Cells(x,1)" gelijk te zijn aan het nummer van de kolom die u wilt toevoegen van de voorloopnullen wijzigen Kolom "A" is hetzelfde als "1", en elke kolom verder naar rechts voegt één meer aan het nummer.
Ten slotte, veranderen de "6" aan het einde van de code gelijk te zijn aan het aantal totale cijfers die u wilt dat het nummer te hebben en wijzig de "00000" om een minder nul dan de totale cijfers hebben. Sluit de VBA-editor met behulp van de 'X' aan de bovenkant van het venster. Uw code uitvoeren door te klikken op de knop "Macro" onder het tabblad ontwikkelaars.
Selection.NumberFormat
U kunt ook de getalnotatie om voorloopnullen weer te geven. Dit werkt net als het zou als u met de rechtermuisknop op de cel en kies "Celeigenschappen", een aangepaste getalnotatie maken. Voer de volgende code tussen de regels "Sub Lzero" en "End Sub":
Selection.NumberFormat = "000000"
Het aantal nullen gelijk te zijn aan het aantal totale cijfers die u de nummers wilt hebben wijzigen. Aangezien dit proces de opmaak van de cel, en niet alleen het nummer verandert, zal elk nieuw nummer dat u in deze cellen typt hebben uw voorloopnullen. Voordat u deze macro uitvoert, moet u de cellen die moeten worden gewijzigd door de macro te selecteren.
