VBA-muoto - Kuinka muotoilla numerot VBA-numeromuodolla?

Sisällysluettelo

VBA: n muotoilutoimintoa käytetään annettujen arvojen muotoilemiseen haluttuun muotoon, tällä funktiolla on periaatteessa kaksi pakollista argumenttia, toinen on merkkijonona käytettävä syöte ja toinen argumentti on haluamasi muoto esimerkiksi jos käytämme muotoilua (.99, "Prosentti"), tulokseksi saadaan 99%.

Alusta numero VBA Excelissä

VBA on kaukana tavallisista excel-toiminnoista. VBA: lla on monia sisäänrakennettuja toimintoja, aivan kuten miten laskentataulukossa on yli 500 operaatiota. Yksi tällainen kaava VBA: ssa on "Format Number".

Kyllä, kuulit sen oikein. Meillä on toiminto nimeltä FormatNumber VBA: ssa. Tässä artikkelissa tutustumme yksinomaan tähän toimintoon.

Kuinka muotoilla numerot VBA-numeromuodolla?

Kuten funktion nimi itse sanoo, se muotoilee annetun numeron käyttäjän antamien muotoiluohjeiden mukaisesti.

Lukujen muotoilu ei ole muuta kuin desimaalipisteiden lisääminen, negatiivisten numeroiden sulkeminen sulkeisiin, desimaaliarvojen etunollien näyttäminen jne. VBA FormatNumber -funktiota käyttämällä voimme soveltaa muotoilutyyliä numeroihin, joiden kanssa työskentelemme. Alla on funktion syntaksit

  • Lauseke: Tämä on vain numero, joka meidän on muotoiltava.
  • Numerot desimaalin jälkeen: Kuinka monta numeroa haluat desimaalien sijainnin luvun oikealle puolelle.
  • Sisällytä johtava numero : Johtava numero ei ole muuta kuin numero ennen numeron alkua. Tämä pätee arvoihin, jotka ovat alle 1 mutta suurempia kuin -1.
    • Jos haluat näyttää nollan ennen desimaaliarvoa, voit välittää argumentin TOSI tai -1 ja tulos on. "0,55"
    • Jos et halua näyttää nollaa ennen desimaaliarvoa, voit välittää argumentin FALSE tai 0, jolloin tulos on ".55".
    • Oletusarvoisesti arvo on -2 eli alueelliset tietokoneen asetukset.
  • Käytä vanhempia negatiivisiin numeroihin: Jos haluat näyttää negatiiviset luvut sulkeissa, voit välittää argumentin TOSI tai -1 ja tulos on. "(255)"
    • Jos haluat näyttää negatiiviset luvut ilman sulkeita, voit välittää argumentin FALSE tai 0, jolloin tulos on. "-255."
  • Ryhmänumerot: Haluatko lisätä tuhannen erottimen vai ei. Jos kyllä, TOSI tai -1 on argumentti. Jos ei, FALSE tai 0 on argumentti. Oletusarvoisesti arvo on -2 eli sama kuin alueelliset tietokoneen asetukset.

Esimerkkejä Excel VBA FormatNumber -toiminnosta

Näemme käytännön esimerkkejä Excel VBA -muotoilutoiminnosta. Suoritamme jokaisen argumentin erikseen.

Luo tätä tarkoitusta varten makron nimi ja ilmoita yksi muuttujista merkkijonona. Meidän on ilmoitettava muuttuja merkkijonona, koska VBA-funktion FormatNumber antama tulos on vain merkkijono.

Koodi:

Alamuoto_numero_esimerkki1 () Himmennä MyNum merkkijonon loppuosana

Esimerkki # 1 - Lisää desimaalipisteet luvun eteen

Vaihe # 1 - Oletetaan, että olemme työskennelleet numeron 25000 kanssa, ja meidän on muotoiltava se ja lisättävä desimaalipisteet numeron oikealle puolelle. Määritä muuttujalle arvo.

Koodi:

Alamuoto_numero_esimerkki1 () Dim MyNum merkkijonona MyNum = FormatNumber (End Sub

Vaihe # 2 - Ensimmäinen ylös on lauseke, eli numero, joka meidän on muotoiltava, joten numero on 25000.

Koodi:

Alamuoto_numero_esimerkki1 () Dim MyNum merkkijonona MyNum = FormatNumber (25000, End Sub

Vaihe # 3 - Seuraava on kuinka monta numeroa meidän on lisättävä, eli 2 numeroa.

Koodi:

Alamuoto_numero_esimerkki1 () Dim MyNum merkkijonona MyNum = FormatNumber (25000, 2) Loppu

Vaihe # 4 - Näytä muuttujan arvo VBA-viestiruudussa.

Koodi:

Alamuoto_numero_esimerkki1 () Dim MyNum merkkijonona MyNum = FormatNumber (25000, 2) MsgBox MyNum End Sub

Vaihe # 5 - Tämän makron tulos on tällainen.

Voimme nähdä kaksi desimaalia numeron oikealla puolella.

Esimerkki # 2 - Ryhmän numero eli tuhannen erotin

Samalle numerolle voimme lisätä tai poistaa tuhat erottinta. Jos haluamme näyttää tuhat erottinta , meidän on valittava vbTrue viimeiselle argumentille.

Koodi:

Alamuoto_numero_esimerkki1 () Dim MyNum merkkijonona MyNum = FormatNumber (25000, 2,,, vbTrue) MsgBox MyNum End Sub

Tämä heittää tuloksen näin.

Jos valitset nyt vbFalse, emme saa tuhatta erottinta .

Koodi:

Alamuoto_numero_esimerkki1 () Dim MyNum merkkijonona MyNum = FormatNumber (25000, 2,,, vbFalse) MsgBox MyNum End Sub

Tämän koodin tulos on näin.

Jos valitsen vbUseDefault, saamme tuloksen järjestelmäasetuksen mukaan. Alla on tulos tästä.

Joten järjestelmäasetuksessani on oletuksena tuhat erottinta.

Esimerkki # 3 - Sulje negatiiviset luvut

Jos meillä on haitallinen luku, voimme näyttää negatiivisen luvun sulkeissa. Meidän on valittava vbTrue kohdassa Käytä vanhempia negatiivisiin numeroihin.

Koodi:

Alamuoto_numero_esimerkki1 () Dim MyNum merkkijonona MyNum = FormatNumber (-25000, 2,, vbTrue) MsgBox MyNum End Sub

Nyt tällainen tulos.

Jos valitsemme vbFalse, saamme negatiivisen luvun miinusmerkillä.

Koodi:

Alamuoto_numero_esimerkki1 () Dim MyNum merkkijonona MyNum = FormatNumber (-25000, 2,, vbFalse) MsgBox MyNum End Sub

Nyt tällainen tulos.

Mielenkiintoisia artikkeleita...