Hoe gebruik ik de vba formatcurrence-functie?

De VBA FORMATCURRENCY-functie wordt vermeld in de categorie voor gegevenstypeconversie van VBA-functies. Wanneer u het in VBA-code gebruikt, retourneert het een string door het valutaformaat op een getal toe te passen . In eenvoudige bewoordingen kunt u een getal converteren naar een waarde waarin de valutanotatie wordt toegepast.

Syntaxis

FormatCurrency(Expressie,[NumDigitsAfterDecimal],[IncludeLeadingDigit],[UseParensForNegativeNumbers],[GroupDigits])

Argumenten

• Expressie : de numerieke waarde die u als valuta wilt opmaken.
• [NumDigitsAfterDecimal] : een numerieke waarde om decimalen op te geven [Dit is een optioneel argument en indien weggelaten -1 standaardwaarde].
• [IncludeLeadingDigit] : een opsommingswaarde om op te geven of er een voorloopnul moet worden weergegeven [Dit is een optioneel argument en indien standaard vbUseDefault weggelaten].
  • vbFalse: mag niet worden voorafgegaan door een nul.
  • vbTrue: geeft een voorloopnul weer.
  • vbUseDefault: gebruikt standaardinstellingen.
• [UseParensForNegativeNumbers] : een opsommingswaarde om op te geven of negatieve getallen tussen haakjes moeten staan [Dit is een optioneel argument en wordt standaard weggelaten vbUseDefault].
  • vbFalse: om geen negatieve getallen tussen haakjes te plaatsen.
  • vbTrue: plaats negatieve getallen tussen haakjes.
  • vbUseDefault: gebruikt standaardinstellingen.
• [GroupDigits] : n opsommingswaarde om op te geven of het getal moet worden gegroepeerd (in duizenden, enz.), met behulp van het groepsscheidingsteken dat is opgegeven in de landinstelling van de computer. [Dit is een optioneel argument en als dit standaard wordt weggelaten, vbUseDefault].
  • vbFalse: om de nummers in de groep niet te gebruiken.
  • vbTrue: om groepscijfers te gebruiken.
  • vbUseDefault: gebruikt de standaardinstellingen van de computer.

Voorbeeld

Om praktisch te begrijpen hoe u de VBA FORMATCURENCY-functie kunt gebruiken, moet u het onderstaande voorbeeld doorlopen waarin we er een vba-code mee hebben geschreven:

 Sub example_FORMATCURRENCY() Range("B1").Value = FormatCurrency(Range("A1")) End Sub

In de bovenstaande code hebben we FORMATCURRENCY gebruikt om de waarde in cel A1 naar een valutawaarde te converteren en deze met dollarteken in cel B1 terug te geven.

Opmerkingen

• Welk valutasymbool wordt gebruikt, is afhankelijk van de systeeminstellingen.
• Als de opgegeven waarde een andere waarde is dan een getal of een tekenreeks die niet als getal kan worden herkend, retourneert VBA runtimefout 13.