Hoe een tekstvak als valuta in Excel opmaken?

Normaal gesproken is er geen ingebouwde functie in Excel waarmee u het tekstformaat in een tekstvak (ActiveX-besturingselement) kunt wijzigen. Als u echter getallen moet opmaken, heeft u voor een bepaald doel in het tekstvak de valuta ingevoerd. Hoe kunt u dit bereiken? Dit artikel laat je een VBA-methode zien om dit probleem op te lossen.

Formatteer een tekstvak als valuta met VBA-code

---

Formatteer een tekstvak als valuta met VBA-code

Met de onderstaande VBA-code kunt u eenvoudig getallen in het tekstvak opmaken als valuta in Excel. Ga als volgt te werk.

1. klikken Ontwikkelaar > Invoegen > Tekstvak (ActiveX-besturingselement) om een ​​tekstvak in het werkblad in te voegen. Zie screenshot:

2. Klik met de rechtermuisknop op het tekstvak en klik vervolgens op Bekijk code vanuit het rechtsklikmenu.

3. In de opening Microsoft Visual Basic voor toepassingen venster, vervang dan de originele code in het codevenster door 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, Tekstvak1 is de naam van het tekstvak waarin u getallen als valuta wilt opmaken. Wijzig deze in uw eigen.

4. druk de anders + Q toetsen tegelijk om het Microsoft Visual Basic voor toepassingen venster.

5. Schakel de ontwerpmodus uit.

Vanaf nu, wanneer u een nummer in het tekstvak invoert, wordt het automatisch opgemaakt als valuta, zoals hieronder wordt getoond.

---

Gerelateerde artikelen:

• Hoe automatisch tekst van een tekstvak selecteren wanneer deze is geselecteerd in Excel?
• Hoe een tekstvak automatisch aanvullen tijdens het typen in Excel?
• Hoe een tekstvak opmaken als een percentage in Excel?
• Hoe teksten van meerdere cellen samen te voegen in een tekstvak in Excel?
• Hoe kan ik bewerken in tekstvak uitschakelen om te voorkomen dat de gebruiker in Excel invoert?