Sa artikulong ito ipapakita ko sa iyo ang dalawang mabilis at libreng paraan upang i-convert ang mga numero ng currency sa mga salitang Ingles sa Excel 2019, 2016, 2013 at iba pang mga bersyon.

Ang Microsoft Excel ay mahusay programa upang makalkula ito at iyon. Una itong binuo upang iproseso ang malalaking data array. Gayunpaman, binibigyang-daan din nito ang paglikha ng mga talaan ng accounting tulad ng mga invoice, pagsusuri o balanse nang mabilis at mabisa.

Sa higit pa o hindi gaanong solidong mga dokumento sa pagbabayad, kinakailangan na i-duplicate ang mga numeric na halaga sa kanilang anyo ng salita. Mas mahirap palsipikasyon ang mga nai-type na numero kaysa sa mga nakasulat sa pamamagitan ng kamay. Maaaring subukan ng ilang manloloko na kumita ng 8000 sa 3000, habang halos imposibleng lihim na palitan ang "tatlo" ng "walo".

Kaya ang kailangan mo ay hindi lamang i-convert ang mga numero sa mga salita sa Excel (hal. 123.45 sa "isang daan at dalawampu't tatlo, apatnapu't lima"), ngunit binabaybay ang mga dolyar at sentimo (hal. $29.95 bilang "dalawampu't siyam na dolyar at siyamnapu't siyam na sentimo"), pounds at pence para sa GBP, euros at eurocents para sa EUR, atbp.

Kahit na ang mga pinakabagong bersyon ng Excel ay walang built-in na tool para sa mga numero ng pagbabaybay, bukod pa sa mga naunang bersyon. Ngunit iyon ay kapag ang Excel ay talagang mahusay. Maaari mong palaging pagbutihin ang functionality nito gamit ang mga formula sa lahat ng kanilang

kumbinasyon, VBA macro, o third-party na add-in.

Sa ibaba ay makakahanap ka ng dalawang paraan upang mag-convert ng mga numero mula sa figures to words

At, posibleng kailanganin moi-convert ang Mga Salita sa Mga Numero sa Excel

Tandaan. Kung hinahanap mo ang conversion ng numero sa text , na nangangahulugang gusto mong makita ng Excel ang iyong numero bilang teksto, medyo kakaiba ito. Para dito, maaari mong gamitin ang TEXT function o ilang iba pang mga paraan na inilalarawan sa Paano baguhin ang mga numero sa text sa Excel.

SpellNumber VBA macro upang i-convert ang mga numero sa mga salita

Tulad ng nabanggit ko na , hindi nais ng Microsoft na magdagdag ng tool para sa gawaing ito. Gayunpaman, nang makita nila kung gaano karaming mga gumagamit ang nangangailangan nito, nilikha at inilathala nila ang espesyal na VBA macro sa kanilang website. Ginagawa ng macro ang iminumungkahi ng pangalan nito na SpellNumber. Ang lahat ng iba pang macro na nakita ko ay batay sa Microsoft code.

Makikita mo ang macro na binanggit bilang "spellnumber formula". Gayunpaman, ito ay hindi isang formula, ngunit isang macro function, o upang maging mas tumpak Excel User tinukoy function (UDF).

Ang spellnumber na opsyon ay nakakapagsulat ng mga dolyar at sentimo. Kung kailangan mo ng ibang currency, maaari mong palitan ang " dollar " at " cent " gamit ang pangalan ng iyong pera.

Kung hindi ka marunong sa VBA. , sa ibaba ay makakahanap ka ng kopya ng code. Kung ayaw mo pa rin o wala kang oras upang ayusin ito, pakigamit ang solusyong ito.

