Šiame straipsnyje parodysiu du greitus ir nemokamus būdus, kaip konvertuoti valiutų skaičius į angliškus žodžius "Excel 2019", "2016", "2013" ir kitose versijose.

"Microsoft Excel" yra puiki programa šiam bei tam apskaičiuoti. Iš pradžių ji buvo sukurta dideliems duomenų masyvams apdoroti. Tačiau ji taip pat leidžia greitai ir efektyviai kurti apskaitos įrašus, pavyzdžiui, sąskaitas faktūras, vertinimo ar balanso ataskaitas.

Daugiau ar mažiau solidžiuose mokėjimo dokumentuose būtina dubliuoti skaitines reikšmes su jų žodine forma. Suklastoti spausdintus skaičius yra daug sunkiau nei rašytus ranka. Koks nors sukčius gali pabandyti iš 3000 padaryti 8000, o slapta pakeisti "trys" į "aštuoni" beveik neįmanoma.

Taigi jums reikia ne tik konvertuoti skaičius į žodžius "Excel" programoje (pvz., 123,45 į "šimtą dvidešimt tris, keturiasdešimt penkis"), bet ir rašyti dolerius ir centus (pvz., 29,95 USD kaip "dvidešimt devynis dolerius ir devyniasdešimt devynis centus" ), svarus ir pensus - GBP, eurus ir eurocentus - EUR ir t. t.

Net naujausiose "Excel" versijose nėra integruoto numerių rašybos įrankio, jau nekalbant apie ankstesnes versijas. Tačiau būtent tada "Excel" yra tikrai gera. Visada galite pagerinti jos funkcionalumą naudodami formules visose jų

derinius, VBA makrokomandas arba trečiųjų šalių priedus.

Toliau rasite du būdus, kaip konvertuoti skaičius iš skaičių į žodžius

Ir galbūt jums gali prireikti konvertuoti "Excel" programą "Words" į "Numbers".

Pastaba. Jei ieškote numerio konvertavimas į tekstą , o tai reiškia, kad norite, jog "Excel" matytų jūsų skaičių kaip tekstą, tai šiek tiek kitoks dalykas. Tam galite naudoti funkciją TEXT arba kelis kitus būdus, aprašytus skyrelyje Kaip "Excel" programoje pakeisti skaičius į tekstą.

SpellNumber VBA makrokomandos, skirtos konvertuoti skaičius į žodžius

Kaip jau minėjau, "Microsoft" nenorėjo pridėti įrankio šiai užduočiai atlikti. Tačiau pamatę, kiek daug naudotojų to reikia, jie sukūrė ir savo svetainėje paskelbė specialų VBA makrokomandą. Makrokomanda atlieka tai, ką rodo jos pavadinimas SpellNumber. Visos kitos makrokomandos, su kuriomis susidūriau, yra pagrįstos "Microsoft" kodu.

Šį makrokomandą galite rasti paminėtą kaip "spellnumber formula". Tačiau tai ne formulė, o makrokomandos funkcija, tiksliau "Excel" naudotojo apibrėžta funkcija (UDF).

Rašybos parinktyje galima rašyti dolerius ir centus. Jei reikia kitos valiutos, galite pakeisti " doleris " ir " centų " su savo pavadinimu.

Jei nesate išmanantis VBA, toliau rasite kodo kopiją. Jei vis dar nenorite arba neturite laiko tai išspręsti, naudokitės šiuo sprendimu.

