Katika makala haya nitakuonyesha njia mbili za haraka na bila malipo za kubadilisha nambari za sarafu hadi maneno ya Kiingereza katika Excel 2019, 2016, 2013 na matoleo mengine.

Microsoft Excel ni nzuri sana mpango wa kuhesabu hiki na kile. Hapo awali ilitengenezwa ili kuchakata safu kubwa za data. Hata hivyo, pia huruhusu kuunda rekodi za uhasibu kama vile ankara, tathmini au laha za salio haraka na kwa ufanisi.

Katika hati thabiti zaidi au chache za malipo ni muhimu kunakili nambari za nambari na fomu yake ya neno. Ni vigumu sana kughushi nambari zilizochapwa kuliko zile zilizoandikwa kwa mkono. Tapeli fulani anaweza kujaribu kutengeneza 8000 kati ya 3000, ilhali haiwezekani kubadilisha kwa siri "tatu" na "nane".

Kwa hivyo unachohitaji si kubadilisha nambari kuwa maneno katika Excel (k.m. 123.45 hadi "mia na ishirini na tatu, arobaini na tano"), lakini taja dola na senti (k.m. $29.95 kama "dola ishirini na tisa na senti tisini na tisa" ), pauni na dinari kwa GBP, euro na euro kwa EUR, nk.

Hata matoleo mapya zaidi ya Excel hayana zana iliyojengewa ndani ya nambari za tahajia, bila kusahau matoleo ya awali. Lakini hapo ndipo Excel ni nzuri sana. Unaweza kuboresha utendakazi wake kila wakati kwa kutumia fomula katika

michanganyiko, makro ya VBA, au programu jalizi za watu wengine.

Utapata njia mbili za kubadilisha nambari kutoka hapa chini. takwimu kwa maneno

Na, ikiwezekana, unaweza kuhitajibadilisha Maneno kuwa Hesabu katika Excel

Kumbuka. Ikiwa unatafuta ubadilishaji wa nambari hadi maandishi , ambayo inamaanisha unataka Excel ione nambari yako kama maandishi, ni jambo tofauti kidogo. Kwa hili, unaweza kutumia kitendakazi cha TEXT au njia zingine chache zilizofafanuliwa katika Jinsi ya kubadilisha nambari hadi maandishi katika Excel.

SpellNumber VBA macro kubadilisha nambari kuwa maneno

Kama nilivyotaja tayari. , Microsoft haikutaka kuongeza zana ya kazi hii. Walakini, walipoona ni watumiaji wangapi wanaohitaji, waliunda na kuchapisha macro maalum ya VBA kwenye wavuti yao. Macro hufanya kile jina lake SpellNumber linapendekeza. Macro zingine zote nilizokutana nazo zinatokana na msimbo wa Microsoft.

Unaweza kupata macro iliyotajwa kama "spellnumber formula". Hata hivyo, si fomula, lakini chaguo la kukokotoa la jumla, au kuwa sahihi zaidi Kitendakazi kilichofafanuliwa cha Mtumiaji wa Excel (UDF).

Chaguo la nambari ya tahajia linaweza kuandika dola na senti. Iwapo unahitaji sarafu tofauti, unaweza kubadilisha " dola " na " cent " kwa kutumia jina lako.

Ikiwa wewe si gwiji wa VBA , hapa chini utapata nakala ya msimbo. Ikiwa bado hutaki au huna wakati wa kutatua hili, tafadhali tumia suluhisho hili.

