A ƙasa zaku sami shirye-shiryen da aka ayyana mai amfani a cikin VBA wanda ke fassara kowane lamba daga 0 to 9 a cikin wakilcinsa na rubutu, watau a cikin adadin cikin kalmomi. Kafin amfani, dole ne a ƙara wannan aikin zuwa littafin ku. Don wannan:
- latsa gajeriyar hanyar keyboard ALT + F11don buɗe Editan Kayayyakin Kaya
- ƙara sabon tsarin komai ta hanyar menu Saka - Module
- kwafi da liƙa rubutun wannan aikin a wurin:
Aiki SUM(n A Matsayin Biyu) A Matsayin Dim Nums1, Lambobi2, Lambobi3, Lambobi 4 A Matsayin Bambancin Lambobi1 = Tsari ("", "ɗaya", "biyu", "uku", "hudu", "biyar", "shida", "bakwai", "takwas", "tara") lamba2 = Tsari ("", "goma", "ashirin", "talatin", "arba'in", "hamsin", "sittin", "saba'in", _ "tamanin" ", "casa'in") Nums3 = Tsari ("", "ɗari ɗaya", "ɗari biyu", "ɗari uku", "ɗari huɗu", "ɗari biyar", "ɗari shida", "ɗari bakwai", _ " dari takwas", "dari tara") Nums4 = Tsari ("", "daya", "biyu", "uku", "hudu", "biyar", "shida", "bakwai", "takwas", "tara" ") Nums5 = Tsari ("goma " , " sha ɗaya", "sha biyu", " sha uku", " sha huɗu", _ "sha biyar", " sha shida", " sha bakwai", " sha takwas ", " sha tara ") Idan n < = 0 Sannan SUMWRITE = "sifili" Ƙarshen Ayyukan Fita Idan 'raba lambar zuwa lambobi ta amfani da aikin mataimaki 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) 'duba miliyoyin Zabi Case decmil Case 1 mil_txt = Nums5(mil) ) & "miliyoyin " GoTo www Case 2 Zuwa 9 decmil_txt = Lambobi2(decmil) Ƙare Zaɓi Zaɓi Case mil Case 1 mil_txt = Nums1(mil) & "million" Case 2, 3, 4 mil_txt = Nums1(mil) & "million" Case 5 Zuwa 20 mil_txt = Nums1(mil) & "miliyoyin" Ƙarshen Zaɓi www: sottys_txt = Nums3(sottys)' duba dubbai Zaɓi Case dectys Case 1 tys_txt = Nums5(tys) & "dubbai" GoTo eee Case 2 Zuwa 9 dectys_txt = Lambobi2(lambobi) Ƙare Zaɓi Zaɓi Case tys Case 0 Idan dectys > 0 Sai tys_txt = Nums4(tys) & "dubbai" Case 1 tys_txt = Nums4(tys) & "dubu" Case 2, 3, 4 tys_txt = Lissafi4(tys) & "dubu. Case 5 To 9 tys_txt = Nums4(tys) & "thousands" Ƙarshen Zaɓi Idan dectys = 0 Kuma tys = 0 Kuma sottys <> 0 Sai sottys_txt = sottys_txt & "dubbai" eee: sot_txt = Nums3(tens) 'check Select dec Case 1 ed_txt = Nums5(ed) GoTo rrr Case 2 Zuwa 9 dec_txt = Lambobi2(dec) Ƙarshe Zaɓi ed_txt = Nums1 (ed) rrr: 'ƙirƙiri jere na ƙarshe tare da SUM IN SPEECH = decmil_ txt & mil_txt & sottys tys_txt & sot_txt & dec_txt & ed_txt Karshen Fu nction 'aiki mai taimako don cirewa daga adadin lambobi Class Aiki Masu zaman kansu (M, I) Class = Int (Int (M - (10 ^ I) * Int (M / (10 ^ I)))) / 10 ^ (I - 1)) Ƙarshen Aiki Ajiye fayil ɗin (idan kuna da Excel 2007 ko 2010, to nau'in fayil ɗin dole ne ya zama macro-enabled, watau tsarin xlsm!) kuma komawa zuwa Excel. Yanzu zaku iya shigar da aikin da aka ƙirƙira a cikin kowane tantanin halitta na takaddar aikin ta hanyar da aka saba - ta hanyar maye aikin (maɓallin). fx a cikin dabara bar, category Ma'anar Mai amfani) ko kuma ta hanyar buga shi a cikin tantanin halitta da hannu da kuma tantance tantanin halitta tare da adadin a matsayin hujja:
Idan kuna buƙatar ƙara pennies zuwa rubutun da aka karɓa, to zaku iya amfani da ginin da ya fi rikitarwa:
u3d SUM IN WRITE (A3) & ” rub. "&TEXT((A3-INTEGER (A100))*00;"XNUMX″)&" dan sanda."
u3d SUM IN WRITE (A3) & ” rub. "&TEXT((A3-INT(A100))*00;"XNUMX″)&" dan sanda."
Sa'an nan, alal misali, don lambar 35,15, sakamakon aikin zai yi kama da "rubobi talatin da biyar. 15 kop."
- A more powerful version of the function with rubles and kopecks in / English from the PLEX add-on
- Menene macros, inda za a saka macro code, yadda ake amfani da su