1. Buksan ang workbook kung saan kailangan mong baybayin ang mga numero.
2. Pindutin ang Alt +F11 para buksan ang Visual Basic editor window.
3. Kung marami kang aklat na binuksan, tingnan kung aktibo ang kinakailangang workbook gamit angang listahan ng mga proyekto sa kaliwang sulok sa itaas ng editor (ang isa sa mga elemento ng workbook ay naka-highlight ng asul).
4. Sa menu ng editor pumunta sa Insert -> Module .
5. Dapat kang makakita ng window na pinangalanang YourBook - Module1. Piliin ang lahat ng code sa frame sa ibaba at i-paste ito sa window na ito.

   Eksplisit na Opsyon na 'Pangunahing Function na SpellNumber( ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Bilangin ang RedDim Place(9) Bilang String Place(2) = " Thousand " Place(3) = " Million " Lugar(4) = " Bilyon " Lugar(5) = " Trilyon " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, "." ) Kung DecimalPlace > 0 Pagkatapos 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)) Kung Temp "" Then Dollars = Temp & Lugar(Bilang) & Dolyar Kung Len(MyNumber) > 3 Pagkatapos MyNumber = Kaliwa(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "One Dollar" Case Else Dollars = Dolyar & " Dollars" End Select Select Case Cents Case "" Cents = " and No Cents" Case "One" Cents = " and One Cent" Case Else Cents = " at " & Cents & " Cents" End Select SpellNumber = Dolyar & Cents End Function Function GetHundreds(ByVal MyNumber) Dim Result Bilang String Kung Val(MyNumber) = 0 Then Exit Function MyNumber = Right( "000" & MyNumber, 3) ' I-convert ang daan-daang lugar. Kung Mid(MyNumber, 1, 1) "0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) & " Daan " End If ' I-convert ang sampu at isa na lugar. Kung Mid(MyNumber, 2, 1) "0" Pagkatapos Resulta = Resulta & GetTens(Mid(MyNumber, 2)) Iba pang Resulta = Resulta & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function Function GetTens(TensText) Dim Result Bilang String Result = "" ' I-null out ang pansamantalang function value. If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19… Select Case Val(TensText) Case 10: Resulta = "Ten" Case 11: Resulta = "Eleven" Case 12: Resulta = "Labindalawa " Case 13: Resulta = "Thirteen" Case 14: Resulta = "Fourteen" Case 15: Resulta = "Fifteen" Case 16: Resulta = "Sixteen" Case 17: Resulta = "Seventeen" Case 18: Resulta = "Labing-walo" Case 19: Resulta = "Labinsiyam" Kaso Iba Pang Katapusan Piliin ang Iba ' Kung ang halaga ay nasa pagitan ng 20-99... Piliin ang Case Val(Kaliwa(TensText, 1)) Kaso 2: Resulta = "Dalawampu" Kaso 3: Resulta = "Thirty " Case 4: Resulta = "Apatnapung " Case 5: Resulta = "Fifty " Case 6: Resulta = "Sixty " Case 7: Resulta = "Seventy " Case 8: Resulta = "Eighty " Case 9: Resulta = "Ninety " Case Else End Select Result = Resulta & GetDigit _ (Right(TensText, 1)) ' Kunin ang isang lugar. End If GetTens = Resulta End Function Function GetDigit(Digit) Select CaseVal(Digit) Case 1: GetDigit = "One" Case 2: GetDigit = "Two" Case 3: GetDigit = "Three" Case 4: GetDigit = "Four" Case 5: GetDigit = "Five" Case 6: GetDigit = " Six" Case 7: GetDigit = "Seven" Case 8: GetDigit = "Eight" Case 9: GetDigit = "Nine" Case Iba pa : GetDigit = "" End Select End Function

   Tingnan din: KUNG VLOOKUP sa Excel: Vlookup formula na may Kung kundisyon
6. Pindutin ang Ctrl+S upang i-save ang na-update na workbook.

   Kakailanganin mong i-save muli ang iyong workbook. Kapag sinubukan mong i-save ang workbook gamit ang isang macro, makakakuha ka ng mensaheng " Ang mga sumusunod na feature ay hindi mase-save sa macro-free workbook "

   

   I-click ang Hindi. Kapag nakita mo isang bagong dialog, pinili ang opsyon na I-save bilang. Sa field na " I-save bilang uri " piliin ang opsyong " Excel macro-enabled workbook ".

   

Gamitin ang SpellNumber macro sa iyong mga worksheet

Ngayon ay magagamit mo na ang function na SpellNumber sa iyong mga dokumento sa Excel. Ipasok ang =SpellNumber(A2) sa cell kung saan kailangan mong makuha ang numero na nakasulat sa mga salita. Narito ang A2 ay ang address ng cell na may numero o halaga.

Dito mo makikita ang resulta:

Voila!

Mabilis na kopyahin ang SpellNumber function sa ibang mga cell.

Kung ikaw kailangang i-convert ang buong talahanayan, hindi lang 1 cell, ilagay ang cursor ng iyong mouse sa kanang sulok sa ibaba ng cell na may formula hanggang sa maging maliit itong itim na krus:

I-left-click at i-drag ito sa kabila ng column upang punan ang formula. Bitawan ang button para makita ang mga resulta:

Tandaan. Pakiusaptandaan na kung gagamit ka ng SpellNumber na may link sa isa pang cell, ang nakasulat na kabuuan ay ia-update sa tuwing babaguhin ang numero sa source cell.

Maaari mo ring ipasok ang numero nang direkta sa function, para sa halimbawa, =SpellNumber(29.95) (29.95 - walang panipi at Dollar sign).

Mga kawalan ng paggamit ng macro para i-spell ang mga numero sa Excel

Unang-una, dapat alam mo ang VBA para mabago ang code ayon sa iyong pangangailangan. Kinakailangang i-paste ang code para sa bawat workbook, kung saan plano mong baguhin ito. Kung hindi, kakailanganin mong gumawa ng template na file na may mga macro at i-configure ang Excel upang i-load ang file na ito sa bawat simula.

