Ushbu maqolada men sizga Excel 2019, 2016, 2013 va boshqa versiyalarida valyuta raqamlarini inglizcha so'zlarga aylantirishning ikkita tez va bepul usulini ko'rsataman.

Microsoft Excel ajoyib dastur. Buni va buni hisoblash uchun dastur. Dastlab u katta ma'lumotlar massivlarini qayta ishlash uchun ishlab chiqilgan. Shu bilan birga, u schyot-fakturalar, baholash yoki balanslar kabi buxgalteriya yozuvlarini tez va samarali yaratish imkonini beradi.

Ko'proq yoki kamroq qattiq to'lov hujjatlarida raqamli qiymatlarni so'z shakli bilan takrorlash kerak. Qo'lda yozilgan raqamlardan ko'ra, terilgan raqamlarni soxtalashtirish ancha qiyin. Ba'zi firibgarlar 3000 dan 8000 ni yasashga urinishi mumkin, holbuki yashirincha "uch" ni "sakkiz" bilan almashtirish deyarli mumkin emas.

Shuning uchun sizga Excelda raqamlarni so'zlarga aylantirish kerak emas (masalan, 123,45 "bir yuz yigirma uch, qirq besh"), lekin dollar va sentlarni (masalan, "yigirma to'qqiz dollar va to'qson to'qqiz sent" sifatida $29,95), GBP uchun funt va pensni, evro uchun evro va yevrotsentni va hokazolarni yozing.

Hatto Excelning eng so'nggi versiyalarida ham oldingi versiyalar haqida gapirmasa ham, raqamlarni yozish uchun o'rnatilgan vosita yo'q. Ammo o'sha paytda Excel juda yaxshi. Siz har doim uning funksiyalarini barcha

kombinatsiyalaridagi formulalar, VBA makroslari yoki uchinchi tomon plaginlari yordamida yaxshilashingiz mumkin.

Quyida siz raqamlarni oʻzgartirishning ikkita usulini topasiz. raqamlardan so'zlarga

Va, ehtimol, kerak bo'lishi mumkinExcelda so'zlarni raqamlarga aylantirish

Eslatma. Agar siz raqamni matnga aylantirish ni qidirsangiz, ya'ni Excel sizning raqamingizni matn sifatida ko'rishini xohlasangiz, bu biroz boshqacha. Buning uchun siz MATN funksiyasidan yoki Excelda raqamlarni matnga qanday o'zgartirish bo'limida tasvirlangan boshqa usullardan foydalanishingiz mumkin.

Raqamlarni so'zlarga aylantirish uchun VBA makrosi

Men aytib o'tganimdek , Microsoft ushbu vazifa uchun vosita qo'shishni xohlamadi. Biroq, ular qancha foydalanuvchiga kerakligini ko'rganlarida, ular maxsus VBA makrosini yaratdilar va o'z veb-saytida nashr etdilar. Makros SpellNumber nomi taklif qilgan narsani bajaradi. Men uchratgan boshqa barcha makroslar Microsoft kodiga asoslangan.

Siz "imlo raqami formulasi" deb nomlangan makrosni topishingiz mumkin. Biroq, bu formula emas, balki so'l funksiya, aniqrog'i Excel foydalanuvchisi tomonidan belgilangan funksiya (UDF).

Imlo raqami opsiyasi dollar va sentlarni yozishga qodir. Agar sizga boshqa valyuta kerak bo'lsa, " dollar " va " tsent " ni valyutangiz nomi bilan o'zgartirishingiz mumkin.

Agar siz VBA-ni yaxshi biladigan odam bo'lmasangiz , quyida siz kodning nusxasini topasiz. Agar siz hali ham buni hal qilishni xohlamasangiz yoki vaqtingiz bo'lmasa, ushbu yechimdan foydalaning.

