Jede größere Microsoft Office-Produkt , wie z. B. Microsoft Excel , kommt mit einer mitgelieferten Programmiersprache namens Visual Basic für Applikationen oder VBA . Wenn Sie eine sich wiederholende Aufgabe in Excel abschließen , wie das Ändern einer langen Liste von Zellen führende Nullen zeigen müssen, können Sie ein Programm schreiben, in VBA und die Aufgabe mit nur einem Klick auf eine Schaltfläche. Was werden führende Nullen ?
Führende Nullen sind Nullen , die vor einer Reihe zu kommen, wie die beiden Nullen in " 001234 ". Diese Nullen haben keinen Wert , natürlich, so dass sie nicht die Anzahl in jeder realen Weg , sie haben nur das Aussehen der Nummer. Führende Nullen in Excel kann nützlich sein, wenn Sie eine lange Reihe von Zahlen, die alle die gleiche Anzahl von Ziffern , unabhängig von ihrem tatsächlichen Wert , weil eine Formel irgendwo auf dem Arbeitsblatt verwendet eine bestimmte Stelle , um eine Funktion auszuführen.
VBA -Code Anforderungen
Beim Erstellen eines Makros in VBA , wie man führende Nullen auf einer Reihe von Zahlen zu addieren , gibt es nur ein paar Voraussetzungen , die Sie erhalten haben Recht . Zunächst öffnen Sie den VBA-Editor durch Drücken von " Alt" und " F11 ", dann auf dem Arbeitsblatt mit der rechten Maustaste und fügen Sie ein Modul . VBA-Makros werden immer in Modulen erfasst. Klicken Sie auf das Modul , und klicken Sie auf den weißen Raum auf der rechten Seite des Bildschirms. Geben Sie den folgenden Code: Sub
LZERO ()
Change " LZERO " zu welchem Namen Sie wollen Ihr Makro zu haben . Drücken Sie "Enter" und Excel fügt automatisch "End Sub " unterhalb dieser Linie. Sie haben nun alle Voraussetzungen für Ihren VBA-Code gesetzt .
Right-Funktion und Concatenate
Um führende Nullen zu einer Zelle hinzufügen möchten, können Sie mit der rechten Maustaste Funktion auch eine einfache Verkettung. Addiert man diese Formel in eine neue Spalte kann ein einfacher Prozess in Excel sein, aber wenn man es in VBA tun müssen , wird es ein wenig komplizierter. Geben Sie den folgenden Code zwischen den "Sub LZERO ()" und "End Sub " Zeilen:
Dim x As Integer Dim y
As Integer
Für x = 1 To 10
y = Cells (x, 1) . Wert
Cells (x, 1) . FormulaR1C1 = " = RECHTS (" " 00000" "&" & y & " , 6) "
Weiter
ändern Sie die Zahlen in " 1 bis 10 " , um gleich den Zeilen, die Sie starten möchten, und beenden Sie Ihre Formel auf . Also, wenn Sie auf Zelle starten "A5" und endet am wollen " A15 ", Sie würden es " 5 bis 15 " ändern:
Für x = 5 bis 15
ändern " 1 " in beiden Fällen von " Cells (x, 1) " , um gleich die Nummer der Spalte, in die Sie die führenden Nullen hinzuzufügen. Spalte "A" ist das gleiche wie " 1 ", und jede Spalte weiter nach rechts, um eine weitere auf die Anzahl .
Schließlich ändern Sie die "6" am Ende des Codes , um gleich die Gesamtzahl der Ziffern, die Sie wollen, dass die Zahl zu haben , und ändern Sie die "00000 " zu einem weniger als die Summe Null Ziffern haben . Schließen Sie den VBA-Editor mit dem " X " am oberen Rand des Fensters. Führen Sie den Code , indem Sie auf das "Macro "-Button unter der Registerkarte Entwickler .
Selection.NumberFormat
Sie können auch die Nummer Format führende Nullen anzuzeigen. Dies funktioniert genauso wie es wäre, wenn Sie auf die Zelle mit der rechten Maustaste waren , wählen Sie " Zellen formatieren " und erstellen Sie ein benutzerdefiniertes Zahlenformat . Geben Sie den folgenden Code zwischen den "Sub LZERO " und " End Sub " Zeilen:
Selection.NumberFormat = "000000"
Ändern Sie die Anzahl der Nullen, die gleich der Anzahl der gesamten Ziffern Sie wollen die Zahlen zu haben . Da dieser Prozess das Format der Zelle , und nicht nur die Anzahl verändern wird , wird jede neue Nummer, die Sie in diese Zellen geben Ihre führende Nullen . Bevor Sie dieses Makro ausführen , werden Sie brauchen, um die Zellen, die durch das Makro geändert werden sollen auszuwählen.
