Įgyvendinti VBA makrokomandos yra veiksmingiausias, greičiausias ir saugiausias būdas atlikti bet kokią operaciją "Excel" programoje. Šiame straipsnyje parodysime, kaip suformatuoti skaičių "Excel" programoje naudodami VBA .

Atsisiųsti darbo knygą

Nemokamą "Excel" pratybų sąsiuvinį galite atsisiųsti iš čia.

Skaičiaus formatas naudojant VBA.xlsm

3 skaičiaus formatavimo būdai "Excel" programoje naudojant VBA

Pažvelkite į toliau pateiktą pavyzdį. Tuos pačius skaičius išsaugojome abiejuose B stulpelis ir C kad formatuojant skaičių C stulpelis , sužinosite iš B stulpelis kokiu formatu skaičius buvo anksčiau.

1. VBA formatuoti skaičių iš vieno tipo į kitą "Excel" programoje

Pirmiausia sužinokime, kaip suformatuoti skaičių 12345 iš Ląstelė C5 mūsų pateiktame duomenų rinkinyje su VBA į Valiuta formatas.

Žingsniai:

• Paspauskite Alt + F11 klaviatūroje arba eikite į skirtuką Programuotojas -> "Visual Basic atidaryti "Visual Basic" redaktorius .

• Iššokančiame kodo lange meniu juostoje spustelėkite Insert -> Modulis .

• Nukopijuokite šį kodą ir įklijuokite jį į kodo langą.

 Sub NumberFormat() Range("C5").NumberFormat = "#,###0.0" "Tai suformatuos skaičių 12345 į valiutą End Sub 

Dabar jūsų kodas paruoštas paleisti.

• Paspauskite F5 klaviatūroje arba meniu juostoje pasirinkite Run -> Run Sub/UserForm Taip pat galite tiesiog spustelėti maža piktograma "Play submeniu juostoje, kad paleistumėte makrokomandą.

Šis kodas suformatuoti skaičių 12345 į valiutą su dešimtaine verte.

Jei norite ląstelėje rodyti valiutos simbolį, tiesiog įrašykite simbolį prieš kodą.

 Sub NumberFormat() Range("C6").NumberFormat = "$#,###0.0" "Tai suformatuos skaičių 12345 į valiutą su $ simboliu End Sub 

Mūsų atveju naudojome doleris ($) simbolį. Galite naudoti bet kurį norimą valiutos simbolį.

Šis kodas suformatuos skaičių į valiutą su doleris ($) simbolis.

Šį skaičių formatą taip pat galite konvertuoti į daugelį kitų formatų. Tiesiog vadovaukitės toliau pateiktu kodu, kad skaičius būtų konvertuotas į reikiamą formatą.

 Sub NumberFormat() 'Originalus skaičius 12345 Range("C5").NumberFormat = "#,###0.0" 'Tai suformatuos skaičių į valiutą Range("C6").NumberFormat = "$#,###0.0" 'Tai suformatuos skaičių į valiutą su $ simboliu Range("C7").NumberFormat = "0.00%" 'Tai suformatuos skaičių į procentinę vertę Range("C8").NumberFormat = "#,###.00;[red]-#,###.00" 'Taiskaičius bus suformatuotas raudona spalva (sąlyginis formatavimas) Range("C9").NumberFormat = "#?/?" 'Tai suformatuos skaičių į trupmenas Range("C10").NumberFormat = "0#""" Kg"""" 'Tai suformatuos skaičių su tekstu Range("C11").NumberFormat = "#-#-#-#-#-#-#" 'Tai suformatuos skaičių su skirtukais Range("C12").NumberFormat = "#,###0.00" 'Tai suformatuos skaičių su skirtukais Range("C12").NumberFormat = "#,###0.00" 'Tai suformatuosskaičius su kableliais ir dešimtainėmis dalimis, jei taikoma Range("C13").NumberFormat = "#,###0" 'Tai suformatuos skaičių į tūkstančius su kableliais, jei taikoma Range("C14").NumberFormat = "#,###0.00" 'Tai suformatuos skaičių į milijonus Range("C15").NumberFormat = "dd-mmm-yyyy hh:mm AM/PM" 'Tai suformatuos skaičių į datą & time End Sub 

VBA makrokomandos

Apžvalga

Skaityti daugiau: "Excel" pasirinktinis skaičių formatas kelios sąlygos

2. Makrokomanda, skirta skaičių diapazonui formatuoti "Excel" programoje

Matėme, kaip pakeisti vienos ląstelės skaičių formatą. Tačiau jei norite pakeisti skaičių intervalo formatą tada VBA kodai yra beveik tokie patys, kaip parodyta ankstesniame skyriuje. Šį kartą, užuot perdavę vieną langelio nuorodos numerį Range objekto skliausteliuose, turite pereiti visą diapazoną (pvz. C5:C8) skliausteliuose.

 Sub NumberFormatRng() Range("C5:C8").NumberFormat = "$#,##0.0" End Sub 

Šis kodas "Excel" programoje suformatuos tam tikrą skaičių intervalą iš jūsų duomenų rinkinio.

Skaitykite daugiau: Kaip "Excel" formatuoti skaičių milijonais (6 būdai)

Panašūs skaitiniai:

• "Excel" apvalinimas iki 2 ženklų po kablelio (su skaičiuotuvu)
• Kaip Neigiamų skaičių skliaustų dėjimas programoje "Excel
• Kaip "Excel" formatuoti skaičių tūkstančiais K ir milijonais M (4 būdai)
• Pasirinktinis skaičiaus formatas: milijonai su viena dešimtaine dalimi "Excel" programoje (6 būdai)
• Kaip "Excel" programoje pakeisti skaičių formatą iš kablelio į tašką (5 būdai)

3. Įterpkite VBA, kad konvertuotumėte skaičių naudodami "Excel" formatavimo funkciją

Taip pat galite naudoti Formato funkcija "Excel" programoje VBA skaičiams konvertuoti. Makrokomandos, skirtos šiam tikslui atlikti, yra,

Žingsniai:

• Kaip ir anksčiau, atidarykite "Visual Basic" redaktorius iš Kūrėjas skirtukas ir Įdėkite a Modulis kodo lange.
• Kodo lange nukopijuokite ir įklijuokite šį kodą.

 Sub NumberFormatFunc() MsgBox Format(12345, "#,###0.00") End Sub 

Dabar jūsų kodas paruoštas paleisti.

Pranešimo langelyje gausite suformatuotą skaičių.

Susijęs turinys: Kaip konvertuoti skaičių į procentus "Excel" programoje (3 greiti būdai)

Išvada

Šiame straipsnyje parodyta, kaip suformatuoti skaičių "Excel" programoje su VBA . tikiuosi, kad šis straipsnis jums buvo labai naudingas. Drąsiai klauskite, jei turite klausimų šia tema.