Bu məqalədə mən sizə Excel 2019, 2016, 2013 və digər versiyalarda valyuta nömrələrini ingilis sözlərinə çevirməyin iki sürətli və pulsuz yolunu göstərəcəyəm.

Microsoft Excel əla proqramdır. bunu və bunu hesablamaq üçün proqram. Əvvəlcə böyük məlumat massivlərini emal etmək üçün hazırlanmışdır. Bununla belə, o, həmçinin hesab-fakturalar, qiymətləndirmə və ya balans hesabatları kimi mühasibat qeydlərini tez və effektiv şəkildə yaratmağa imkan verir.

Daha çox və ya daha az möhkəm ödəniş sənədlərində rəqəmli dəyərləri onların söz forması ilə təkrarlamaq lazımdır. Əllə yazılmış nömrələri saxtalaşdırmaq daha çətindir. Bəzi fırıldaqçılar 3000-dən 8000-ni çıxarmağa cəhd edə bilər, halbuki gizli şəkildə "üç"ü "səkkiz" ilə əvəz etmək demək olar ki, mümkün deyil.

Beləliklə, sizə lazım olan təkcə rəqəmləri Excel-də sözlərə çevirmək deyil (məsələn, 123.45-dən "yüz iyirmi üç, qırx beş"), lakin dollar və sentləri (məsələn, "iyirmi doqquz dollar və doxsan doqquz sent" kimi $29,95), GBP üçün funt və pens, EUR üçün avro və avrosentləri və s. ifadə edin.

Hətta Excel-in ən son versiyalarında əvvəlki versiyaları nəzərə almasaq, rəqəmlərin orfoqrafiyası üçün daxili alət yoxdur. Ancaq Excel həqiqətən yaxşı olduqda. Siz onun funksionallığını bütün

kombinasiyalarında, VBA makrolarında və ya üçüncü tərəf əlavələrində olan düsturlardan istifadə edərək hər zaman təkmilləşdirə bilərsiniz.

Aşağıda nömrələri çevirməyin iki yolunu tapa bilərsiniz. rəqəmlərdən sözlərə

Və, ola bilsin ki, sizə lazım ola bilərExcel-də Sözləri Rəqəmlərə çevirmək

Qeyd. Əgər siz nömrəni mətnə ​​çevirmə axtarırsınızsa, yəni Excel-in nömrənizi mətn kimi görməsini istəyirsiniz, bu bir az fərqli şeydir. Bunun üçün siz MƏTN funksiyasından və ya Excel-də rəqəmləri mətnə ​​necə dəyişmək olar bölməsində təsvir edilmiş bir neçə başqa yoldan istifadə edə bilərsiniz.

Rəqəmləri sözlərə çevirmək üçün SpellNumber VBA makrosu

Artıq qeyd etdiyim kimi , Microsoft bu tapşırıq üçün alət əlavə etmək istəmədi. Bununla belə, nə qədər istifadəçinin buna ehtiyacı olduğunu gördükdə, xüsusi VBA makrosunu yaradıb vebsaytlarında dərc etdilər. Makro, SpellNumber adının təklif etdiyi şeyi edir. Qarşılaşdığım bütün digər makrolar Microsoft koduna əsaslanır.

Siz "imla nömrəsi formulası" kimi qeyd olunan makronu tapa bilərsiniz. Bununla belə, bu, düstur deyil, makro funksiyadır, daha dəqiq desək, Excel İstifadəçi tərəfindən müəyyən edilmiş funksiya (UDF).

Ofsun nömrəsi seçimi dollar və sent yaza bilir. Fərqli valyutaya ehtiyacınız varsa, " dollar " və " cent "-ni valyutanızın adı ilə dəyişə bilərsiniz.

Əgər siz VBA-nı bilən adam deyilsinizsə , aşağıda kodun surətini tapa bilərsiniz. Əgər hələ də bunu həll etmək istəmirsinizsə və ya vaxtınız yoxdursa, lütfən, bu həlldən istifadə edin.

