Īstenošana VBA makro ir visefektīvākā, ātrākā un drošākā metode, lai veiktu jebkuru operāciju programmā Excel. Šajā rakstā mēs parādīsim, kā izpildīt jebkuru operāciju programmā Excel. formatēt numuru programmā Excel, izmantojot VBA .

Lejupielādēt darbgrāmatu

No šejienes varat lejupielādēt bezmaksas praktisko Excel darba burtnīcu.

Formatēt numuru ar VBA.xlsm

3 metodes, kā formatēt skaitli programmā Excel, izmantojot VBA

Aplūkojiet šādu piemēru. Mēs saglabājām vienus un tos pašus skaitļus abos B sleja un C lai, formatējot skaitli C sleja , jūs zināsiet no B kolonna kādā formātā numurs bija pirms tam.

1. VBA, lai formatētu skaitli no viena tipa uz citu programmā Excel

Vispirms uzzināsim, kā formatēt numuru 12345 no Šūna C5 mūsu dotajā datu kopā ar VBA uz Valūta formāts.

Soļi:

• Preses Alt + F11 uz tastatūras vai atveriet cilni Izstrādātājs -> Visual Basic lai atvērtu Visual Basic redaktors .

• Iznirstošajā koda logā izvēlnes joslā noklikšķiniet uz Ievietot -> Modulis .

• Nokopējiet un ielīmējiet kodu logā šādu kodu.

 Sub NumberFormat() Range("C5").NumberFormat = "#,###0.0" 'Tas formatēs skaitli 12345 valūtā End Sub 

Tagad jūsu kods ir gatavs darbam.

• Preses F5 uz tastatūras vai izvēlnes joslā izvēlieties Run -> Run Sub/UserForm Varat arī vienkārši noklikšķināt uz maza ikona Atskaņot apakšizvēlnes joslā, lai palaistu makro.

Šis kods formatēt skaitli 12345 valūtā ar decimālskaitli.

Ja šūnā vēlaties parādīt valūtas simbolu, vienkārši ievietojiet simbolu pirms koda.

 Sub NumberFormat() Range("C6").NumberFormat = "$#,##,##0.0" 'Tas formatēs skaitli 12345 valūtā ar simbolu $ End Sub 

Mūsu gadījumā mēs izmantojām dolārs ($) Varat izmantot jebkuru valūtas simbolu.

Šis kods formatēs skaitli valūtā ar dolārs ($) simbols.

Šo skaitļa formātu var pārvērst arī daudzos citos formātos. Vienkārši izpildiet tālāk norādīto kodu, lai pārveidotu skaitli vajadzīgajā formātā.

 Sub NumberFormat() 'Sākotnējais skaitlis 12345 Range("C5").NumberFormat = "#,###0.0" 'Tas formatēs skaitli valūtā Range("C6").NumberFormat = "$#,###0.0" 'Tas formatēs skaitli valūtā ar simbolu $ Range("C7").NumberFormat = "0.00%" 'Tas formatēs skaitli procentos Range("C8").NumberFormat = "#,###.00;[red]-#,##.00" 'Tasformatēs skaitli sarkanā krāsā (nosacītais formatējums) Range("C9").NumberFormat = "#?/?" 'Tas formatēs skaitli daļās Range("C10").NumberFormat = "0##""" Kg""""" 'Tas formatēs skaitli ar tekstu Range("C11").NumberFormat = "#-#-#-#-#-#-#" 'Tas formatēs skaitli ar atdalītājiem Range("C12").NumberFormat = "#,###0,00" 'Tas formatēs skaitli arar komatiem un decimāldaļām, ja nepieciešams Range("C13").NumberFormat = "#,##0" 'Tas formatēs skaitli tūkstošos ar komatiem, ja nepieciešams Range("C14").NumberFormat = "#,##0.00" 'Tas formatēs skaitli miljonos Range("C15").NumberFormat = "dd-mmm-yyyy hh:mm AM/PM" 'Tas formatēs skaitli datumā & amp; laiks End Sub 

VBA makro programma

Pārskats

Lasīt vairāk: Excel pielāgotais skaitļa formāts vairākiem nosacījumiem

2. Makrogramma, lai formatētu skaitļu diapazonu programmā Excel

Mēs esam redzējuši, kā mainīt vienas šūnas skaitļa formātu. Bet, ja vēlaties mainīt skaitļu diapazona formātu tad VBA kodi ir gandrīz tādi paši, kā parādīts iepriekšējā sadaļā. Šoreiz tā vietā, lai nodotu vienu šūnas atsauces numuru Range objekta iekavās, jums ir jānorāda iziet visu diapazonu (piemēram, šis C5:C8) iekavās.

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

Šis kods formatēs noteiktu skaitļu diapazonu no jūsu datu kopas programmā Excel.

Lasīt vairāk: Kā formatēt skaitli miljonos programmā Excel (6 veidi)

Līdzīgi lasījumi:

• Excel noapaļošana līdz 2 zīmēm aiz komata (ar kalkulatoru)
• Kā Negatīvu skaitļu ielikšana iekavās programmā Excel
• Kā formatēt skaitli tūkstošos K un miljonos M programmā Excel (4 veidi)
• Pielāgotais skaitļa formāts: miljoni ar vienu decimāldaļu Excel programmā (6 veidi)
• Kā Excel programmā mainīt skaitļa formātu no komata uz punktu (5 veidi)

3. Iekļaut VBA, lai konvertētu skaitli ar formatēšanas funkciju programmā Excel

Varat izmantot arī Formāta funkcija programmā Excel VBA lai konvertētu skaitļus. Šim nolūkam ir šāds makro,

Soļi:

• Tāpat kā iepriekš, atveriet Visual Basic redaktors no Izstrādātājs cilne un Ievietot a Modulis koda logā.
• Koda logā nokopējiet un ielīmējiet šādu kodu.

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

Tagad jūsu kods ir gatavs darbam.

Ziņojuma lodziņā tiks parādīts formatēts numurs.

Saistīts saturs: Kā Excel programmā Excel konvertēt skaitli procentos (3 ātri veidi)

Secinājums

Šajā rakstā tika parādīts, kā formatēt numuru programmā Excel ar VBA . es ceru, ka šis raksts jums ir bijis ļoti noderīgs. Ja jums ir kādi jautājumi par šo tēmu, droši jautājiet.