1. Atidarykite sąsiuvinį, kuriame reikia rašyti skaičius.
2. Paspauskite Alt+F11, kad atidarytumėte "Visual Basic" redaktoriaus langą.
3. Jei atidarytos kelios knygos, naudodamiesi redaktoriaus viršutiniame kairiajame kampe esančiu projektų sąrašu patikrinkite, ar reikiama darbo knyga yra aktyvi (vienas iš darbo knygos elementų paryškintas mėlynai).
4. Redaktoriaus meniu eikite į Įdėkite -> Modulis .
5. Turėtumėte pamatyti langą, pavadintą "YourBook - Module1". Pasirinkite visą toliau esančiame rėmelyje esantį kodą ir įklijuokite jį į šį langą.

   Option Explicit 'Pagrindinė funkcija Funkcija SpellNumber( ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Tūkstantis " Place(3) = " Milijonas " Place(4) = " Milijardas " Place(5) = " Trilijonas " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, "." ) If DecimalPlace> 0 Then Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp "" Then Dollars = Temp & Place(Count) & Dollars If Len(MyNumber)> 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "OneDollar" Case Else Dollars = Dollars & " Dollars" End Select Select Case Cents Case "" Cents = " ir jokių centų" Case "One" Cents = " ir vienas centas" Case Else Cents = " ir " & Cents & " Cents" End Select SpellNumber = Dollars & Cents End Function Function GetHundreds( ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right( "000" & MyNumber,3) ' Konvertuokite šimtų vietą: If Mid(MyNumber, 1, 1) "0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred " End If ' Konvertuokite dešimčių ir vienetų vietą: If Mid(MyNumber, 2, 1) "0" Then Result = Result & GetTens(Mid(MyNumber, 2)) Else Result = Result & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function Function GetTens(TensText) Dim Result As String Result = ""' Null out the temporary function value. If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19... Select Case Val(TensText) Case 10: Rezultatas = "Dešimt" Case 11: Rezultatas = "Vienuolika" Case 12: Rezultatas = "Dvylika" Case 13: Rezultatas = "Trylika" Case 14: Rezultatas = "Keturiolika" Case 15: Rezultatas = "Penkiolika" Case 16: Rezultatas = "Šešiolika" Case 17: Rezultatas = "Septyniolika" Case 18: Rezultatas = "Aštuoniolika" Case 19: Rezultatas ="Devyniolika" Atvejis Else End Select Else ' Jei reikšmė tarp 20-99... Select Case Val(Left(TensText, 1)) Case 2: Rezultatas = "Dvidešimt " Case 3: Rezultatas = "Trisdešimt " Case 4: Rezultatas = "Keturiasdešimt " Case 5: Rezultatas = "Penkiasdešimt " Case 6: Rezultatas = "Šešiasdešimt " Case 7: Rezultatas = "Septyniasdešimt " Case 8: Rezultatas = "Aštuoniasdešimt " Case 9: Rezultatas = "Devyniasdešimt " Case Else End Select Result = Result & GetDigit _ (Right(TensText, 1)) ' GautiEnd If GetTens = Rezultatas End Function Function Function GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit = "Vienas" Case 2: GetDigit = "Du" Case 3: GetDigit = "Trys" Case 4: GetDigit = "Keturi" Case 5: GetDigit = "Penki" Case 6: GetDigit = "Šeši" Case 7: GetDigit = "Septyni" Case 8: GetDigit = "Aštuoni" Case 9: GetDigit = "Devyni" Case Else : GetDigit = "" End Select End Function End Select

6. Paspauskite Ctrl+S, kad išsaugotumėte atnaujintą sąsiuvinį.

   Turėsite iš naujo išsaugoti savo darbaknygę. Kai bandysite išsaugoti darbaknygę su makru, gausite pranešimą " Į darbaknygę be makrokomandų negalima įrašyti šių funkcijų "

   

   Spustelėkite Ne. Kai pamatysite naują dialogo langą, pasirinkite parinktį Išsaugoti kaip. Laukelyje " Išsaugoti kaip tipą " pasirinkite parinktį " "Excel" darbaknygė su makrokomandomis ".

   

Darbalapiuose naudokite makrokomandą SpellNumber

Dabar galite naudoti funkciją SpellNumber savo "Excel" dokumentuose. Įveskite =SpellNumber(A2) į ląstelę, kurioje reikia gauti žodžiais užrašytą skaičių. Čia A2 yra ląstelės su skaičiumi arba suma adresas.

Čia galite pamatyti rezultatą:

Voila!

Greitai nukopijuokite "SpellNumber" funkciją į kitas ląsteles.

Jei norite konvertuoti visą lentelę, o ne tik 1 langelį, pelės žymeklį statykite į langelio su formule apatinį dešinįjį kampą, kol jis pavirs mažu juodu kryžiuku:

Kairiuoju pelės klavišu spustelėkite ir vilkite jį per stulpelį, kad užpildytumėte formulę. Atleiskite mygtuką, kad pamatytumėte rezultatus:

Pastaba. Atminkite, kad jei naudojate SpellNumber su nuoroda į kitą langelį, užrašyta suma bus atnaujinama kiekvieną kartą, kai pasikeis skaičius šaltinio langelyje.

Skaičius taip pat galite įvesti tiesiai į funkciją, pvz, =SpellNumber(29.95) (29,95 - be kabučių ir dolerio ženklo).

Makro trūkumai naudojant makrokomandas skaičių rašybai "Excel" programoje

Pirmiausia turite išmanyti VBA, kad galėtumėte pakeisti kodą pagal savo poreikius. Kodą būtina įklijuoti kiekvienam sąsiuviniui, kuriame planuojate jį keisti. Priešingu atveju turėsite sukurti šablono failą su makrokomandomis ir nustatyti "Excel", kad šis failas būtų įkeliamas kiekvieno paleidimo metu.

Pagrindinis makrokomandos naudojimo trūkumas yra tas, kad jei darbaknygę nusiųsite kitam asmeniui, šis nematys teksto, nebent makrokomanda būtų integruota į darbaknygę. O net jei ji integruota, jis gaus įspėjimą, kad darbaknygėje yra makrokomandų.