1. Fungua kitabu cha kazi ambapo unahitaji kutamka nambari.
2. Bonyeza Alt +F11 ili kufungua dirisha la kihariri cha Visual Basic.
3. Ikiwa umefungua vitabu kadhaa, hakikisha kuwa kitabu cha kazi kinachohitajika kinatumika kwa kutumia.orodha ya miradi katika kona ya juu kushoto ya kihariri (moja ya vipengele vya kitabu cha kazi imeangaziwa kwa bluu).
4. Katika menyu ya kihariri nenda kwenye Ingiza -> Moduli .
5. Unapaswa kuona dirisha linaloitwa YourBook - Module1. Teua msimbo wote katika fremu iliyo hapa chini na ubandike kwenye dirisha hili.

   Chaguo Wazi 'Tahajia ya Kazi Kuu( ByVal MyNumber) Dola Dim, Senti, Temp Dim DecimalPlace, Hesabu ReDim Place(9) As String Place(2) = " Elfu " Place(3) = " Million " Place(4) = " Bilioni " Place(5) = " Trilioni " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, "." ) Ikiwa DecimalPlace > 0 Kisha Senti = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00" , 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Fanya Wakati Nambari Yangu "" Temp = GetHundreds(Kulia(Nambari yangu, 3)) Ikiwa Muda "" Kisha Dola = Muda & Mahali(Hesabu) & Dola Ikiwa Len(Nambari yangu) > 3 Kisha Nambari Yangu = Kushoto(Nambari yangu, Len(Nambari yangu) - 3) Else Nambari yangu = "" Mwisho Ikiwa Hesabu = Hesabu + Kitanzi 1 Chagua Kesi Dola Kesi "" Dola = "Hakuna Dola" Kesi "Moja" Dola = "Dola Moja" Case Else Dollars = Dola & "Dola" Mwisho Chagua Chagua Kesi Senti "" Senti = " na Hakuna Senti" Kesi "Moja" Senti = " na Senti Moja" Kesi Else Cents = " na " & Senti & " Senti" Mwisho Chagua SpellNumber = Dola & Senti Mwisho wa Kazi GetHundreds(ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Kisha Toka kwenye Kazi MyNumber = Right( "000" & MyNumber, 3) ' Geuza mamia ya mahali. Ikiwa Mid(MyNumber, 1, 1) "0" Kisha Matokeo = GetDigit(Mid(MyNumber, 1, 1)) & " Mia " Mwisho Ikiwa ' Geuza mahali pa kumi na moja. Ikiwa Kati(MyNumber, 2, 1) "0" Kisha Matokeo = Matokeo & GetTens(Mid(MyNumber, 2)) Else Result = Matokeo & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function Function GetTens(TensText) Dim Result As String Result = "" ' Futa thamani ya utendakazi ya muda. Ikiwa Val(Left(TensText, 1)) = 1 Kisha ' Iwapo thamani kati ya 10-19... Chagua Kesi Val(TensText) Kesi ya 10: Matokeo = "Kumi" Kesi 11: Matokeo = "Kumi na Moja" Kesi 12: Matokeo = "Kumi na Mbili " Kesi ya 13: Matokeo = "Kumi na Tatu" Kesi ya 14: Matokeo = "Kumi na Nne" Kesi ya 15: Matokeo = "Kumi na Tano" Kesi ya 16: Matokeo = "Kumi na sita" Kesi ya 17: Matokeo = "Kumi na Saba" Kesi ya 18: Matokeo = Kesi "Kumi na Nane" 19: Result = "Kumi na Tisa" Kesi Lingine Mwisho Chagua Vinginevyo ' Ikiwa thamani ni kati ya 20-99… Chagua Hesabu ya Kesi(Kushoto(TensText, 1)) Kesi ya 2: Matokeo = "Ishirini" Kesi 3: Matokeo = "Thelathini" Kesi 4: Matokeo = "Arobaini" Kesi ya 5: Matokeo = "Hamsini" Kesi 6: Matokeo = "Sitini" Kesi ya 7: Matokeo = "Sabini" Kesi ya 8: Matokeo = "Themanini" Kesi 9: Matokeo = "Tisini" Kesi Nyingine Mwisho Chagua Matokeo = Matokeo & GetDigit _ (Kulia (TensText, 1)) ' Rejesha mahali. Maliza Ikiwa GetTens = Kazi ya Mwisho ya Matokeo GetDigit(Digit) Chagua KesiVal(Digit) Kesi ya 1: GetDigit = "Moja" Kesi ya 2: GetDigit = "Mbili" Kesi ya 3: GetDigit = "Tatu" Kesi ya 4: GetDigit = "Nne" Kesi ya 5: GetDigit = "Tano" Kesi ya 6: GetDigit = " Sita" Kesi ya 7: GetDigit = "Saba" Kesi ya 8: GetDigit = "Nane" Kesi ya 9: GetDigit = "Tisa" Kesi Mengine : GetDigit = "" Mwisho Chagua Kazi ya Mwisho

