Di vê gotarê de ez ê du awayên bilez û belaş nîşanî we bidim ku hûn di Excel 2019, 2016, 2013 û guhertoyên din de jimareyên diravî li peyvên îngilîzî veguherînin.

Microsoft Excel mezin e bernameya ji bo hesabkirina vê û wê. Ew di destpêkê de hate pêşve xistin da ku rêzikên daneyên mezin bişopîne. Lêbelê, ew di heman demê de dihêle tomarên hesabkirinê yên wekî fatûre, nirxandin an bîlançoyên bi lez û bez çêbike.

Di belgeyên dravdanê yên kêm û zêde de pêdivî ye ku nirxên hejmarî bi forma wan a peyvan re dupat bikin. Ji yên ku bi destan hatine nivîsandin sextekirina hejmarên tîpkirî pir dijwartir e. Hin sextekar dikarin hewl bidin ku ji 3000 8000-an çêbikin, lê hema hema ne gengaz e ku bi dizî "sê" bi "heşt" veguherînin.

Ji ber vê yekê ya ku hûn hewce ne ev e ku tenê hejmaran biguhezînin peyvan di Excel de (mînak 123.45 "sed û bîst û sê, çil û pênc"), lê dolar û sent binivîsin (mînak $29,95 wekî "bîst û neh dolar û nod û neh sent"), lîre û pence ji bo GBP, euro û eurocent ji bo EUR, hwd.

Tewra guhertoyên herî paşîn ên Excel-ê ji bo rastnivîsîna hejmaran amûrek çêkirî tune, ne ku guhertoyên berê nebêjin. Lê ew gava ku Excel bi rastî baş e. Hûn dikarin her gav fonksiyona wê bi karanîna formulan di hemî

hevhevkirinên wan, makroyên VBA, an pêvekên partiya sêyemîn de bi kar bînin.

Li jêr hûn ê du awayan bibînin ku hejmaran ji jimareyên peyvan

Û, dibe ku, hûn hewce bibin kudi Excel de peyvan veguherînin Hejmaran

Nîşe. Ger hûn li veguhertina jimare-nivîsê digerin, ku tê vê wateyê ku hûn dixwazin Excel jimara we wekî nivîsê bibîne, ew hinekî cûda ye. Ji bo vê yekê, hûn dikarin fonksiyona TEXT-ê an çend awayên din ên ku di "Çawa meriv jimareyan di Excel-ê de biguhezîne nivîsê" bikar bîne.

Makroya SpellNumber VBA ji bo veguheztina hejmaran li peyvan

Wek ku min berê jî behs kiribû , Microsoft nexwest ku amûrek ji bo vî karî zêde bike. Lêbelê, gava ku wan dît ku çend bikarhêner hewce ne, wan makroya taybetî ya VBA li ser malpera xwe afirandin û weşandin. Makro tiştê ku navê xwe SpellNumber pêşniyar dike dike. Hemû makroyên din ên ku ez pê re hatim, li ser bingeha koda Microsoft-ê ne.

Hûn dikarin makroya ku wekî "formula jimareya rastnivîsê" tê gotin bibînin. Lêbelê, ew ne formulek e, lê fonksiyonek makro ye, an jî rasttir be Fonksiyonek diyarkirî ya bikarhênerê Excel (UDF).

Vebijarka jimareya rastnivîsê dikare dolar û centan binivîse. Ger ji we re pereyek din lazim be, hûn dikarin bi navê yeka xwe " dollar " û " cent " biguherînin.

Heke hûn ne mêrekî zana yê VBA bin. , li jêr hûn ê kopiyek kodê bibînin. Heke hûn hîn naxwazin an jî wextê we tune ye ku hûn vê yekê sererast bikin, ji kerema xwe vê çareseriyê bikar bînin.

