Li jêr hûn ê di VBA-ê de fonksiyonek diyarkirî ya bikarhêner-amade bibînin ku her hejmarê werdigerîne ji 0 heta 9 di temsîla wê ya metnîkî de, ango di hejmara peyvan de. Berî karanîna, divê ev fonksiyon li pirtûka we were zêdekirin. Ji bo vê:
- kurteya klavyeyê bitikîne ALT + F11ji bo vekirina Edîtorê Visual Basic
- modulek nû ya vala bi navgîniyê ve zêde bike Têxe - Modul
- Nivîsara vê fonksiyonê li wir kopî bikin û bixin:
Fonksiyon SUM(n Wek duqat) Wek Rêz Dim Hejmar1, Hejmar2, Jimar3, Jimar4 Wek Guhertoya Jimar1 = Array("", "yek", "du", "sê", "çar", "pênc", "şeş", "heft", "heşt", "neh") Nums2 = Array("", "deh", "bîst", "sî", "çil", "pêncsed", "şêst", "heftê", _ "heştê ", "nod") Nums3 = Array("", "sed", "du sed", "sêsed", "çarsed", "pêncsed", "şeşsed", "heft sed", _" heşt sed", "nehsed") Nums4 = Array("", "yek", "du", "sê", "çar", "pênc", "şeş", "heft", "heşt", "neh" ") Nums5 = Array("deh", "yazdeh", "dozdeh", "sêzdeh", "çardeh", _ "panzdeh", "şanzdeh", "hevdeh", "hejdeh", "nozdeh") Heke n < = 0 Dûv re SUMWRITE = "sifir" Fonksiyon Derkeve Bi dawî bibe Ger 'hejmarê bi karûbarê alîkar bi reqeman dabeş bike Class ed = Class(n, 1) dec = Class(n, 2) sot = Class(n, 3) tys = Class (n, 4) dectys = Çîn(n, 5) sottys = Çîn(n, 6) mil = Çîn(n, 7) decmil= Çîn(n, 8) 'milyonan kontrol bike Mesela decmil Hilbijêre Mesela 1 mil_txt = Hejmar5(mil ) & "milyon" GoTo www Case 2 To 9 decmil_txt = Nums2 (decmil) Dawî Hilbijêre Mesela Mîllî Hilbijêre Mesela 1 mil_txt = Hejmar1(mil) & "milyon" Doza 2, 3, 4 mil_txt = Hejmar1(mil) & "milyon" Meseleya 5 Heta 20 mil_txt = Jimar1(mil) & "milyon" Dawî Hilbijêre www: sottys_txt = Nums3(sottys) ' Bi hezaran kontrol bike Doza dectys Mesela 1 tys_txt = Nums5(tys) & "hezar" GoTo eee Meseleya 2 Ber 9 dect = Nums2(dectys) Dawî Hilbijêre Doza tys Mesele 0 Ger dectys > 0 Paşê tys_txt = Nums4(tys) & "hezar" Doza 1 tys_txt = Nums4(tys) & "hezar" Meseleya 2, 3, 4 tys_txt = Hejmar4 & "hezar" Doza 5 Heta 9 tys_txt = Nums4(tys) & "hezar" Dawî Hilbijêre Ger dectys = 0 Û tys = 0 Û sottys <> 0 Paşê sottys_txt = sottys_txt & "hezar" eee: sot_txt = Nums3 deh kontrol Hilbijêre Mesela dec Meseleya 1 ed_txt = Jimar5(ed) GoTo rrr Mesele 2 Heta 9 dec_txt = Jimar2(Dec) Dawî Hilbijêre ed_txt = Jimar1 (ed) rrr: 'Rêza dawî bi SUM IN SPEECH = decmil_ txt & mil_tx sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt Fonksiyona Dawî ' Fonksiyona alîkar ku ji hejmara reqeman derxe Çîna Fonksiyona Taybet (M, I) Çîn = Int(Int(M - (10 ^ I) * Int(M / 10 ^ I))) / 10 ^ (I - 1)) Fonksiyon Dawî Pelê tomar bike (eger Excel 2007 an 2010 heye, wê demê divê cureyê pelê makro-çalak be, ango formata xlsm!) û vegere Excel. Naha hûn dikarin fonksiyona hatî afirandin bi awayê asayî têxin nav her şaneyek pelê xebatê - bi riya sêrbazê fonksiyonê (bişkojk fx di barê formula, kategoriyê de Bikarhêner Diyar kirin) an jî bi tenê bi nivîsandina wê di hucreyê de bi destan û diyarkirina hucreyê bi mîqdara wekî arguman:
Heke hûn hewce ne ku pênûsan li nivîsa wergirtî zêde bikin, wê hingê hûn dikarin avahiyek hinekî tevlihevtir bikar bînin:
u3d SUM DI NIVÎSÎNÊ (A3) & ” rub. "&TEXT((A3-INTEGER(A100))*00;"XNUMX″)&"cop."
u3d SUM DI NIVÎSÎNÊ (A3) & ” rub. "&TEXT((A3-INT(A100))*00;"XNUMX″)&"cop."
Dûv re, mînakî, ji bo hejmara 35,15, encama fonksiyonê dê wekî "sî û pênc rûbil" xuya bike. 15 kop.”
- Guhertoyek bihêztir a fonksiyonê bi ruble û kopekên bi / English ji pêveka PLEX
- Makro çi ne, koda makro li ku têxin, meriv wan çawa bikar tîne