Hvordan formateres en tekstboks som valuta i Excel?

Normalt er der ingen indbygget funktion i Excel, så du kan ændre tekstformatet i en tekstboks (ActiveX Control). Men hvis du har brug for at formatere numre, har du indtastet i tekstboksen til valuta til et eller andet formål. Hvordan kan du gøre for at opnå det? Denne artikel viser dig en VBA-metode til at løse dette problem.

Formater en tekstboks som valuta med VBA-kode

---

Formater en tekstboks som valuta med VBA-kode

Nedenstående VBA-kode kan hjælpe dig med let at formatere tal i tekstboksen som valuta i Excel. Gør som følger.

1. klik Udvikler > indsatte > Tekstboks (ActiveX-kontrol) for at indsætte en tekstboks i regnearket. Se skærmbillede:

2. Højreklik på tekstboksen, og klik derefter på Vis kode fra højreklikmenuen.

3. I åbningen Microsoft Visual Basic til applikationer vindue, skal du udskifte den originale kode i kodevinduet med nedenstående VBA-kode.

VBA-kode: formater tekstboks som valuta i Excel

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

Bemærk: I koden, Tekstboks 1 er navnet på tekstboksen, du formaterer tal indeni som valuta. Skift det til dit eget.

4. Tryk på andre + Q taster samtidigt for at lukke Microsoft Visual Basic til applikationer vindue.

5. Sluk for designtilstand.

Fra nu af, når du indtaster et nummer i tekstboksen, formateres det automatisk som valuta som vist nedenstående skærmbillede.

---

Relaterede artikler:

• Hvordan vælges tekst automatisk i en tekstboks, når den er valgt i Excel?
• Hvordan udfyldes en tekstboks automatisk, når du skriver i Excel?
• Hvordan formateres en tekstboks i procent i Excel?
• Hvordan sammenkædes tekster fra flere celler i en tekstboks i Excel?
• Hvordan deaktiveres redigering i tekstboks for at forhindre brugerinput i Excel?