1. Pirtûka xebatê ya ku hûn hewce ne ku hejmaran binivîsin vekin.
2. Alt bikirtînin +F11 ji bo vekirina pencereya edîtorê Visual Basic.
3. Eger çend pirtûkên we vebûne, kontrol bikin ku pirtûka xebatê ya pêwîst bi kar tîne çalak e.lîsteya projeyên li goşeyê çepê yê jor ê edîtorê (yek ji hêmanên pirtûka xebatê bi şîn tê ronî kirin).
4. Di pêşeka edîtorê de biçin Têxistin -> Module .
5. Divê hûn pencereyek bi navê YourBook - Module1 bibînin. Di çarçoveya jêrîn de hemî kodê hilbijêrin û li vê pencereyê bixin.

   Vebijêrk Eşkere 'Fonksiyon Fonksiyona Sereke Hêjmar rastnivîsînê( ByVal MyNumber) Dolar, Sentan, Dehanî Dim Cihê, Cihê ReDim Bijmêre(9) Wek String Cihê(2) = "Hezar" Cih(3) = "Milyon" Cih(4) = " Milyar " Cih(5) = " Trîlyon "Hejmara min = Tim(Str(Hejmara Min)) DehanCih = InStr(Hejmara Min, "." ) Heke Dehan Cihê > 0 Paşê Cent = GetTens(Çep(Navê(Hejmara Min, Cihê Dehanî + 1) & _ "00" , 2)) Hejmara min = Tirm(Çep(Hejmara min, Cihê Dehanî - 1)) Bi dawî bibe Ger Hejmar = 1 Dema Jimara Min "" Temp = GetHundreds(Rast(Hejmara Min, 3)) Ger Temp "" Hingê Dolar = Temp & amp; Cih (Hejmar) & amp; Dolar Ger Len (Hejmara Min) & gt; 3 Dûv re MyNumber = Çep (MyNumber, Len (MyNumber) - 3) Wekî din MyNumber = "" Dawî Hejmar = Hejmar + 1 Loop Hilbijêre Dolar Dolar Dolar "" Dollar = "Bê Dolar" Dolar "Yek" Dollar = "Yek Dolar" Case Else Dollar = Dolar & amp; "Dolar" Dawî Hilbijêre Hilbijêre Cent Cent Case "" Cent = "û No Cent" Case "Yek" Cent = "û Yek Cent" Case Cents Cent = "û " & amp; Sentan & amp; "Sent" Dawî Hilbijêre SpellNumber = Dolar & amp; Fonksiyona Dawî ya Sentan GetHundreds(ByVal MyNumber) Dim Encam Wek String Heke Val(MyNumber) = 0 Dûv re ji Fonksiyonê Derkeve MyNumber = Rast ("000" & amp; MyNumber, 3) ' Cîhê sedan veguherîne. Ger Mid(Hejmara Min, 1, 1) "0" Paşê Encam = GetDigit(Navê(Nimreya Min, 1, 1)) & amp; "Sed" Dawî Ger ' Cihê deh û yekan biguherîne. Ger Mid(MyNumber, 2, 1) "0" Paşê Encam = Encam & amp; GetTens (Navê (Hejmara Min, 2)) Encama din = Encam & amp; GetDigit(Navenda(Nimreya Min, 3)) Dawî Heke GetHundreds = Encam Fonksiyon Dawiya Dawî GetTens(TensText) Dim Encam Wek Encama String = "" ' Nirxa fonksiyonê ya demkî betal bike. Ger Val(Çep(TensText, 1)) = 1 Paşê ' Ger nirx di navbera 10-19 de… Mesela Val(TensText) Hilbijêre Mesela 10: Encam = "Deh" Mesele 11: Encam = "Yanzdeh" Rewş 12: Encam = "Dwazdeh" " Doza 13: Encam = "Sêzdeh" Doza 14: Encam = "Çardeh" Doza 15: Encam = "Pazdeh" Doza 16: Encam = "Şanzdeh" Doza 17: Encam = "Hevdeh" Doza 18: Encam = "Hejdeh" Doza 19: Encam = "Nineh" Rewşa Din Dawî Hilbijêre 'Eger nirx di navbera 20-99 de… Bijarte Val(Çep(TensText, 1)) Mesela 2: Encam = "Bîst" Doza 3: Encam = "Sî" Doza 4: Encam = "Çil" Doza 5: Encam = "Pêncî" Doza 6: Encam = "Şêst" Doza 7: Encam = "Heftê" Doza 8: Encam = "Heştê" Doza 9: Encam = "Nîh" Rewşa Din Dawî Hilbijêre Encamê = Encam & amp; GetDigit _ (Rast(TensText, 1)) 'Cihê xwe bistînin. Dawî Ger GetTens = Encam Fonksiyon Dawiya Dawî GetDigit(Hejmar) Mesele HilbijêreVal(hejmar) Doza 1: GetDigit = "Yek" Doza 2: GetDigit = "Du" Doza 3: GetDigit = "Sê" Doza 4: GetDigit = "Çar" Doza 5: GetDigit = "Pênc" Doza 6: GetDigit = " Şeş" Doza 7: GetDigit = "Heft" Doza 8: GetDigit = "Heşt" Mesele 9: GetDigit = "Neh" Rewşa Din : GetDigit = "" Biqede Fonksiyona Dawî Hilbijêre

