En ĉi tiu artikolo mi montros al vi du rapidajn kaj senpagajn manierojn konverti valutajn nombrojn al anglaj vortoj en Excel 2019, 2016, 2013 kaj aliaj versioj.

Mikrosofto Excel estas bonega. programo por kalkuli tion kaj tion. Ĝi estis komence evoluigita por prilabori grandajn datumajn tabelojn. Tamen ĝi ankaŭ ebligas krei kontadajn registrojn kiel fakturojn, taksadon aŭ bilancojn rapide kaj efike.

En pli-malpli solidaj pagdokumentoj necesas duobligi nombrajn valorojn per ilia vortformo. Estas multe pli malfacile falsi tajpitajn nombrojn ol tiujn skribitajn mane. Iu fripono povas provi fari 8000 el 3000, dum estas preskaŭ neeble anstataŭigi sekrete "tri" per "ok".

Do, kion vi bezonas, ne nur konverti nombrojn al vortoj en Excel (ekz. 123.45 al "cent dudek tri, kvardek kvin"), sed literumas dolarojn kaj cendojn (ekz. $29.95 kiel "dudek naŭ dolarojn kaj naŭdek naŭ cendojn"), funtojn kaj pencojn por GBP, eŭrojn kaj eŭrocendojn por EUR, ktp.

Eĉ la plej novaj versioj de Excel ne havas enkonstruitan ilon por literumi nombrojn, sen mencii antaŭajn versiojn. Sed tio estas kiam Excel estas vere bona. Vi ĉiam povas plibonigi ĝian funkciecon uzante formulojn en ĉiuj iliaj

kombinaĵoj, VBA-makrooj aŭ triaj aldonaĵoj.

Sube vi trovos du manierojn konverti nombrojn de ciferoj al vortoj

Kaj, eble, vi eble bezonoskonverti Vortojn al Nombroj en Excel

Noto. Se vi serĉas la konverton de nombro al teksto , kio signifas, ke vi volas ke Excel vidu vian numeron kiel tekston, ĝi estas iom malsama afero. Por tio, vi povas uzi la TEKSTO-funkcion aŭ kelkajn aliajn manierojn priskribitajn en Kiel ŝanĝi nombrojn al teksto en Excel.

SpellNumber VBA-makro por konverti nombrojn al vortoj

Kiel mi jam menciis , Mikrosofto ne volis aldoni ilon por ĉi tiu tasko. Tamen, kiam ili vidis kiom da uzantoj bezonis ĝin, ili kreis kaj publikigis la specialan VBA-makroon en sia retejo. La makroo faras tion, kion ĝia nomo SpellNumber sugestas. Ĉiuj aliaj makrooj, kiujn mi renkontis, baziĝas sur la Mikrosofta kodo.

Vi povas trovi la makroon menciitan kiel "literuma formulo". Tamen, ĝi ne estas formulo, sed makroa funkcio, aŭ por esti pli preciza Excel User-difinita funkcio (UDF).

La spellnumber-opcio kapablas skribi dolarojn kaj cendojn. Se vi bezonas alian valuton, vi povas ŝanĝi " dolaron " kaj " cent " kun la nomo de via.

Se vi ne estas saĝa VBA. , sube vi trovos kopion de la kodo. Se vi ankoraŭ ne volas aŭ ne havas tempon ordigi ĉi tion, bonvolu uzi ĉi tiun solvon.

