Excel codice VBA per visualizzare gli zeri iniziali

Ogni grande prodotto di Microsoft Office , ad esempio Microsoft Excel , è dotato di un linguaggio di programmazione incluso chiamato Visual Basic for Applications o VBA . Se è necessario per completare un compito ripetitivo in Excel , come cambiare una lunga lista di celle per mostrare gli zeri iniziali , è possibile scrivere un programma in VBA e completare il compito con un semplice clic di un pulsante . Che cosa sono gli zeri ?

Gli zeri iniziali sono gli zeri che precedono un numero, come ad esempio i due zeri " 001234 ". Questi zeri non hanno alcun valore , ovviamente , in modo da non modificare il numero in qualsiasi modo reale , ma solo modificare l'aspetto del numero. Gli zeri iniziali in Excel può essere utile se avete bisogno di una lunga serie di numeri che tutti contengono lo stesso numero di cifre , indipendentemente dal loro valore reale , perché la formula da qualche parte del foglio di lavoro utilizza una certa cifra per svolgere una funzione .

codice VBA requisiti

Quando si crea una macro in VBA , come ad esempio uno per aggiungere zeri su un intervallo di numeri , ci sono solo un paio di requisiti che si devono ottenere destra . In primo luogo , aprire l'editor di VBA premendo il tasto " Alt " e " F11 ", quindi fare clic destro sul vostro foglio di lavoro e inserire un modulo . Macro VBA sono sempre registrati in moduli . Fare clic sul modulo e fare clic sullo spazio bianco sul lato destro dello schermo . Digitare il seguente codice:

Sub LZero ( )
Cambia

" LZero " per il nome che si desidera che la macro di avere. Premere il tasto " Enter" e Excel aggiungerà automaticamente "End Sub " al di sotto di questa linea . Ora avete tutti i requisiti per il codice VBA .
Funzione Right e Concatena

Per aggiungere zeri iniziali a una cella , è possibile utilizzare il pulsante destro funzione con una semplice concatenazione . L'aggiunta di questa formula per una nuova colonna può essere un semplice processo in Excel , ma quando è necessario farlo in VBA , diventa un po 'più complicato . Inserisci il seguente codice tra il "Sub Lzero ( ) " e linee "End Sub ":

Dim x As Integer

Dim y As Integer

Per x = 1 A 10

y = Cells ( x , 1). Valore

Cells ( x , 1) . FormulaR1C1 = " = DESTRA ( " " 00000" " & " & y & " , 6) "

Avanti

cambiare i numeri in" 1 a 10 " per essere uguale al file che si desidera avviare e terminare la vostra formula su . Quindi, se si desidera avviare in cella " A5" e alla fine su " A15 ", si dovrebbe cambiare questo per " 5-15 " :

Per x = 5 a 15

Cambiare la " 1 " in entrambe le istanze di " Cells ( x , 1) "per essere uguale al numero della colonna in cui si desidera aggiungere gli zeri iniziali . Colonna " A" è uguale a " 1 ", e ogni colonna più a destra aggiunge un altro per il numero .

Infine , portare " 6 " alla fine del codice da essere uguale al numero di cifre totali che si desidera il numero di avere , e cambiare il "00000" per avere un minore di zero rispetto alle cifre totali. Chiudere l' editor di VBA tramite la "X " nella parte superiore della finestra . Eseguire il codice facendo clic sul pulsante "Macro" sotto la scheda Sviluppo .
Selection.NumberFormat

È anche possibile modificare il formato numerico per visualizzare gli zeri iniziali . Questo funziona esattamente come si farebbe se si dovesse fare clic destro sulla cella , selezionare "Formato celle" e creare un formato numerico personalizzato . Inserisci il seguente codice tra il "Sub Lzero " e linee "End Sub " :

Selection.NumberFormat = " 000000 "

Cambiare il numero di zeri di essere uguale al numero di cifre totali si desidera che i numeri abbiano . Poiché questo processo cambia il formato della cella , e non solo il numero , ogni nuovo numero digitato in queste cellule avrà i tuoi zeri iniziali. Prima di eseguire questa macro , è necessario selezionare le celle che devono essere modificati dalla macro .