Kā nomainīt ciparus burtos, izmantojot uzrakstītas Excel rokasgrāmatas formulas

Vai jūs zināt, vai tā ir formula vai funkcijadiezgan Excel? Nu, formulu vai funkciju izmanto, lai automātiski pārveidotu ciparus burtos vai teikumos. Piemēram, veicot kvītis, kurās parasti minēts teikums, kas aprēķināts no nominālās rupijas, piemēram, mainot Rp. 600 000 līdz seši simti tūkstoši rupijas.

Parasti šai Excel funkcijai izmantotā metode ir izmantot VBA makro kodu vai izmantot Excel ADDIN.

Tomēr faktiski VBA koda vai pievienojumprogrammas izmantošanai Excel ir vairāki trūkumi, proti:

1. Ja izmantojat pievienojumprogrammu, iespējams, ka funkcija nedarbosies, ja tā tiks atvērta citā datorā.
2. Ja jūs izmantojat VBA kodu, jauniem (jauniem) lietotājiem būs grūti to izmantot.
3. Ja izmantojat VBA kodu, failus nevar saglabāt ar paplašinājumu .xlsx.
4. Un pārējie.

Risinājums ir tāds, ka mēs varam izmantot vairāku Excel funkciju kombināciju, lai izveidotu formulu, neizmantojot VBA kodu un vai Excel rupiah aprēķināto summu.

Kā konvertēt ciparus uz burtiem programmā Excel

Šajā apmācībā mēs iemācīsimies divu veidu Excel formulas. Pirmkārt, rupijai tas ir tāpat kā mainīt numuru 2 300 000, lai būtu Divi miljoni trīs simti tūkstoši. Otrkārt, lai pārvērstu skaitļus vārdos, piemēram, 90,80 līdz Deviņdesmit Astoņa nulle.

1. Excel Rupia Spelled Formula

Šeit mēs pārveidosim skaitļus teikumos. Apsveriet piemēru zemāk:

Iepriekš sniegtajā piemērā ir šāda formula:

=IF(A2=0,"nol",IF(A2<0,"minus ","")& SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE( IF(--MID(TEXT(ABS(A2),"000000000000000"),1,3)=0,"",MID(TEXT(ABS(A2),"000000000000000"),1,1)&" ratus "&MID(TEXT(ABS(A2),"000000000000000"),2,1)&" puluh "&MID(TEXT(ABS(A2),"000000000000000"),3,1)&" trilyun ")& IF(--MID(TEXT(ABS(A2),"000000000000000"),4,3)=0,"",MID(TEXT(ABS(A2),"000000000000000"),4,1)&" ratus "&MID(TEXT(ABS(A2),"000000000000000"),5,1)&" puluh "&MID(TEXT(ABS(A2),"000000000000000"),6,1)&" milyar ")& IF(--MID(TEXT(ABS(A2),"000000000000000"),7,3)=0,"",MID(TEXT(ABS(A2),"000000000000000"),7,1)&" ratus "&MID(TEXT(ABS(A2),"000000000000000"),8,1)&" puluh "&MID(TEXT(ABS(A2),"000000000000000"),9,1)&" juta ")& IF(--MID(TEXT(ABS(A2),"000000000000000"),10,3)=0,"",IF(--MID(TEXT(ABS(A2),"000000000000000"),10,3)=1,"*",MID(TEXT(ABS(A2),"000000000000000"),10,1)&" ratus "&MID(TEXT(ABS(A2),"000000000000000"),11,1)&" puluh ")&MID(TEXT(ABS(A2),"000000000000000"),12,1)&" ribu ")& IF(--MID(TEXT(ABS(A2),"000000000000000"),13,3)=0,"",MID(TEXT(ABS(A2),"000000000000000"),13,1)&" ratus "&MID(TEXT(ABS(A2),"000000000000000"),14,1)&" puluh "&MID(TEXT(ABS(A2),"000000000000000"),15,1)),1,"satu"),2,"dua"),3,"tiga"),4,"empat"),5,"lima"),6,"enam"),7,"tujuh"),8,"delapan"),9,"sembilan"),"0 ratus",""),"0 puluh",""),"satu puluh 0","sepuluh"),"satu puluh satu","sebelas"),"satu puluh dua","duabelas"),"satu puluh tiga","tigabelas"),"satu puluh empat","empatbelas"),"satu puluh lima","limabelas"),"satu puluh enam","enambelas"),"satu puluh tujuh","tujuhbelas"),"satu puluh delapan","delapanbelas"),"satu puluh sembilan","sembilanbelas"),"satu ratus","seratus"),"*satu ribu","seribu"),0,""))," "," ")) &" rupiah"

Iepriekš minētā formula patiešām ir ļoti gara un noteiktimulsinoši, bet jums nav jāuztraucas, jo jums tas ir tikai jākopē. Iepriekšminētajā formulā skaitļi, kas tiks pārveidoti tekstā / burtos, ir Excel šūna A2.

