Hoe nummers in een tekstvak opmaken als valuta in Excel?

Normaal gesproken biedt Excel geen ingebouwde functie om de tekstopmaak in een ActiveX Tekstvak te wijzigen. Echter, als u nummers die in het Tekstvak worden ingevoerd voor specifieke doeleinden als valuta wilt opmaken, kunt u dit bereiken met behulp van een eenvoudige VBA-methode. Dit artikel biedt stap-voor-stap instructies om u door het proces te leiden.

Nummers in een tekstvak opmaken als valuta met VBA-code

Tekstvak opmaken als valuta met VBA-code

De onderstaande VBA-code kan u helpen om gemakkelijk nummers in het tekstvak als valuta op te maken in Excel. Volg de volgende stappen.

1. Klik op Ontwikkelaar > Invoegen > Tekstvak (ActiveX Control) om een tekstvak in het werkblad in te voegen. Zie screenshot:

2. Klik met de rechtermuisknop op het tekstvak en klik vervolgens op Weergave Code in het rechtsklikmenu.

3. In het venster Microsoft Visual Basic for Applications dat wordt geopend, vervangt u de originele code in het Codevenster door de onderstaande VBA-code.

VBA-code: tekstvak opmaken als valuta in Excel

Private Sub TextBox1_Change()
    TextBox1.Value = Format(TextBox1.Value, "$###,##")
End Sub

Opmerking: In de code is TextBox1 de naam van het tekstvak waarin u de nummers als valuta wilt opmaken. Vervang dit door de naam van uw tekstvak.

4. Druk tegelijkertijd op de toetsen Alt + Q om het venster Microsoft Visual Basic for Applications te sluiten.

5. Schakel de Ontwerpmodus uit.

Vanaf nu zal, wanneer u een nummer in het tekstvak invoert, het automatisch worden opgemaakt als valuta, zoals te zien is in de onderstaande schermafbeelding.

Gerelateerde artikelen:

• Hoe automatisch tekst van een tekstvak selecteren wanneer het wordt geselecteerd in Excel?
• Hoe een tekstvak automatisch aanvullen tijdens het typen in Excel?
• Hoe een tekstvak opmaken als percentage in Excel?
• Hoe teksten van meerdere cellen samenvoegen in een tekstvak in Excel?
• Hoe bewerken in een tekstvak uitschakelen om gebruikersinvoer te voorkomen in Excel?