Kako oblikovati besedilno polje kot valuto v Excelu?

Običajno v Excelu ni vgrajene funkcije za spreminjanje oblike besedila v besedilnem polju (ActiveX Control). Če pa morate številke, ki ste jih vnesli v besedilno polje, formatirati v valuto za neke namene. Kako lahko to storite? V tem članku je prikazana metoda VBA za rešitev te težave.

Oblikujte besedilno polje kot valuto s kodo VBA

---

Oblikujte besedilno polje kot valuto s kodo VBA

Spodnja koda VBA vam lahko pomaga enostavno oblikovati številke v besedilnem polju kot valuto v Excelu. Naredite naslednje.

1. klik Razvojni > Vstavi > Besedilno polje (nadzor ActiveX) da vstavite polje z besedilom na delovni list. Oglejte si posnetek zaslona:

2. Z desno miškino tipko kliknite besedilno polje in nato kliknite Ogled kode v meniju z desnim klikom.

3. Na odprtju Microsoft Visual Basic za aplikacije okno, zamenjajte izvirno kodo v oknu Code s spodnjo kodo VBA.

Koda VBA: oblikovanje besedilnega polja kot valute v Excelu

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

Opombe: V kodi, Besedilno polje 1 je ime besedilnega polja, v katerem boste številke formatirali kot valuto. Prosimo, spremenite ga v svojega.

4. Pritisnite druga + Q tipke hkrati, da zaprete tipko Microsoft Visual Basic za aplikacije okno.

5. Izklopite način oblikovanja.

Od zdaj naprej bo pri vnosu številke v besedilno polje samodejno formatirana kot valuta, kot je prikazano spodaj.

---

Sorodni članki:

• Kako samodejno izbrati besedilo v besedilnem polju, ko je izbrano v Excelu?
• Kako samodejno dokončati besedilno polje pri tipkanju v Excelu?
• Kako oblikovati besedilno polje v odstotkih v Excelu?
• Kako združiti besedila več celic v besedilno polje v Excelu?
• Kako onemogočiti urejanje v besedilnem polju, da preprečite vnos uporabnika v Excelu?