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?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!