1. Rəqəmlərin hərfini yazmağınız lazım olan yerdə iş kitabını açın.
2. Alt düyməsini basın. Visual Basic redaktoru pəncərəsini açmaq üçün +F11.
3. Bir neçə kitabınız varsa, lazım olan iş kitabının aktiv olub olmadığını yoxlayın.redaktorun yuxarı sol küncündə layihələrin siyahısı (iş kitabının elementlərindən biri mavi rənglə vurğulanır).
4. Redaktor menyusunda Daxil et -> Module keçin. .
5. Siz YourBook - Module1 adlı pəncərəni görməlisiniz. Aşağıdakı çərçivədəki bütün kodları seçin və bu pəncərəyə yapışdırın.

   Seçim Açıq 'Əsas Funksiya Funksiya SpellNumber( ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As As String Place(2) = " Min " Place(3) = " Milyon " Place(4) = " Milyar " Place(5) = " Trilyon " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, "." ) If DecimalPlace > 0 Sonra Cents = GetTens(Sol(Mid(MyNumber, DecimalPlace + 1) & _ "00" , 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Say = 1 MyNumber "" Temp zamanı edin = GetHundreds(Sağ(MyNumber, 3)) Əgər Temp "" Əgər Dollar = Temp & Yer(Sayı) & Dollars If Len(MyNumber) > 3 Sonra MyNumber = Sol(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Dollars Case "" Dollars = "No Dollars" Case "Bir" Dollars = "Bir Dollar" Case Else Dollar = Dollar & " Dollars" End Select Case Cents Case "" Cents = " and No Cents" Case "One" Cents = " and One Cent" Case Else Cents = " and " & sent & "Cents" End Select SpellNumber = Dollar & Cents End Funksiyası GetHundreds(ByVal MyNumber) Sətir kimi Dim Nəticə Val(MyNumber) = 0 olarsa, Funksiyadan çıxın MyNumber = Right("000" & MyNumber, 3) ' Yüzlər yerini çevirin. Mid(MyNumber, 1, 1) "0" Əgər Nəticə = GetDigit(Mid(MyNumber, 1, 1)) & "Yüz" Sonu Əgər ' Onlarlıq və birlik yerini çevirin. Mid(MyNumber, 2, 1) "0" Əgər Nəticə = Nəticə & GetTens(Mid(MyNumber, 2)) Başqa Nəticə = Nəticə & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Nəticə Son Funksiya Funksiya GetTens(TensText) Dim Nəticə Sətir Nəticə = "" ' Müvəqqəti funksiya dəyərini sıfırlayın. Əgər Val(Sol(TensText, 1)) = 1 Əgər dəyər 10-19 arasındadırsa... Val(TensText) Case 10-u seçin: Nəticə = "On" İş 11: Nəticə = "On bir" İş 12: Nəticə = "On iki" " İş 13: Nəticə = "On üç" İş 14: Nəticə = "On dörd" İş 15: Nəticə = "On beş" İş 16: Nəticə = "On altı" İş 17: Nəticə = "On yeddi" İş 18: Nəticə = "On səkkiz" İş 19: Nəticə = "On doqquz" Vəziyyət Əks halda Son Başqa Seç ' Əgər dəyər 20-99 arasındadırsa… Seçin Case Val(Sol(TensText, 1)) Case 2: Nəticə = "Twenty" Case 3: Nəticə = "Otuz" Case 4: Nəticə = "Qırx" İş 5: Nəticə = "Əlli" ​​İş 6: Nəticə = "Altmış" İş 7: Nəticə = "Yetmiş" İş 8: Nəticə = "Səksən" İş 9: Nəticə = "Doxsan" İş Başqa Son Seçim Nəticə = Nəticə & GetDigit _ (Sağ(TensText, 1)) ' Birlərin yerini alın. Bitiş GetTens = Nəticə Son Funksiya Funksiya GetDigit(Rəqəm) Case seçinVal(Rəqəm) 1-ci hal: GetDigit = "Bir" İş 2: GetDigit = "İki" İş 3: GetDigit = "Üç" İş 4: GetDigit = "Dörd" İş 5: GetDigit = "Beş" İş 6: GetDigit = " Altı" İş 7: GetDigit = "Yeddi" İş 8: GetDigit = "Səkkiz" İş 9: GetDigit = "Doqquz" Əks halda : GetDigit = "" Son Seçmə Son Funksiya