6. Ctrl+S Bike ji bo tomarkirina pirtûka xebatê ya nûvekirî.

   Divê hûn pirtûka xweya xebatê ji nû ve hilînin. Dema ku hûn hewl didin ku pirtûka xebatê bi makroyekê hilînin hûn ê peyama " Taybetmendiyên jêrîn di pirtûka xebatê ya bê makro de neyên tomarkirin "

   

   Na bikirtînin. Dema ku hûn bibînin diyalogek nû, vebijarka Save wekî vebijark hilbijart. Li qada " Wekî cureyê tomar bike " vebijarka " Pirtûka xebatê ya bi makro-çalakkirî ya Excel " hilbijêrin.

   

Makroya SpellNumber di nav de bikar bînin pelên xwe yên xebatê

Niha hûn dikarin fonksiyona SpellNumber di belgeyên xwe yên Excel de bikar bînin. =SpellNumber(A2) têkevin hucreya ku hûn hewce ne ku jimareya bi peyvan hatî nivîsandin bistînin. Li vir A2 navnîşana hucreyê bi hejmar an mîqdar e.

Li vir hûn dikarin encamê bibînin:

Voila!

Zû fonksiyona SpellNumber li şaneyên din kopî bikin.

Heke hûn Pêdivî ye ku tevahiya tabloyê, ne tenê 1 şaneyê, veguhezîne, nîşana mişkê bi formula li quncika rastê ya jêrîn a şaneyê biguhezîne heya ku ew bibe xaçek reş a piçûk:

Çep-klîk bike û wê bikişîne seranserê stûna dagirtina formulê. Bişkojka ji bo dîtina encaman berdin:

Nîşe. Ji kerema xwe veji bîr neke ku heke hûn SpellNumber bi girêdana şaneyek din re bikar bînin, her carê ku hejmara di şaneya çavkaniyê de were guheztin dê berhevoka nivîskî were nûve kirin.

Hûn dikarin jimareyê rasterast têkevin fonksiyonê, ji bo mînak, =SpellNumber(29.95) (29.95 - bê îşaret û nîşana Dolar).

Dezawantajên bikaranîna makroyê ji bo nivîsandina hejmaran li Excel

Pêşî, divê hûn VBA bizanibin ku kodê li gorî xwe biguherînin. hewcedariyên. Pêdivî ye ku kodê ji bo her pirtûka xebatê, ku hûn plan dikin ku wê biguhezînin, bixin. Wekî din, hûn ê hewce bikin ku hûn pelek şablonek bi makroyan biafirînin û Excel-ê mîheng bikin da ku vê pelê di her destpêkê de bar bike.

Nebaşiya sereke ya karanîna makroyê ew e ku hûn pirtûka xebatê ji yekî din re bişînin, ev kes dê neke nivîsê bibînin heya ku makro di pirtûka xebatê de neyê çêkirin. Û heke ew çêkirî be jî, ew ê hişyariyek bistînin ku di pirtûka xebatê de makro hene.

Bi karanîna pêvekek taybetî jimareyan di peyvan de rastnivîsin

Ji bo bikarhênerên Excel yên ku hewce ne zû berhevokan binivîsin lê wextê wan tune ku VBA fêr bibin an jî çarenûsê bibînin, me amûrek taybetî çêkir. ku dikare zû veguhertina mîqdar-bi-peyvan ji bo çend pereyên populer pêk bîne. Ji kerema xwe pêveka Jimareya Rastnivîsê ya ku bi serbestberdana herî paşîn a Suite Ultimate ya ji bo Excel ve tê de heye, bibînin.

Ji xeynî ku amûr ji bo karanîna amade ye, di veguheztina mîqdarên nivîsê de bi rastî nerm e:

• Hûn dikarin yek ji wan hilbijêrindiravên jêrîn: USD, EUR, GBP, BIT, AUD.
• Perçeya perçeyî bi cent, quruş, an bitcent binivîse.
• Ji bo encamê her tîpek nivîsê hilbijêrin: tîpa jêrîn, PIRTEK JÎ , Pirsgirêka sernavê, an kêşeya hevokê.
• Perçeya dehiyê bi awayên cihê binivîsin.
• Sfir sentan têxin an jê dernekevin.

