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
Note: 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?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!