Ang pangunahing kawalan ng paggamit ng macro ay kung ipapadala mo ang workbook sa ibang tao, ang taong ito ay hindi tingnan ang teksto maliban kung ang macro ay naka-built sa workbook. At kahit na ito ay built-in, makakatanggap sila ng alerto na mayroong mga macro sa workbook.

I-spell ang mga numero sa mga salita gamit ang isang espesyal na add-in

Para sa mga user ng Excel na kailangang mabilis na baybayin ang mga kabuuan ngunit walang oras upang matuto ng VBA o mag-isip ng mga solusyon, gumawa kami ng isang espesyal na tool na maaaring mabilis na maisagawa ang conversion ng halaga-sa-salita para sa ilang sikat na pera. Mangyaring matugunan ang add-in ng Spell Number na kasama sa pinakabagong release ng aming Ultimate Suite para sa Excel.

Bukod sa pagiging handa para sa paggamit, ang tool ay talagang flexible sa pag-convert ng mga halaga sa text:

• Maaari kang pumili ng isa sasumusunod na mga currency: USD, EUR, GBP, BIT, AUD.
• I-spell ang fractional na bahagi sa cents, pennies, o bitcents.
• Pumili ng anumang text case para sa resulta: lower case, UPPER CASE , Title Case, o Sentence case.
• I-spell ang decimal na bahagi sa iba't ibang paraan.
• Isama o alisin ang zero cents.

Sinusuportahan ng add-in ang lahat ng modernong mga bersyon kabilang ang Excel 365, Excel 2029, Excel 2016, Excel 2013, at Excel 2010. Mangyaring huwag mag-atubiling tuklasin ang iba pang mga kakayahan sa home page ng produkto na naka-link sa itaas.

At ngayon, tingnan natin ang paggamit ng numerong ito sa spelling utility :

1. Pumili ng walang laman na cell para sa resulta.
2. Sa tab na Ablebits , sa grupong Utilities , i-click ang Spell Number .
3. Sa Spill Number dialog window na lalabas, i-configure ang mga sumusunod na bagay:
   • Para sa kahon na Piliin ang iyong numero , piliin ang cell na naglalaman ng halagang gusto mong isulat bilang text.
   • Tukuyin ang gustong kasalukuyan , letter case at ang paraan ng decimal bahagi ng numero ang dapat na nabaybay.
   • Tukuyin kung isasama ang zero cents o hindi.
   • Piliin kung ilalagay ang resulta bilang isang value o formula.
4. Sa ibaba ng dialog window, i-preview ang resulta. Kung masaya ka sa paraan ng pagkakasulat ng iyong numero, i-click ang Spell . Kung hindi, subukan ang ibang mga setting.

Ipinapakita ng screenshot sa ibaba ang defaultmga pagpipilian at ang nabaybay na numero sa B2. Mangyaring mapansin ang isang formula (mas tiyak, isang function na tinukoy ng gumagamit) sa formula bar:

At ito ay isang mabilis na pagpapakita kung paano nababaybay ang ibang mga pera:

Mga tip at tala:

• Dahil ang add-in na Spell Number ay idinisenyo upang pangasiwaan ang totoong buhay na mga kaso ng paggamit gaya ng mga invoice at iba pang dokumentong pinansyal, maaari lamang nitong i-convert ang isang numero sa isang pagkakataon.
• Upang baybayin ang isang column ng mga numero , maglagay ng formula sa unang cell, at pagkatapos ay kopyahin ang formula pababa.
• Kung may pagkakataon na maaaring magbago ang iyong pinagmulang data sa hinaharap, pinakamainam na ipasok ang resulta bilang formula , upang awtomatiko itong mag-update habang nagbabago ang orihinal na numero.
• Kapag pinili ang resulta bilang formula opsyon, may ipinapasok na custom na function na tinukoy ng user (UDF). Kung plano mong ibahagi ang iyong workbook sa isang taong walang naka-install na Ultimate Suite, tandaan na palitan ang mga formula ng mga value bago ibahagi.

Reverse conversion - Mga salitang Ingles sa mga numero

Sa totoo lang , hindi ko maisip kung bakit kailangan mo ito. Kung sakali... :)

Lumilitaw na ang Excel MVP, si Jerry Latham, ay lumikha ng Excel User definition function (UDF) bilang WordsToDigits . Ibinabalik nito ang mga salitang Ingles sa numero.

Maaari mong i-download ang workbook ng WordsToDigits ni Jerry upang makita ang UDF code. Dito makikita mo rin ang kanyang mga halimbawa kung paano gamitin angfunction.

Makikita mo kung paano gumagana ang function sa sheet na " Mga Sample na Entry ", kung saan makakapagpasok ka rin ng sarili mong mga halimbawa. Kung plano mong gumamit ng WordsToDigits sa iyong mga dokumento, mangyaring ipaalam na ang function na ito ay may mga paghihigpit. Halimbawa, hindi nito nakikilala ang mga fraction na ipinasok sa mga salita. Makikita mo ang lahat ng detalye sa sheet na " Impormasyon ."