Pêvek hemî nûjen piştgirî dike. guhertoyên ku di nav de Excel 365, Excel 2029, Excel 2016, Excel 2013, û Excel 2010 hene. Ji kerema xwe re li ser kapasîteyên din ên li ser rûpela malê ya hilberê ku li jor ve girêdayî ye bigerin.

Û niha, em vê amûra rastnivîsîna hejmarê di çalakiyê de bibînin :

1. Ji bo encamê şaneyek vala hilbijêre.
2. Li ser tabela Ablebits , di koma Utilities de, bitikîne Jimareya Rastnivîsînê .
3. Di pencereya diyalogê ya Hejmar birijîne de ku xuya dibe, tiştên jêrîn mîheng bikin:
   • Ji bo qutiya hejmara xwe hilbijêrin , şaneya ku tê de mîqdara ku tu dixwazî ​​wekî metnê were nivîsandin hildibijêre.
   • Tê xwestin niha , qeyda tîpan û awayê dehiyê diyar bike. divê beşa ya jimareyê were nivîsandin.
   • Tenê diyar bike ka dê sifir centan têxe nav an na.
   • Hilbijêre ku encam wekî nirx an formul têxe.
4. Li binê pencereya diyalogê, pêşdîtin encamê. Heke hûn ji awayê nivîsandina hejmara xwe kêfxweş in, bikirtînin Nivîsîn . Wekî din, mîhengên cihêreng biceribîne.

Wêneya jêrîn pêşnuma nîşan didevebijark û hejmara rastnivîsê ya di B2 de. Ji kerema xwe di barika formula de formulek (bi rastî, fonksiyonek diyarkirî ji hêla bikarhêner ve) binihêrin:

Û ev nîşanek bilez e ku diravên din çawa dikarin werin nivîsandin:

Serişte û not:

• Ji ber ku Hejmara Rastnivîsînê pêveka ji bo birêvebirina rewşên bikaranîna rasteqîn ên wekî fatûre û belgeyên din ên darayî hatiye sêwirandin, ew tenê dikare yek hejmarê biguherîne di carekê de.
• Ji bo nivîsandina stûna jimareyan , di şaneya yekem de formûlekê têxe şaneya yekem, û dûv re formula xwarê kopî bike.
• Heke derfet hebe ku Dibe ku daneyên çavkaniyê di pêşerojê de biguhere, çêtir e ku hûn encamê wekî formula têxin , ji ber vê yekê gava ku hejmara orîjînal diguhere ew bixweber nûve dibe.
• Dema ku encamê wekî formula hilbijêrin 2> vebijêrk, fonksiyona xwerû ya ku ji hêla bikarhêner ve hatî diyarkirin (UDF) tê danîn. Ger hûn plan dikin ku pirtûka xwe ya xebatê bi yekî re ku Suite Ultimate sazkirî nîne re parve bikin, ji bîr mekin ku berî parvekirinê formulan bi nirxan biguherînin.

Veguherîna berevajî - Peyvên îngilîzî nav jimaran

Rast , Ez nikarim xeyal bikim ka çima dibe ku hûn jê re hewce bikin. Tenê di rewşê de… :)

Xuya ye ku Excel MVP, Jerry Latham, fonksiyona diyarkirî ya Excel (UDF) wekî WordsToDigits afirandiye. Ew peyvên Îngilîzî vedigerîne hejmarê.

Hûn dikarin pirtûka xebatê ya Jerry WordsToDigits dakêşin da ku koda UDF-ê bibînin. Li vir hûn ê mînakên wî yên çawa bikar bînin jî bibîninkarî.

Hûn dikarin bibînin ka fonksiyon li ser pela " Nimûneyên Nimûne " çawa dixebite, li wir hûn ê jî bikarin nimûneyên xwe binivîsin. Ger hûn plan dikin ku WordsToDigits di belgeyên xwe de bi kar bînin, ji kerema xwe agahdar bibin ku ev fonksiyona sînorkirî ye. Mînakî, ew perçeyên ku di peyvan de hatine nivîsandin nas nake. Hûn ê hemî hûrguliyan li ser pelê " Agahdarî " bibînin.