Verwendung von Zahlenformaten in Excel VBA

1. Implementieren der Eigenschaft NumberFormat für numerische Werte in VBA
2. Den Typ des von einem VBA-Bereich verwendeten NumberFormat ermitteln

Zahlen kommen in unserem täglichen Leben in unterschiedlichen Formen vor. Wir haben Daten, Preise, Prozentsätze, Brüche, Dezimalzahlen usw. Sie mögen alle unterschiedlich aussehen, aber sie alle bedeuten einen Wert.

Dasselbe gilt für Excel, wir können mit verschiedenen Zahlenformaten umgehen. Wir können die Datentypen Date und Time verwenden, wenn es um Zeit und Datum geht, während wir Prozent verwenden können, wenn wir mit Prozentsätzen arbeiten.

Dieser Artikel demonstriert die Eigenschaft NumberFormat, um uns dabei zu helfen, Zahlen in unserer Excel-VBA-Praxis zu verwenden und angemessen damit umzugehen.

Implementieren der Eigenschaft NumberFormat für numerische Werte in VBA

Dieser Abschnitt verwendet die Eigenschaft NumberFormat, um die Zahlenformatierung in einer Zelle zu ändern.

Syntax:

Range.NumberFormat = [FormatCodes]

Parameter:

[format codes] Matrix:

Das virtuelle Arbeitsblatt Sheet1 sind die referenzierten Werte, die in allen Beispielen unten für die folgenden Beispielcodes verwendet werden.

Blatt1:

 |    A    |      B      |      C    |
1| 1234.56 | 11/23/2021  | 93249812  |
2| 5       | 0.00004     | 0.25      |

Der folgende Codeblock gibt die Formatierung General aus:

Sub FormatGeneral()
Range("A1").NumberFormat = "General"
Debug.Print Range("A1").Text
End Sub

FormatGeneral Ausgabe:

1234.56 

Der folgende Codeblock gibt die Formatierung Currency aus:

Sub FormatCurrency()
Range("C1").NumberFormat = "$#,##0.00"
Debug.Print Range("C1").Text
End Sub

General Ausgabe:

$93,249,812.00

Der folgende Codeblock gibt die Formatierung Scientific aus:

Sub FormatScientific()
Range("C1").NumberFormat = "0.00E+00"
Debug.Print Range("C1").Text
End Sub

FormatScientific Ausgabe:

9.32E+07

Der folgende Codeblock gibt die Formatierung Accounting aus:

Sub FormatAccounting()
Range("A1").NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
Debug.Print Range("A1").Text
End Sub

FormatAccounting-Ausgabe:

 $ 1,234.56 

Der folgende Codeblock gibt die Formatierung Date aus:

Sub FormatDate()
Range("A2").NumberFormat = "m/d/yy"
Debug.Print Range("A2").Text
End Sub

FormatDate-Ausgabe:

1/5/00

Der folgende Codeblock gibt die Formatierung Zeit aus:

Sub FormatTime()
Range("B2").NumberFormat = "$-F400]h:mm:ss am/pm"
Debug.Print Range("B2").Text
End Sub

FormatTime-Ausgabe:

12:00:03 AM

Der folgende Codeblock gibt die Formatierung Prozent aus:

Sub FormatPercentage()
Range("A1").NumberFormat = "0.00%"
Debug.Print Range("A1").Text
End Sub

FormatPercentage Ausgabe:

123456.00%

Der folgende Codeblock gibt die Formatierung Fraction aus:

Sub FormatFraction()
Range("C2").NumberFormat = "# ?/?"
Debug.Print Range("C2").Text
End Sub

FormatFraction-Ausgabe:

1/4

Den Typ des von einem VBA-Bereich verwendeten NumberFormat ermitteln

Wir haben den formatierten Wert des angegebenen Bereichs in den obigen Beispielen zurückgegeben. Wir erhalten den Formatierungstyp, der im angegebenen Bereich in diesem Abschnitt verwendet wird.

Syntax:

Range.NumberFormat

Parameter:

Immer noch Bezug nehmend auf Sheet1, zeigen die folgenden Beispiel-Codeblöcke die Rückgabe des Formatierungstyps, der von dem angegebenen Bereich verwendet wird.

Sub GetFormattingType()
Debug.Print Range("B1").NumberFormat
End Sub

GetFormattingType-Ausgabe:

m/d/yyyy