Skaičių rašyba į žodžius naudojant specialų priedą

"Excel" naudotojams, kuriems reikia greitai įrašyti sumas, bet jie neturi laiko mokytis VBA ar ieškoti apėjimo būdų, sukūrėme specialų įrankį, kuris gali greitai atlikti kelių populiarių valiutų sumų perskaičiavimą į žodžius. Susipažinkite su "Spell Number" priedu, kuris įtrauktas į naujausią mūsų "Ultimate Suite for Excel" rinkinio versiją.

Įrankis ne tik paruoštas naudoti, bet ir labai lankstus konvertuojant sumas į tekstą:

• Galite pasirinkti vieną iš šių valiutų: USD, EUR, GBP, BIT, AUD.
• Rašykite trupmeninę dalį centais, centais arba bitcentais.
• Pasirinkite bet kurią teksto raidę: mažąją, didžiąją, viršutinę, pavadinimo arba sakinio raidę.
• Rašykite dešimtainę dalį įvairiais būdais.
• Įtraukite arba neįtraukite nulinius centus.

Priedas palaiko visas šiuolaikines versijas, įskaitant "Excel 365", "Excel 2029", "Excel 2016", "Excel 2013" ir "Excel 2010". Kviečiame susipažinti su kitomis galimybėmis aukščiau nurodytame produkto pagrindiniame puslapyje.

O dabar pažiūrėkime, kaip veikia šis skaičių rašybos įrankis:

1. Pasirinkite tuščią ląstelę rezultatui.
2. Dėl Ablebits skirtuke Komunalinės paslaugos grupę, spustelėkite Užkeikimo numeris .
3. Į Išsiliejimo numeris pasirodžiusiame dialogo lange konfigūruokite šiuos dalykus:
   • Dėl Pasirinkite savo numerį langelį, pasirinkite langelį, kuriame yra suma, kurią norite įrašyti kaip tekstą.
   • Nurodykite norimą šiuo metu , raidžių korpusas ir tai, kaip dešimtainė dalis skaičius turėtų būti rašomas.
   • Nustatykite, ar įtraukti nulinius centus, ar ne.
   • Pasirinkite, ar rezultatą įterpti kaip reikšmę, ar kaip formulę.
4. Dialogo lango apačioje, peržiūra Jei jus tenkina užrašytas skaičius, spustelėkite Burtai . Priešingu atveju išbandykite kitus nustatymus.

Toliau pateiktoje ekrano nuotraukoje demonstruojami numatytieji pasirinkimai ir užrašytas skaičius B2. Pastebėkite formulės juostoje esančią formulę (tiksliau, naudotojo apibrėžtą funkciją):

Ir tai yra trumpa demonstracija, kaip galima rašyti kitas valiutas:

Patarimai ir pastabos:

• Kadangi Užkeikimo numeris priedas buvo sukurtas realiam naudojimui, pavyzdžiui, sąskaitoms faktūroms ir kitiems finansiniams dokumentams, jis gali konvertuoti tik vienas skaičius vienu metu.
• Rašyba skaičių stulpelis , į pirmąją ląstelę įterpkite formulę ir nukopijuokite ją žemyn.
• Jei yra tikimybė, kad šaltinio duomenys ateityje gali pasikeisti, geriausia įterpti rezultatą kaip formulę , todėl jis automatiškai atnaujinamas, kai pasikeičia pradinis numeris.
• Rinkdamiesi rezultatas kaip formulė parinktį, pasirinktinį vartotojo apibrėžta funkcija (UDF) įterpiama. Jei planuojate bendrinti savo darbaknygę su asmeniu, kuris neturi įdiegtos "Ultimate Suite", prieš bendrinant nepamirškite pakeisti formulių reikšmėmis.

Atvirkštinis konvertavimas - angliški žodžiai į skaičiai

Atvirai kalbant, neįsivaizduoju, kam jums to gali prireikti. Tik tam atvejui... :)

Atrodo, kad "Excel" MVP Jerry Latham sukūrė tokią "Excel" vartotojo apibrėžtą funkciją (UDF) kaip WordsToDigits . Jis konvertuoja angliškus žodžius į skaičių.

Norėdami pamatyti UDF kodą, galite atsisiųsti Jerry'io sąsiuvinį "WordsToDigits". Čia taip pat rasite jo pavyzdžių, kaip naudoti šią funkciją.

Funkcijos veikimą galite pamatyti lape " Pavyzdiniai įrašai ", kur taip pat galėsite įvesti savo pavyzdžius. Jei planuojate naudoti "WordsToDigits" savo dokumentuose, informuojame, kad ši funkcija turi apribojimų. Pavyzdžiui, ji neatpažįsta dalmenų, įvestų žodžiais. Visą išsamią informaciją rasite " Informacija " lapas.