Excel VBA kód pre zobrazenie úvodnej nuly

Každý hlavný produkt Microsoft Office , napríklad Microsoft Excel , prichádza s súčasťou programovací jazyk Visual Basic for Applications alebo VBA . Ak potrebujete dokončiť opakovaný úlohu v programe Excel , ako sú meniace sa dlhý zoznam článkov sa zobrazí úvodná nuly , môžete napísať program v jazyku VBA a dokončiť úlohu s len kliknutím na tlačidlo . Aké sú Úvodné nuly ?

Nuly sú nuly , ktoré prichádzajú pred číslom , ako sú dvoma nulami na " 001234 " . Tieto nuly nemajú žiadnu hodnotu , samozrejme , takže sa nemení číslo v skutočnom spôsobom , že stačí zmeniť vzhľad čísla . Nuly v programe Excel môžu byť užitočné , ak potrebujete dlhý rad čísel , ktorá všetky obsahujú rovnaký počet číslic , bez ohľadu na ich skutočné hodnoty , pretože vzorec niekde na liste používa určitý číslicu vykonávať funkciu .


Potreby VBA kód

Pri vytváraní makra vo VBA , ako jeden pridať počiatočnej nuly na rade čísel , existuje len málo požiadaviek , ktoré budete musieť dostať pravdu . Najprv otvorte editor VBA stlačením " Alt " a " F11 " , kliknite pravým tlačidlom myši na listu a vložiť modul . VBA makrá sú vždy zaznamenávané v moduloch . Kliknite na modul a kliknite na prázdne miesto na pravej strane obrazovky . Zadajte nasledujúci kód :

Sub LZero ( )

Zmena " LZero " na akýkoľvek názov chcete, aby vaše makro mať . Stlačte tlačidlo " Enter " a Excel automaticky pridá " End Sub " pod tento riadok . Teraz máte všetky požiadavky stanovené pre VBA kódu .
Správna funkcia Zlúčiť

Ak chcete pridať počiatočnej nuly do bunky , môžete použiť Právo funkcie , spolu s jednoduchým zreťazenie . Pridanie tento vzorec do nového stĺpca môže byť jednoduchý proces v programe Excel , ale keď budete potrebovať , aby to v jazyku VBA , sa stáva trochu zložitejšie . Zadajte nasledujúci kód medzi " Sub Lzero ( ) " a " End Sub " riadky :

Dim x As Integer

Dim r As Integer

x = 1 10 celým

y = Cells ( x , 1 ) . Hodnota Spojené

Cells ( x , 1 ) . FormulaR1C1 = " = vpravo ( " " 00000 " , " a " a y a " , 6 ) "

Ďalšie

Zmena čísla v " 1 až 10 " sa rovná riadky , ktoré chcete spustiť a ukončiť svoj vzorec na . Takže ak chcete začať na bunky " A5 " a končí na " A15 " , by ste zmeniť na " 5 až 15 " :

x = 5 až 15

Zmeniť " 1 " v oboch prípadoch " buniek ( x , 1 ) " sa rovná počtu stĺpce , ktoré chcete pridať počiatočnej nuly . Stĺpec " A " je rovnaká ako " 1 " , a každý stĺpec ďalej vpravo , pridáva ešte jeden na číslo . Celým

Konečne , zmeniť " 6 " na konci kódu rovná počet všetkých miest , ktoré chcete číslo mať , a zmeniť " 00000 " , aby jeden menej ako nula celkových čísel . Zatvorte editor VBA pomocou " X " v hornej časti okna . Spustiť kód kliknutím na tlačidlo " makro " na karte Vývojár .
Selection.NumberFormat

môžete tiež zmeniť formát čísla sa zobrazí úvodná nuly . To funguje rovnako ako to keby ste mali pravým tlačidlom myši na bunku , vyberte " Formát buniek " a vytvoriť vlastný formát čísla . Zadajte nasledujúci kód medzi " Sub Lzero " a " End Sub " riadky :

Selection.NumberFormat = " 000000 "

Zmena počtu núl sa rovná počtu celkových číslic Ak čísla mať . Pretože tento proces zmení formát bunky , a nie len číslo , akékoľvek nové číslo zadáte do týchto buniek bude mať svoje počiatočné nuly . Pred spustením tohto makra , budete musieť vyberte bunky , ktoré sa majú meniť makro .

• Predchádzajúca strana: Ako Sledujte moje známky Použitie programu Excel 
• Ďalšia strana: Ako previesť vertikálne dát na horizontálnej dát v mojich tabuľkách programu Excel