1. Raqamlarni yozishingiz kerak bo'lgan ish kitobini oching.
2. Alt tugmasini bosing. Visual Basic muharriri oynasini ochish uchun +F11.
3. Agar sizda bir nechta kitoblar ochilgan bo'lsa, kerakli ish kitobining faolligini tekshiring.muharrirning yuqori chap burchagidagi loyihalar ro'yxati (ishchi kitobining elementlaridan biri ko'k rang bilan ajratilgan).
4. Muharrir menyusida Qo'shish -> Modulga o'ting. .
5. Siz YourBook - Module1 nomli oynani ko'rishingiz kerak. Quyidagi ramkadagi barcha kodlarni tanlang va uni ushbu oynaga joylashtiring.

   Variant Aniq 'Asosiy Funktsiya Funktsiya SpellNumber( ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Ming " Place(3) = " Million " Joy(4) = "Millard" Joy(5) = " Trillion " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, "." ) If DecimalPlace > 0 So'ngra Cents = GetTens(Chap(O'rta(Mening raqamim, o'nlik o'rin + 1) & _ "00" , 2)) MyNumber = Trim(Chap(Mening raqamim, o'nlik o'rin - 1)) End Agar Sanoq = 1 Mening raqamim "" Temp paytida bajaring = GetHundreds(Right(MyNumber, 3)) Temp "" bo'lsa, Dollar = Temp & Joy(hisoblash) & amp; Dollar If Len(MyNumber) > 3 Keyin MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Case Dollars Case "" Dollars = "No Dollars" Case "Bir" Dollars = "Bir Dollar" Case Else Dollar = Dollar & amp; " Dollar" End tanlang Case Cents Case "" Cents = "va No Cents" Case "Bir" Cents = "va One Cent" Case Else Cents = " va " & amp; Cents & "Cents" End tanlang SpellNumber = Dollar & amp; Cents End Funktsiyasi GetHundreds(ByVal MyNumber) Dim Natija satr sifatida Val(MyNumber) = 0 bo'lsa, Funktsiyadan chiqish MyNumber = Right( "000" & amp; MyNumber, 3) ' Yuzliklar joyini o'zgartiring. Agar Mid(Mening raqamim, 1, 1) "0" bo'lsa, natija = GetDigit (O'rta(Mening raqamim, 1, 1)) & "Yuz" End If ' o'nlik va birliklar qatorini aylantiring. Agar Mid(Mening raqamim, 2, 1) "0" bo'lsa, Natija = Natija & GetTens(O'rta(Mening raqamim, 2)) Boshqa natija = Natija & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Natija End Function Function GetTens(TensText) Dim Natija sifatida String Natija = "" ' Vaqtinchalik funksiya qiymatini bekor qiling. Agar Val(Left(TensText, 1)) = 1 Agar qiymat 10-19 orasida boʻlsa… Val(TensText) Case 10-ni tanlang: Natija = “Oʻn” holat 11: Natija = “Oʻn bir” holat 12: Natija = “Oʻn ikkita " 13-holat: Natija = "O'n uchta" 14-holat: Natija = "O'n to'rt" 15-hol: Natija = "O'n besh" holat 16: Natija = "O'n olti" holat 17: Natija = "O'n etti" holat 18: Natija = "O'n sakkiz" holat 19: Natija = "O'n to'qqiz" Case Else End Aks holda tanlang ' Agar qiymat 20-99 orasida bo'lsa... Case Val(Left(TensText, 1)) ni tanlang) 2-holat: Natija = "Yigirma" 3-holat: Natija = "O'ttiz" holat 4: Natija = "Qirq" holat 5: Natija = "Ellik" holat 6: Natija = "Otmish" holat 7: Natija = "Yetmish" holat 8: Natija = "Sakson" holat 9: Natija = "To'qson" holat Boshqa yakunlash Natijani tanlash = Natija & GetDigit _ (O'ng(TensText, 1)) ' Birlar o'rnini oling. End If GetTens = Natija End Function Function GetDigit(Digit) Case tanlashVal(Raqam) 1-holat: GetDigit = "Bir" holat 2: GetDigit = "Ikki" holat 3: GetDigit = "Uch" holat 4: GetDigit = "To'rt" holat 5: GetDigit = "Besh" holat 6: GetDigit = " Olti" holat 7: GetDigit = "Yetti" holat 8: GetDigit = "Sakkiz" holat 9: GetDigit = "To'qqiz" Holat Boshqa : GetDigit = "" End Tanlash tugatish funktsiyasi

6. Ctrl+S tugmalarini bosing yangilangan ish kitobini saqlash uchun.

   Ishchi kitobingizni qayta saqlashingiz kerak. Ish kitobini makros bilan saqlashga harakat qilganingizda, “ Quyidagi xususiyatlarni makrosiz ish kitobida saqlab boʻlmaydi ” xabarini olasiz

   

   Yoʻq tugmasini bosing. yangi dialog oynasida Saqlash opsiyasini tanlang. " Turi sifatida saqlash " maydonida " Excel makrosi yoqilgan ishchi kitobi " variantini tanlang.

   

SpellNumber makrosidan foydalaning ish varaqlaringiz

Endi siz Excel hujjatlarida SpellNumber funksiyasidan foydalanishingiz mumkin. So'zlar bilan yozilgan raqamni olishingiz kerak bo'lgan katakka =SpellNumber(A2) raqamini kiriting. Bu erda A2 - raqam yoki miqdor ko'rsatilgan katakning manzili.

Bu yerda siz natijani ko'rishingiz mumkin:

Voila!

SpellNumber funksiyasini boshqa kataklarga tez ko'chiring.

Agar siz faqat bitta katakni emas, balki butun jadvalni aylantirishingiz kerak, sichqoncha kursorini kichik qora xochga aylanguncha formula bilan katakchaning pastki o‘ng burchagiga qo‘ying:

Sichqonchaning chap tugmasi bilan bosing va uni bo‘ylab suring. formulani to'ldirish uchun ustun. Natijalarni ko'rish uchun tugmani qo'yib yuboring:

Eslatma. IltimosShuni yodda tutingki, agar siz SpellNumber-dan boshqa katakka havola bilan foydalansangiz, yozma yig'indi har safar manba katakdagi raqam o'zgartirilganda yangilanadi.

Shuningdek, raqamni to'g'ridan-to'g'ri funktsiyaga kiritishingiz mumkin. masalan, =SpellNumber(29.95) (29,95 - qo'shtirnoqsiz va Dollar belgisisiz).

Excelda raqamlarni yozish uchun makrosdan foydalanishning kamchiliklari

Birinchi navbatda, kodni o'z xohishingizga ko'ra o'zgartirish uchun VBA-ni bilishingiz kerak. ehtiyojlari. Har bir ish kitobi uchun kodni o'zgartirishni rejalashtirgan joyga joylashtirish kerak. Aks holda, siz makroslar bilan shablon faylini yaratishingiz va Excelni ushbu faylni har bir boshida yuklash uchun sozlashingiz kerak bo'ladi.

Makrodan foydalanishning asosiy kamchiligi shundaki, agar siz ish kitobini boshqa birovga yuborsangiz, u buni amalga oshira olmaydi. makro ish kitobiga o'rnatilgan bo'lmasa, matnni ko'ring. Va agar u o'rnatilgan bo'lsa ham, ular ish kitobida makrolar mavjudligi haqida ogohlantirish oladi.

Maxsus qo'shimcha yordamida raqamlarni so'zlarga kiriting

Yig'malarni tezda yozishi kerak bo'lgan, lekin VBA-ni o'rganishga yoki vaqtinchalik echimlarni topishga vaqtlari bo'lmagan Excel foydalanuvchilari uchun biz maxsus vositani yaratdik. bir nechta mashhur valyutalar uchun summani so'zlarga konvertatsiya qilishni tezda amalga oshirishi mumkin. Excel uchun Ultimate Suite-ning so'nggi versiyasiga kiritilgan Spell Number qo'shimchasi bilan tanishing.

Foydalanishga tayyor bo'lishdan tashqari, vosita miqdorlarni matnga aylantirishda juda moslashuvchan:

• Siz quyidagi variantlardan birini tanlashingiz mumkin.quyidagi valyutalar: USD, EUR, GBP, BIT, AUD.
• Kassr qismini sent, penni yoki bitcentlarda yozing.
• Natija uchun har qanday matn registrini tanlang: kichik harf, YUQARI , Sarlavha yoki jumla registrlari.
• Oʻnli qismni turli usullarda yozing.
• Nol sentni qoʻshing yoki qoldirmang.

Qoʻshimcha barcha zamonaviylarni qoʻllab-quvvatlaydi. versiyalari, shu jumladan Excel 365, Excel 2029, Excel 2016, Excel 2013 va Excel 2010. Iltimos, yuqorida havola qilingan mahsulotning bosh sahifasida boshqa imkoniyatlar bilan tanishing.

Va endi, keling, ushbu raqam imlo yordam dasturini amalda ko'rib chiqamiz. :

1. Natija uchun boʻsh katakni tanlang.
2. Ablebits yorligʻida, Utilitalar guruhida tugmasini bosing. Imlo raqami .
3. Ko'rsatilgan To'kilgan raqam dialog oynasida quyidagi narsalarni sozlang:
   • Raqamingizni tanlang oynasi uchun , matn sifatida yozmoqchi bo'lgan miqdorni o'z ichiga olgan katakchani tanlang.
   • Istalgan hozirda , harf kattaligi va o'nlik sonini belgilang. raqamning qismi yozilishi kerak.
   • Nol sentni kiritish yoki kiritmaslikni belgilang.
   • Natijani qiymat yoki formula sifatida kiritishni tanlang.
4. Muloqot oynasining pastki qismida natijani oldindan ko'rish . Agar raqamingizning yozilishi sizni qoniqtirsa, Imlo tugmasini bosing. Aks holda, boshqa sozlamalarni sinab ko'ring.

Quyidagi skrinshotda sukut bo'yicha ko'rsatilgantanlovlar va B2 dagi imlo raqami. Iltimos, formulalar qatoridagi formulaga (aniqrog'i, foydalanuvchi tomonidan belgilangan funksiya) e'tibor bering:

Va bu boshqa valyutalar qanday yozilishi mumkinligining tezkor namoyishi:

Maslahatlar va eslatmalar:

• Imlo raqami qo'shimchasi fakturalar va boshqa moliyaviy hujjatlar kabi real foydalanish holatlarini ko'rib chiqish uchun mo'ljallanganligi sababli u faqat bitta raqamni <6 o'zgartira oladi>bir vaqtning o'zida.
• raqamlar ustunini imlo qilish uchun birinchi katakchaga formula kiriting va keyin formulani pastga nusxalang.
• Agar shunday imkoniyat bo'lsa. Sizning manba ma'lumotlaringiz kelajakda o'zgarishi mumkin, eng yaxshisi natijani formula sifatida kiriting , shuning uchun u asl raqam o'zgarganda avtomatik ravishda yangilanadi.
• Formula sifatida natijani tanlashda variant, maxsus foydalanuvchi tomonidan belgilangan funksiya (UDF) kiritilgan. Agar siz ish kitobingizni Ultimate Suite o'rnatilmagan odam bilan baham ko'rishni rejalashtirmoqchi bo'lsangiz, almashishdan oldin formulalarni qiymatlar bilan almashtirishni unutmang.

Teskari konvertatsiya - inglizcha so'zlarni raqamlarga

Ochig'ini aytsam. , Nega sizga kerak bo'lishi mumkinligini tasavvur qila olmayman. Har holda... :)

Aftidan, Excel MVP, Jerri Latham WordsToDigits kabi Excel foydalanuvchi tomonidan belgilangan funksiyani (UDF) yaratgan. U inglizcha so'zlarni raqamga qaytaradi.

UDF kodini ko'rish uchun Jerry's WordsToDigits ish kitobini yuklab olishingiz mumkin. Bu erda siz undan qanday foydalanishga oid misollarni ham topasizfunktsiyasi.

Funktsiya qanday ishlashini " Yozuv namunalari " sahifasida ko'rishingiz mumkin, bu erda siz o'z misollaringizni ham kiritishingiz mumkin bo'ladi. Agar siz hujjatlaringizda WordsToDigits-dan foydalanishni rejalashtirmoqchi bo'lsangiz, ushbu funktsiyada cheklovlar mavjudligini bilib oling. Masalan, u so'zlarga kiritilgan kasrlarni tanimaydi. Siz barcha tafsilotlarni " Ma'lumot " sahifasida topasiz.