6. Ctrl+S basın yenilənmiş iş kitabını saxlamaq üçün.

   İş dəftərinizi yenidən yadda saxlamalısınız. İş kitabını makro ilə saxlamağa çalışdığınız zaman " Aşağıdakı funksiyalar makrosuz iş kitabında saxlanıla bilməz " mesajını alacaqsınız

   

   Xeyr düyməsini klikləyin. Gördüyünüz zaman yeni bir dialoq, Saxla seçimini seçin. " Növ kimi yadda saxla " sahəsində " Excel makro-aktiv iş kitabı " seçimini seçin.

   Həmçinin bax: 2 Google cədvəlini birləşdirin və ümumi qeydlər əsasında məlumatları yeniləyin
   

SpellNumber makrosundan istifadə edin iş vərəqləriniz

İndi siz Excel sənədlərinizdə SpellNumber funksiyasından istifadə edə bilərsiniz. Sözlərlə yazılmış nömrəni almaq üçün lazım olan xanaya =SpellNumber(A2) yazın. Burada A2 nömrə və ya məbləği olan xananın ünvanıdır.

Nəticəni burada görə bilərsiniz:

Voila!

SpellNumber funksiyasını digər xanalara sürətlə köçürün.

Əgər yalnız 1 xananı deyil, bütün cədvəli çevirmək lazımdır, siçan kursorunu kiçik qara xaça çevrilənə qədər düsturla xananın aşağı sağ küncünə yerləşdirin:

Sol klikləyin və onu xananın üzərinə sürükləyin. düsturu doldurmaq üçün sütun. Nəticələri görmək üçün düyməni buraxın:

Qeyd. Zəhmət olmasaunutmayın ki, SpellNumber-dən başqa xanaya keçidlə istifadə etsəniz, mənbə xanadakı nömrə hər dəfə dəyişdirildikdə yazılı məbləğ yenilənəcək.

Həmçinin nömrəni birbaşa funksiyaya daxil edə bilərsiniz. məsələn, =SpellNumber(29.95) (29.95 - dırnaq işarələri və Dollar işarəsi olmadan).

Excel-də nömrələri hərf etmək üçün makrodan istifadənin çatışmazlıqları

İlk olaraq, kodu öz istəyinizə uyğun olaraq dəyişdirmək üçün VBA-nı bilməlisiniz. ehtiyaclar. Hər bir iş kitabının kodunu dəyişdirməyi planlaşdırdığınız yerə yapışdırmaq lazımdır. Əks halda, siz makrolarla şablon faylı yaratmalı və hər başlanğıcda bu faylı yükləmək üçün Excel-i konfiqurasiya etməli olacaqsınız.

Makrodan istifadənin əsas çatışmazlığı ondan ibarətdir ki, siz iş kitabını başqasına göndərsəniz, bu şəxs bunu etməyəcək. makro iş kitabına daxil edilmədiyi təqdirdə mətnə ​​baxın. Quraşdırılmış olsa belə, onlar iş kitabında makroların olması barədə xəbərdarlıq alacaqlar.

Xüsusi əlavədən istifadə edərək rəqəmləri sözlərə yazın

Cəmi cəld oxumalı olan, lakin VBA-nı öyrənməyə və ya həll yollarını tapmağa vaxtı olmayan Excel istifadəçiləri üçün biz xüsusi alət yaratdıq. bir neçə məşhur valyuta üçün məbləğdən sözə çevrilməni tez həyata keçirə bilər. Excel üçün Ultimate Suite-in ən son buraxılışına daxil olan Spell Number əlavəsi ilə tanış olun.

İstifadəyə hazır olmaqla yanaşı, alət məbləğləri mətnə ​​çevirməkdə həqiqətən çevikdir:

• Siz aşağıdakılardan birini seçə bilərsiniz.aşağıdakı valyutalar: USD, EUR, GBP, BIT, AUD.
• Kəsr hissəni sent, penni və ya bitcentlərlə yazın.
• Nəticə üçün hər hansı mətn hərfini seçin: kiçik hərf, BÖYÜK RƏFS , Başlıq Rejissoru və ya Cümlə halı.
• Onluq hissəni müxtəlif üsullarla yazın.
• Sıfır senti daxil edin və ya buraxın.