Iepriekš minētajā piemērā esat pievienojis vārdu rupiah izvadei, kur esat pievienojis šādu excel formulu Excel augstākās formulas beigās, kas ir:

&" rupiah"

Turklāt var mainīt arī burtu reģistru Excel formulās, izmantojot formulu, kurā šūnas atsauce ir šūna A2:

=PROPER(IF(A2=0,"nol",IF(A2<0,"minus ","")& SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE( IF(--MID(TEXT(ABS(A2),"000000000000000"),1,3)=0,"",MID(TEXT(ABS(A2),"000000000000000"),1,1)&" ratus "&MID(TEXT(ABS(A2),"000000000000000"),2,1)&" puluh "&MID(TEXT(ABS(A2),"000000000000000"),3,1)&" trilyun ")& IF(--MID(TEXT(ABS(A2),"000000000000000"),4,3)=0,"",MID(TEXT(ABS(A2),"000000000000000"),4,1)&" ratus "&MID(TEXT(ABS(A2),"000000000000000"),5,1)&" puluh "&MID(TEXT(ABS(A2),"000000000000000"),6,1)&" milyar ")& IF(--MID(TEXT(ABS(A2),"000000000000000"),7,3)=0,"",MID(TEXT(ABS(A2),"000000000000000"),7,1)&" ratus "&MID(TEXT(ABS(A2),"000000000000000"),8,1)&" puluh "&MID(TEXT(ABS(A2),"000000000000000"),9,1)&" juta ")& IF(--MID(TEXT(ABS(A2),"000000000000000"),10,3)=0,"",IF(--MID(TEXT(ABS(A2),"000000000000000"),10,3)=1,"*",MID(TEXT(ABS(A2),"000000000000000"),10,1)&" ratus "&MID(TEXT(ABS(A2),"000000000000000"),11,1)&" puluh ")&MID(TEXT(ABS(A2),"000000000000000"),12,1)&" ribu ")& IF(--MID(TEXT(ABS(A2),"000000000000000"),13,3)=0,"",MID(TEXT(ABS(A2),"000000000000000"),13,1)&" ratus "&MID(TEXT(ABS(A2),"000000000000000"),14,1)&" puluh "&MID(TEXT(ABS(A2),"000000000000000"),15,1)),1,"satu"),2,"dua"),3,"tiga"),4,"empat"),5,"lima"),6,"enam"),7,"tujuh"),8,"delapan"),9,"sembilan"),"0 ratus",""),"0 puluh",""),"satu puluh 0","sepuluh"),"satu puluh satu","sebelas"),"satu puluh dua","duabelas"),"satu puluh tiga","tigabelas"),"satu puluh empat","empatbelas"),"satu puluh lima","limabelas"),"satu puluh enam","enambelas"),"satu puluh tujuh","tujuhbelas"),"satu puluh delapan","delapanbelas"),"satu puluh sembilan","sembilanbelas"),"satu ratus","seratus"),"*satu ribu","seribu"),0,""))," "," "))&" Rupiah")

Rezultāts izskatīsies zemāk redzamajā attēlā:

Ņemiet to vērā! Izmantojot iepriekš minēto Excel Excel formulu, ir jāpievērš uzmanība vairākām lietām:

• Parādiet ne vairāk kā 15 ciparus. Tātad, ja vairāk nekā 15 formulas cipari nedos aprēķināto funkciju, kā tai vajadzētu.
• Uzrakstīta Excel formula piemērā nevar būtturiet numuru aiz komata. Tātad, ja pēc komata ir vajadzīgs skaitlis, tad neizmantojiet iepriekšminēto formulu vai atdaliet skaitļus starp pirmo komatu un aizmugurējo komatu.
• Jūs varat mainīt komatu (,) iepriekš esošajā Excel formulā uz semikolu (;) Microsoft Excel formātā atkarībā no katra lietotāja Excel iestatījumiem.

2. Formula precīzi formulēja Excel skaitļus vārdiem

Formula, kurā skaitļi tiek izteikti vārdos, nozīmē, ka mēs mainām numurus burtiem vai vārdiem. Apsveriet Excel skaitļa formulas piemēru zemāk esošajiem vārdiem:

Iepriekš sniegtajā piemērā ir šāda formula:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEXT(A2,"#,00"), 0,"Nol "),1,"Satu "),2,"Dua "),3,"Tiga "),4,"Empat "),5,"Lima "),6,"Enam "),7,"Tujuh "),8,"Delapan "),9,"Sembilan "),",","Koma ")

Iepriekš minētajā Excel formulā šūna A2 ir šūna, kurā ir maināmie skaitļi.

Piezīme! Ja vēlaties aiz komata vienu numuru, pēc vajadzības mainiet “#, 00” uz “#, 0” vai citus.

Šoreiz diskusija ir par to, kā konvertēt ciparus burtos ar formulu ar nosaukumu Macro VBA un Addin programmā Excel. Cerams noderīga un veiksme. Paldies!