1. Malfermu la laborlibron kie vi devas literumi la ciferojn.
2. Premu Alt. +F11 por malfermi la fenestron de la redaktilo de Visual Basic.
3. Se vi havas plurajn librojn malfermitaj, kontrolu ke la bezonata laborlibro estas aktiva uzantela listo de projektoj en la supra maldekstra angulo de la redaktilo (unu el la laborlibroelementoj estas emfazita per bluo).
4. En la redaktila menuo iru al Enmeti -> Modulo .
5. Vi devus vidi fenestron nomitan YourBook - Modulo1. Elektu la tutan kodon en la suba kadro kaj algluu ĝin al ĉi tiu fenestro.

   Opcio Eksplicita 'Ĉefa Funkcio Funkcio SpellNumber( ByVal MyNumber) Dim Dolaroj, Cendoj, Temp Dim DecimalPlace, Count ReDim Place (9) As String Place (2) = " Mil " Place (3) = " Miliono " Place (4) = " Miliardo " Place (5) = " Duiliono " MyNumber = Trim (Str (MyNumber)) DecimalPlace = InStr (MyNumber, "." ) Se DecimalPlace > 0 Tiam Cendoj = GetTens (Maldekstre (Mezo (MiaNumero, DecimalLoko + 1) & _ "00" , 2)) MiaNumero = Trim (Maldekstre (MiaNumero, Decimalloko - 1)) Fino Se Kalkulo = 1 Faru Dum MiaNumero "" Temp = GetHundreds (Right (MiaNumero, 3)) Se Temp "" Tiam Dolaroj = Temp & Loki(Nombri) & Dolaroj If Len(MiaNumero) > 3 Tiam MiaNumero = Maldekstre (MiaNumero, Len (MiaNumero) - 3) Alie MiaNumero = "" Fino Se Kalkulo = Kalkulo + 1 Buklo Elektu Kazo Dolaroj Kazo "" Dolaroj = "Neniu Dolaroj" Kazo "Unu" Dolaroj = "Unu Dolaro" Case Else Dollars = Dolaroj & " Dolaroj" Fino Elektu Elektu Kazon Cents Case "" Cents = " and No Cents" Case "One" Cents = " and One Cents" Case Else Cents = " and " & Cendoj & " Cendoj " End Select SpellNumber = Dolaroj & Cents End Function Function GetHundreds(ByVal MiaNumero) Dim Result As String If Val (MiaNumero) = 0 Tiam Eliru Funkcion MiaNumero = Dekstra( "000" & MiaNumero, 3) ' Konvertu la centojn. Se Meze (MiaNumero, 1, 1) "0" Tiam Rezulto = GetDigit (Mez (MiaNumero, 1, 1)) & " Cent " End If ' Konvertu la dekojn kaj unuojn. Se Meze (MiaNumero, 2, 1) "0" Tiam Rezulto = Rezulto & GetTens(Mid(MiaNumero, 2)) Alie Rezulto = Rezulto & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Rezulto End Function Function GetTens(TensText) Dim Result As String Result = "" ' Nuligu la provizoran funkciovaloron. Se Val(Maldekstre(TensText, 1)) = 1 Tiam ' Se valoro inter 10-19... Elektu Kazon Val(TensText) Kazo 10: Rezulto = "Dek" Kazo 11: Rezulto = "Dek unu" Kazo 12: Rezulto = "Dek du " Kazo 13: Rezulto = "Dek tri" Kazo 14: Rezulto = "Dek kvar" Kazo 15: Rezulto = "Dek kvin" Kazo 16: Rezulto = "Dek ses" Kazo 17: Rezulto = "Dek sep" Kazo 18: Rezulto = "Dek ok" Kazo 19: Rezulto = "Dek naŭ" Kazo Alie Fino Elektu Alie ' Se valoro inter 20-99... Elektu Kazo Val(Maldekstre(TensText, 1)) Kazo 2: Rezulto = "Dudek " Kazo 3: Rezulto = "Tridek " Kazo 4: Rezulto = " Kvardek " Kazo 5: Rezulto = " Kvindek " Kazo 6: Rezulto = " Sesdek " Kazo 7: Rezulto = " Sepdek " Kazo 8: Rezulto = " Okdek " Kazo 9: Rezulto = " Naŭdek " Kazo Alie Fino Elektu Rezulton = Rezulto & GetDigit _ (Right(TensText, 1)) ' Retrovi la lokon. End If GetTens = Rezulto Fina Funkcio Funkcio GetDigit(Cifero) Elektu usklekonVal(cifero) Kazo 1: GetDigit = "Unu" Kazo 2: GetDigit = "Du" Kazo 3: GetDigit = "Tri" Kazo 4: GetDigit = "Kvar" Kazo 5: GetDigit = "Kvin" Kazo 6: GetDigit = " Ses" Kazo 7: GetDigit = "Sep" Kazo 8: GetDigit = "Ok" Kazo 9: GetDigit = "Naŭ" Kazo Alie : GetDigit = "" End Select End Function