Əlavə bütün müasirləri dəstəkləyir. Excel 365, Excel 2029, Excel 2016, Excel 2013 və Excel 2010 daxil olmaqla versiyalar. Lütfən, yuxarıda əlaqələndirilmiş məhsulun əsas səhifəsində digər imkanları araşdırın.

İndi isə gəlin bu rəqəmin orfoqrafik yardım proqramının işlək vəziyyətdə olduğunu görək. :

1. Nəticə üçün boş xana seçin.
2. Ablebits nişanında, Utilities qrupunda üzərinə klikləyin İmla Nömrəsi .
3. Görünən Tökülən Nömrə dialoq pəncərəsində aşağıdakıları konfiqurasiya edin:
   • Nömrənizi seçin qutusu üçün , mətn kimi yazmaq istədiyiniz məbləği ehtiva edən xananı seçin.
   • İstədiyiniz hal-hazırda , hərf halını və onluq rəqəmini göstərin. ədədin hissəsi yazılmalıdır.
   • Sıfır sentin daxil olub-olmamasını müəyyənləşdirin.
   • Nəticənin dəyər və ya düstur kimi daxil olub-olmamasını seçin.
4. Dialoq pəncərəsinin aşağı hissəsində nəticəni önizləyin . Əgər nömrənizin yazılmasından razısınızsa, Orf üzərinə klikləyin. Əks halda, müxtəlif parametrləri sınayın.

Aşağıdakı skrinşot standartı nümayiş etdirirseçimlər və B2-də yazılmış nömrə. Lütfən, düstur zolağında bir düstura (daha doğrusu, istifadəçi tərəfindən müəyyən edilmiş funksiya) diqqət yetirin:

Və bu, digər valyutaların necə yazıla biləcəyinin qısa nümayişidir:

Məsləhətlər və qeydlər:

• Ofoqrafiya Nömrəsi əlavəsi faktura və digər maliyyə sənədləri kimi real həyatda istifadə hallarını idarə etmək üçün nəzərdə tutulduğuna görə, o, yalnız bir rəqəmi <6 çevirə bilər>hər vaxt.
• rəqəmlər sütununu hərf etmək üçün birinci xanaya düstur daxil edin və sonra düsturu aşağıya köçürün.
• Əgər belə bir şans varsa mənbə datanız gələcəkdə dəyişə bilər, ən yaxşısı nəticəni düstur kimi daxil etmək , ona görə də orijinal nömrə dəyişdikcə avtomatik olaraq yenilənir.
• Düstur olaraq nəticəni seçərkən seçim, xüsusi istifadəçi tərəfindən müəyyən edilmiş funksiya (UDF) daxil edilir. Əgər iş kitabınızı Ultimate Suite quraşdırılmamış şəxslə paylaşmağı planlaşdırırsınızsa, paylaşmadan əvvəl düsturları dəyərlərlə əvəz etməyi unutmayın.

Tərs çevrilmə - İngilis dili sözləri rəqəmlərə

Açığı , Niyə ehtiyacınız ola biləcəyini təsəvvür edə bilmirəm. Hər halda… :)

Görünür ki, Excel MVP, Jerry Latham WordsToDigits kimi Excel İstifadəçi tərəfindən müəyyən edilmiş funksiyanı (UDF) yaratmışdır. O, ingilis sözlərini yenidən nömrəyə çevirir.

UDF koduna baxmaq üçün Jerry's WordsToDigits iş kitabını yükləyə bilərsiniz. Burada onun necə istifadə ediləcəyinə dair nümunələri də tapa bilərsinizfunksiyası.

Siz funksiyanın necə işlədiyini " Nümunə Girişləri " vərəqində görə bilərsiniz, burada siz də öz nümunələrinizi daxil edə biləcəksiniz. Sənədlərinizdə WordsToDigits istifadə etməyi planlaşdırırsınızsa, bu funksiyanın məhdudiyyətləri olduğunu bildirin. Məsələn, sözlərə daxil edilmiş kəsrləri tanımır. Siz bütün təfərrüatları " Məlumat " vərəqində tapa bilərsiniz.