6. Bonyeza Ctrl+S ili kuhifadhi kitabu cha kazi kilichosasishwa.

   Utahitaji kuhifadhi upya kitabu chako cha kazi. Unapojaribu kuhifadhi kitabu cha kazi kwa macro utapata ujumbe " Vipengele vifuatavyo haviwezi kuhifadhiwa katika kitabu cha kazi kisicho na makro "

   

   Bofya Hapana. Unapoona kidirisha kipya, kilichagua Hifadhi kama chaguo. Katika sehemu ya " Hifadhi kama aina " chagua chaguo " kitabu cha kazi chenye uwezo mkubwa wa Excel ".

   

Tumia SpellNumber macro katika macro laha zako za kazi

Sasa unaweza kutumia chaguo za kukokotoa SpellNumber katika hati zako za Excel. Ingiza =SpellNumber(A2) kwenye seli ambapo unahitaji kupata nambari iliyoandikwa kwa maneno. Hapa A2 ni anwani ya seli yenye nambari au kiasi.

Hapa unaweza kuona matokeo:

Voila!

Nakili kwa haraka chaguo la kukokotoa la Nambari ya Tahajia kwenye visanduku vingine.

Ikiwa utafanya hivyo. unahitaji kubadilisha jedwali zima, si kisanduku 1 tu, weka kishale cha kipanya chako kwenye kona ya chini ya kulia ya seli na fomula hadi igeuke kuwa msalaba mdogo mweusi:

Bofya-kushoto na uiburute kote. safu ya kujaza fomula. Achilia kitufe ili kuona matokeo:

Kumbuka. Tafadhalikumbuka kwamba ukitumia SpellNumber na kiungo cha kisanduku kingine, jumla iliyoandikwa itasasishwa kila wakati nambari katika kisanduku chanzo inabadilishwa.

Unaweza pia kuingiza nambari moja kwa moja kwenye chaguo za kukokotoa, kwa mfano, =SpellNumber(29.95) (29.95 - bila alama za nukuu na alama ya Dola).

Hasara za kutumia jumla kutahajia nambari katika Excel

Kwanza, lazima ujue VBA ili kurekebisha msimbo kulingana na yako. mahitaji. Inahitajika kubandika msimbo kwa kila kitabu cha kazi, ambapo unapanga kuibadilisha. Vinginevyo, utahitaji kuunda faili ya kiolezo na macros na kusanidi Excel ili kupakia faili hii kila mwanzo.

Hasara kuu ya kutumia jumla ni ikiwa utatuma kitabu cha kazi kwa mtu mwingine, mtu huyu hataki. tazama maandishi isipokuwa jumla imejengwa kwenye kitabu cha kazi. Na hata ikiwa imejengwa ndani, watapata tahadhari kwamba kuna macros kwenye kitabu cha kazi.

Tahajia nambari kwa maneno kwa kutumia kiongezi maalum

Kwa watumiaji wa Excel ambao wanahitaji kutamka hesabu kwa haraka lakini hawana muda wa kujifunza VBA au kutafuta suluhisho, tumeunda zana maalum. ambayo inaweza kutekeleza kwa haraka ubadilishaji wa kiasi-kwa-maneno kwa sarafu chache maarufu. Tafadhali kutana na programu jalizi ya Nambari ya Tahajia iliyojumuishwa pamoja na toleo jipya zaidi la Ultimate Suite yetu ya Excel.

Mbali na kuwa tayari kutumika, zana inaweza kunyumbulika sana katika kubadilisha kiasi kuwa maandishi:

• Unaweza kuchagua mojawapo yasarafu zifuatazo: USD, EUR, GBP, BIT, AUD.
• Taja sehemu ya sehemu katika senti, senti, au biti.
• Chagua herufi yoyote ya maandishi kwa tokeo: herufi ndogo, JUU , Kesi ya Kichwa, au kesi ya Sentensi.
• Tamka sehemu ya desimali kwa njia tofauti.
• Jumuisha au uondoe senti sifuri.