6. Premu Ctrl+S por konservi la ĝisdatigitan laborlibron.

   Vi devos rekonservi vian laborlibron. Kiam vi provas konservi la laborlibron per makroo, vi ricevos la mesaĝon " La jenaj funkcioj ne povas esti konservitaj en makro-libera laborlibro "

   

   Alklaku Ne. Kiam vi vidas novan dialogon, elektis la opcion Konservi kiel. En la kampo " Konservi kiel tipo " elektu la opcion " Excel-ebligita makrolibro ".

   

Uzu SpellNumber-makroon en viaj laborfolioj

Nun vi povas uzi la funkcion SpellNumber en viaj Excel-dokumentoj. Enigu =SpellNumber(A2) en la ĉelon, kie vi devas ricevi la nombron skribitan per vortoj. Ĉi tie A2 estas la adreso de la ĉelo kun la nombro aŭ kvanto.

Ĉi tie vi povas vidi la rezulton:

Venu!

Rapide kopiu la funkcion SpellNumber al aliaj ĉeloj.

Se vi bezonas konverti la tutan tabelon, ne nur 1 ĉelon, metu vian muskursonon al la malsupra dekstra angulo de la ĉelo kun la formulo ĝis ĝi fariĝas malgranda nigra kruco:

Maldekstre alklaku kaj trenu ĝin tra la kolumno por plenigi la formulon. Liberigu la butonon por vidi la rezultojn:

Notu. Bonvolumemoru, ke se vi uzas SpellNumber kun ligilo al alia ĉelo, la skribita sumo estos ĝisdatigita ĉiufoje kiam la nombro en la fontĉelo estas ŝanĝita.

Vi ankaŭ povas enigi la nombron rekte en la funkcion, ĉar ekzemplo, =SpellNumber(29.95) (29.95 - sen citiloj kaj la Dolara signo).

Malavantaĝoj uzi makroon por literumi nombrojn en Excel

Unue, vi devas koni VBA por modifi la kodon laŭ via bezonoj. Necesas alglui la kodon por ĉiu laborlibro, kie vi planas ŝanĝi ĝin. Alie, vi devos krei ŝablonon dosieron kun makrooj kaj agordi Excel por ŝargi ĉi tiun dosieron ĉe ĉiu komenco.

La ĉefa malavantaĝo uzi makroon estas se vi sendas la laborlibron al iu alia, tiu ĉi persono ne faros vidu la tekston krom se la makroo estas enkonstruita en la laborlibron. Kaj eĉ se ĝi estas enkonstruita, ili ricevos alarmon, ke estas makrooj en la laborlibro.

Literumi nombrojn en vortojn uzante specialan aldonaĵon

Por uzantoj de Excel, kiuj bezonas rapide literumi sumojn sed ne havas tempon lerni VBA aŭ eltrovi solvojn, ni kreis specialan ilon. kiu povas rapide plenumi la kvanton-al-vorta konvertiĝo por kelkaj popularaj valutoj. Bonvolu renkonti la Spell Number-aldonaĵon inkluzivitan kun la plej nova eldono de nia Ultimate Suite por Excel.

Krom preta por uzo, la ilo estas vere fleksebla por konverti kvantojn al teksto:

• Vi povas elekti unu el lajenaj valutoj: USD, EUR, GBP, BIT, AUD.
• Literumu la frakcian parton en cendoj, pencoj aŭ bicendoj.
• Elektu iun ajn tekstan minusklon por la rezulto: minuskla, MAJUSKLOJ , Titolo aŭ Frazo.
• Literumu la decimalan parton en malsamaj manieroj.
• Inkluzivi aŭ preterlasi nul cendojn.

La aldonaĵo subtenas ĉiujn modernajn versioj inkluzive de Excel 365, Excel 2029, Excel 2016, Excel 2013 kaj Excel 2010. Bonvolu bonvolu esplori aliajn kapablojn sur la hejmpaĝo de la produkto ligita supre.

Kaj nun, ni vidu ĉi tiun numeron literuman ilon en ago. :

1. Elektu malplenan ĉelon por la rezulto.
2. En la langeto Ablebits , en la grupo Utilaĵoj , alklaku . Literuma Nombro .
3. En la Disverŝa Nombro kiu aperas, agordu la jenajn aferojn:
   • Por la Elektu vian numeron skatolo , elektu la ĉelon enhavantan la kvanton, kiun vi volas skribi kiel teksto.
   • Specigu la deziratan nuntempe , literon kaj la manieron de la decimalo parto de la nombro estu literumita.
   • Difinu ĉu inkluzivi nul cendojn aŭ ne.
   • Elektu ĉu enmeti la rezulton kiel valoron aŭ formulon.
4. Malsupre de la dialogfenestro, antaŭrigardu la rezulton. Se vi estas kontenta pri la maniero kiel via numero estas skribita, alklaku Literumi . Alie, provu malsamajn agordojn.

La ekrankopio sube montras la defaŭltanelektoj kaj la literumita nombro en B2. Bonvolu rimarki formulon (pli precize, uzant-difinitan funkcion) en la formulbreto:

Kaj ĉi tio estas rapida pruvo pri kiel oni povas literumi aliajn valutojn:

Konsiletoj kaj notoj:

• Ĉar la aldono Literuma Numero estis dizajnita por trakti realajn uzkazojn kiel fakturojn kaj aliajn financajn dokumentojn, ĝi povas nur konverti unu numeron pope.
• Por literumi kolumnon de nombroj , enigu formulon en la unuan ĉelon, kaj poste kopiu la formulon malsupren.
• Se estas ŝanco ke tio viaj fontaj datumoj eble ŝanĝiĝos estonte, plej bone estas enigi la rezulton kiel formulon , do ĝi ĝisdatiĝas aŭtomate kiam la origina nombro ŝanĝiĝas.
• Kiam elektas la rezulton kiel formulon opcio, kutima uzanto-difinita funkcio (UDF) estas enmetita. Se vi planas dividi vian laborlibron kun iu, kiu ne havas la Ultimate Suite instalitan, memoru anstataŭigi formulojn per valoroj antaŭ kunhavigi.

Inversa konvertiĝo - anglaj vortoj en nombrojn

Malkaŝe. , mi ne povas imagi kial vi eble bezonas ĝin. Ĉiaokaze... :)

Ŝajnas, ke Excel MVP, Jerry Latham, kreis tian Excel-Uzantan difinitan funkcion (UDF) kiel WordsToDigits . Ĝi konvertas anglajn vortojn reen al nombro.

Vi povas elŝuti la laborlibron de Jerry's WordsToDigits por vidi la UDF-kodon. Ĉi tie vi ankaŭ trovos liajn ekzemplojn pri kiel uzi lafunkcio.

Vi povas vidi kiel funkcias la funkcio sur la folio " Ekzemplaj Enskriboj ", kie vi ankaŭ povos enmeti viajn proprajn ekzemplojn. Se vi planas uzi WordsToDigits en viaj dokumentoj, bonvolu informiĝi, ke ĉi tiu funkcio havas limigojn. Ekzemple, ĝi ne rekonas frakciojn enigitajn en vortoj. Ĉiujn detalojn vi trovos sur la folio " Informo ".