Cum se formatează numerele dintr-o casetă de text ca monedă în Excel?

În mod normal, Excel nu oferă o funcție încorporată pentru a schimba formatul textului într-un ActiveX TextBox. Cu toate acestea, dacă trebuie să formatați numerele introduse în TextBox ca monedă în scopuri specifice, puteți realiza acest lucru folosind o metodă simplă VBA. Acest articol oferă instrucțiuni pas cu pas pentru a vă ghida prin proces.

Formatați numerele într-o casetă de text ca monedă cu cod VBA

Formatați o casetă text ca monedă cu codul VBA

Codul VBA de mai jos vă poate ajuta să formatați cu ușurință numerele din caseta text ca monedă în Excel. Vă rugăm să faceți următoarele.

1. clic Dezvoltator > Insera > Casetă text (control ActiveX) pentru a insera o casetă text în foaia de lucru. Vedeți captura de ecran:

2. Faceți clic dreapta pe caseta de text, apoi faceți clic pe Afișați codul din meniul cu clic dreapta.

3. În deschidere Microsoft Visual Basic pentru aplicații fereastră, înlocuiți codul original din fereastra Cod cu codul VBA de mai jos.

Cod VBA: formatează caseta text ca monedă în Excel

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

notițe: În cod, TextBox1 este numele casetei de text în care vei formata numerele ca monedă. Înlocuiește-l cu numele casetei de text.

4. apasă pe Alt + Q tastele simultan pentru a închide Microsoft Visual Basic pentru aplicații fereastră.

5. Dezactivați modul de proiectare.

De acum înainte, când introduceți un număr în caseta de text, acesta va fi formatat automat ca monedă, așa cum se arată în captura de ecran de mai jos.

Legate de articole:

• Cum se selectează automat textul unei casete de text când este selectat în Excel?
• Cum se completează automat o casetă de text când se tastează în Excel?
• Cum să formatați o casetă text ca procent în Excel?
• Cum se concatenează textele mai multor celule într-o casetă text în Excel?
• Cum se dezactivează editarea în caseta de text pentru a preveni introducerea de utilizatori în Excel?