Jalada hili linaauni mambo yote ya kisasa. matoleo ikiwa ni pamoja na Excel 365, Excel 2029, Excel 2016, Excel 2013, na Excel 2010. Tafadhali jisikie huru kuchunguza uwezo mwingine kwenye ukurasa wa nyumbani wa bidhaa uliounganishwa hapo juu.

Na sasa, hebu tuone matumizi ya tahajia ya nambari hii yakifanya kazi. :

1. Chagua seli tupu kwa matokeo.
2. Kwenye kichupo cha Ablebits , katika Kikundi cha Huduma , bofya Tahajia Nambari .
3. Katika Mwagiza Nambari dirisha la kidadisi linaloonekana, sanidi vitu vifuatavyo:
   • Kwa Chagua nambari yako kisanduku. , chagua kisanduku kilicho na kiasi unachotaka kuandikwa kama maandishi.
   • Bainisha unaotaka kwa sasa , kesi ya herufi na jinsi desimali sehemu ya nambari inapaswa kuandikwa.
   • Fafanua ikiwa ujumuishe senti sifuri au la.
   • Chagua ikiwa utaingiza tokeo kama thamani au fomula.
4. Chini ya dirisha la mazungumzo, hakiki matokeo. Ikiwa umefurahishwa na jinsi nambari yako inavyoandikwa, bofya Tahajia . Vinginevyo, jaribu mipangilio tofauti.

Picha ya skrini iliyo hapa chini inaonyesha chaguomsingichaguo na nambari iliyoandikwa katika B2. Tafadhali angalia fomula (kwa usahihi zaidi, kitendakazi kilichobainishwa na mtumiaji) katika upau wa fomula:

Na hili ni onyesho la haraka la jinsi sarafu nyinginezo zinavyoweza kutamka:

Vidokezo na madokezo:

• Kwa sababu Nambari ya Tahajia programu jalizi iliundwa kushughulikia kesi za matumizi halisi kama vile ankara na hati zingine za kifedha, inaweza kubadilisha nambari moja <6 pekee> kwa wakati mmoja.
• Ili tahajia safu wima ya nambari , weka fomula katika kisanduku cha kwanza, kisha unakili fomula chini.
• Iwapo kuna uwezekano kwamba kuna nafasi hiyo. data yako ya chanzo inaweza kubadilika katika siku zijazo, ni bora uweke tokeo kama fomula , kwa hivyo inasasishwa kiotomatiki kadiri nambari asilia inavyobadilika.
• Unapochagua tokeo kama fomula chaguo, kipengele maalum kitendakazi kilichofafanuliwa na mtumiaji (UDF) kimeingizwa. Ikiwa unapanga kushiriki kitabu chako cha kazi na mtu ambaye hajasakinisha Ultimate Suite, kumbuka kubadilisha fomula na thamani kabla ya kushiriki.

Badilisha ubadilishaji - Maneno ya Kiingereza kuwa nambari

Kusema ukweli , siwezi kufikiria kwa nini unaweza kuhitaji. Iwapo tu… :)

Inaonekana kwamba Excel MVP, Jerry Latham, aliunda kitendakazi kama hicho kilichobainishwa na Mtumiaji wa Excel (UDF) kama WordsToDigits . Inabadilisha maneno ya Kiingereza kuwa nambari.

Unaweza kupakua kitabu cha kazi cha WordsToDigits cha Jerry ili kuona msimbo wa UDF. Hapa utapata pia mifano yake ya jinsi ya kutumiakazi.

Unaweza kuona jinsi chaguo la kukokotoa linavyofanya kazi kwenye laha " Sampuli ya Maingizo ", ambapo utaweza pia kuingiza mifano yako mwenyewe. Ikiwa unapanga kuajiri WordsToDigits katika hati zako, tafadhali julishwa kuwa kipengele hiki kina vikwazo. Kwa mfano, haitambui sehemu zilizoingizwa kwa maneno. Utapata maelezo yote kwenye karatasi ya " Habari ".