Aşağıda VBA-da istənilən ədədi tərcümə edən istifadəçi tərəfindən təyin edilmiş hazır funksiya tapa bilərsiniz 0 olan 9 üçün onun mətn təmsilinə, yəni sözlə məbləğdə. İstifadə etməzdən əvvəl bu funksiya kitabınıza əlavə edilməlidir. Bunun üçün:
- klaviatura qısa yolunu basın ALT + F11Visual Basic redaktorunu açmaq üçün
- menyu vasitəsilə yeni boş modul əlavə edin Daxil et - Modul
- bu funksiyanın mətnini kopyalayıb oraya yapışdırın:
Funksiya SUM(n İkiqat) Sətir kimi Dim Nömrələr1, Nömrələr2, Nömrələr3, Nüms4 Variant kimi Nömrələr1 = Massiv("", "bir", "iki", "üç", "dörd", "beş", "altı", "yeddi", "səkkiz", "doqquz") Nömrələr2 = Massiv("", "on", "iyirmi", "otuz", "qırx", "əlli", "altmış", "yetmiş", _ "səksən ", "doxsan") Nömrələr3 = Massiv("", "yüz", "iki yüz", "üç yüz", "dörd yüz", "beş yüz", "altı yüz", "yeddi yüz", _ " səkkiz yüz", "doqquz yüz") Nömrələr4 = Array("", "bir", "iki", "üç", "dörd", "beş", "altı", "yeddi", "səkkiz", "doqquz" ") Nömrələr5 = Massiv("on " , "on bir", "on iki", "on üç", "on dörd", _ "on beş", "on altı", "on yeddi", "on səkkiz", "on doqquz") Əgər n < = 0 Sonra SUMWRITE = "sıfır" Funksiyadan Çıxış Sonu Əgər 'köməkçi funksiyasından istifadə edərək ədədi rəqəmlərə bölürsünüzsə Class ed = Class(n, 1) dec = Class(n, 2) sot = Class(n, 3) tys = Class (n, 4) dectys = Class(n, 5) sottys = Class(n, 6) mil = Class(n, 7) decmil= Class(n, 8) 'milyonları yoxlayın Case decmil Case 1 mil_txt = Nums5(mil) ) & "millions" GoTo www Case 2 - 9 decmil_txt = Nums2(decmil) End Select Select Case mil 1 mil_txt = Nums1(mil) & "million" Case 2, 3, 4 mil_txt = Nums1(mil) & "million" Case 5 - 20 mil_txt = Nömrələr1(mil) & "milyonlar" Son Seçin www: sottys_txt = Nömrələr3(sottys) ' minləri yoxlayın Case dectys 1-i seçin tys_txt = Nömrələr5(tys) & "minlərlə" Dava 2-dən 9-a qədər dectys_txt = Nömrələr2(dectys) Son Seçin Seçin Case tys Case 0 Əgər dectys > 0 Sonra tys_txt = Nums4(tys) & "minlərlə" Case 1 tys_txt = Nums4(tys) & "thousand" Case 2, 3, 4 tys_txt = Nums4(tys) & "minlərlə" İş 5 - 9 tys_txt = Nömrələr4(tys) & "minlər" Son Seçin Əgər dectys = 0 Və tys = 0 Və sottys <> 0 Sonra sottys_txt = sottys_txt & "minlərlə" eee: sot_txt = Nömrə3(sot)' onlarla yoxlayın Case dec Case 1 ed_txt = Nums5(ed) GoTo rrr Case 2 - 9 dec_txt = Nums2(dec) End Select ed_txt = Nums1 (ed) rrr: 'SUM IN SPEECH = decmil_ txt & mil_txt ilə yekun cərgəni yaradın sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt End Function ' rəqəmlərin sayından çıxarmaq üçün köməkçi funksiya Şəxsi Funksiya Sinfi(M, I) Sinif = Int(Int(M - (10 ^ I) * Int(M / () 10 ^ I))) / 10 ^ (I - 1)) Son Funksiya Faylı yadda saxlayın (əgər sizdə Excel 2007 və ya 2010 varsa, o zaman fayl növü makro-aktiv olmalıdır, yəni xlsm formatı!) və Excel-ə qayıdın. İndi yaradılmış funksiyanı iş vərəqinin istənilən xanasına adi qaydada – funksiya ustası (düymə) vasitəsilə daxil edə bilərsiniz. fx düstur çubuğunda, kateqoriyada Müəyyən edilmiş istifadəçi) və ya sadəcə onu xanaya əl ilə yazaraq və arqument olaraq məbləği olan xananı göstərərək:
Alınan mətnə qəpiklər əlavə etmək lazımdırsa, bir az daha mürəkkəb bir tikinti istifadə edə bilərsiniz:
u3d YAZINDA YAZILAN CƏMİ (A3) & ” rub. “&MƏTN((A3-TAMİ(A100))*00;”XNUMX″)&”polis.”
u3d YAZINDA YAZILAN CƏMİ (A3) & ” rub. “&TEXT((A3-INT(A100))*00;”XNUMX″)&”polis.”
Sonra, məsələn, 35,15 rəqəmi üçün funksiyanın nəticəsi "otuz beş rubl" kimi görünəcəkdir. 15 qəpik.”
- PLEX əlavəsindən ingilis dilində rubl və qəpiklərlə funksiyanın daha güclü versiyası
- Makrolar nədir, makro kodu hara daxil etmək, onlardan necə istifadə etmək