VBA-formatnummer - Sådan formateres numre med VBA NumberFormat?

Indholdsfortegnelse

Formatfunktion i VBA bruges til at formatere de givne værdier i det ønskede format, denne funktion har grundlæggende to obligatoriske argumenter, den ene er input, der er taget i form af en streng, og det andet argument er den type format, vi vil bruge for eksempel hvis vi bruger Format (.99, ”Procent”), vil dette give os resultatet som 99%.

Formatér nummer i VBA Excel

VBA står langt foran normale reguleringsfunktioner. VBA har mange af sine indbyggede funktioner, ligesom hvordan vi har mere end 500 operationer i regnearket. En sådan formel i VBA er "Format Number".

Ja, du hørte det rigtigt. Vi har en funktion kaldet “FormatNumber” i VBA. I denne artikel tager vi en komplet rundvisning i denne funktion udelukkende.

Sådan formateres numre med VBA NumberFormat?

Som selve funktionsnavnet siger, vil det formatere det givne nummer i henhold til formateringsinstruktionerne givet af brugeren.

Talformatering er intet andet end at tilføje decimaler, omslutte negative tal i parentes, vise ledende nuller til decimalværdier osv. Ved hjælp af VBA FormatNumber- funktion kan vi anvende formateringsstilen til de tal, vi arbejder med. Nedenfor er funktionens syntaks

  • Udtryk: Dette er intet andet end det nummer, vi har brug for at formatere.
  • Num cifre efter decimal: Hvor mange cifre du vil have til decimaler placeres for højre side af nummeret.
  • Inkluder ledende ciffer: Ledende ciffer er intet andet end cifre, før tallet starter. Dette gælder for værdierne mindre end 1, men større end -1.
    • Hvis du vil vise nul før decimalværdien, kan du sende argumentet som SAND eller -1, og resultatet bliver. “0,55”
    • Hvis du ikke vil vise nul før decimalværdien, kan du videregive argumentet som FALSE eller 0, og resultatet bliver ".55."
    • Som standard er værdien -2 dvs. regionale computerindstillinger.
  • Brug forældre til negative tal: Hvis du ønsker at vise de negative tal i parentes, kan du sende argumentet som SAND eller -1, og resultatet bliver. “(255)”
    • Hvis du ønsker at vise de negative tal uden parentes, kan du sende argumentet som FALSK eller 0, og resultatet bliver. “-255.”
  • Gruppecifre: Uanset om du vil tilføje tusind separator eller ej. Hvis ja, er SAND eller -1 argumentet. Hvis ikke, er FALSE eller 0 argumentet. Som standard er værdien -2 dvs. lig med regionale computerindstillinger.

Eksempler på Excel VBA FormatNumber-funktion

Vi vil se de praktiske eksempler på Excel VBA Format Number-funktionen. Vi udfører hvert argument separat.

Til dette formål skal du oprette makronavnet og erklære en af ​​variablerne som en streng. Vi skal rapportere variablen som en streng, fordi resultatet givet af VBA-funktionen FormatNumber kun er som streng.

Kode:

Sub Format_Number_Example1 () Dim MyNum Som streng End Sub

Eksempel # 1 - Tilføj decimalpoint foran nummeret

Trin # 1 - Antag, at vi har arbejdet med tallet 25000, og vi skal formatere det og tilføje decimaler til højre for nummeret. Tildel en værdi til vores variabel.

Kode:

Sub Format_Number_Example1 () Dim MyNum As String MyNum = FormatNumber (End Sub

Trin # 2 - Først op er et udtryk, dvs. antallet vi skal formatere, så vores nummer er 25000.

Kode:

Sub Format_Number_Example1 () Dim MyNum As String MyNum = FormatNumber (25000, End Sub

Trin # 3 - Næste er, hvor mange cifre vi skal tilføje, dvs. 2 tal.

Kode:

Sub Format_Number_Example1 () Dim MyNum As String MyNum = FormatNumber (25000, 2) End Sub

Trin # 4 - Vis værdien af ​​variablen i VBA-meddelelsesfeltet.

Kode:

Sub Format_Number_Example1 () Dim MyNum As String MyNum = FormatNumber (25000, 2) MsgBox MyNum End Sub

Trin # 5 - Resultatet af denne makro er sådan.

Vi kan se to decimaler til højre for nummeret.

Eksempel # 2 - Gruppetal, dvs. tusindskiller

For det samme nummer kan vi tilføje eller slette tusind separatorer. Hvis vi vil vise tusind separatorer, skal vi vælge vbTrue til det sidste argument.

Kode:

Sub Format_Number_Example1 () Dim MyNum As String MyNum = FormatNumber (25000, 2,,, vbTrue) MsgBox MyNum End Sub

Dette vil kaste resultatet sådan.

Hvis du nu vælger vbFalse, får vi ikke tusind separatorer.

Kode:

Sub Format_Number_Example1 () Dim MyNum As String MyNum = FormatNumber (25000, 2,,, vbFalse) MsgBox MyNum End Sub

Resultatet af denne kode som denne.

Hvis jeg vælger vbUseDefault, får vi resultatet i henhold til systemindstillingen. Nedenfor er resultatet af dette.

Så min systemindstilling har som standard tusind separatorer.

Eksempel # 3 - Vedhæft parentes for negative tal

Hvis vi har et skadeligt tal, kan vi vise det negative tal i parentes. Vi skal vælge vbTrue under "Brug forældre til negative numre."

Kode:

Sub Format_Number_Example1 () Dim MyNum As String MyNum = FormatNumber (-25000, 2,, vbTrue) MsgBox MyNum End Sub

Nu er resultatet sådan.

Hvis vi vælger vbFalse, får vi et negativt tal med et minustegn.

Kode:

Sub Format_Number_Example1 () Dim MyNum As String MyNum = FormatNumber (-25000, 2,, vbFalse) MsgBox MyNum End Sub

Nu er resultatet sådan.

Interessante artikler...