Hoos waxaad ka heli doontaa hawl diyaarsan oo isticmaale ku qeexan VBA taasoo tarjumeysa lambar kasta ka 0 in 9 galay matalida qoraaleed, ie in qadarka erayada. Isticmaalka ka hor, shaqadan waa in lagu daraa buuggaaga. Tan awgeed:
- riix furaha kiiboodhka ALT + F11si loo furo Visual Basic Editor
- ku dar module cusub oo madhan via menu Geli - Module
- nuqul ka samee oo ku dheji qoraalka hawshan halkaas:
Shaqada SUM(n Sida Labanlaab ah) Sida Xadhkaha Dim Numbers1, Number2, Nums3, Numbers4 As Variant Numbers1 = Array("", "hal", "laba", "saddex", "afar", "shan", "lix", "toddoba", "sideed", "sagaal") Tirsi2 = Array("", "toban", "labaatan", "soddon", "afartan", "konton", "lixdan", "toddobaatan", _ "siddeetan" ", "sagaashan") Nums3 = Array("", "boqol", "laba boqol", "saddex boqol", "afar boqol", "shan boqol", "lix boqol", "toddobo boqol", _ " sideed boqol", "sagaal boqol"), tirsi4 = Array("", "kow", "laba", "saddex", "afar", "shan", "lix", "toddobo", "sideed", "sagaal". ") Nums5 = Array ("toban ", "kow iyo toban", "laba iyo toban", "saddex iyo toban", "afar iyo toban", _ "shan iyo toban", "lix iyo toban", "toddobo iyo toban", "sideed iyo toban", "sagaal iyo toban") Haddii n < = 0 Kadib SUMWRITE = "eber" Shaqada ka bixida Dhamaadka Hadii 'u qaybi nambarka lambaro adoo isticmaalaya hawsha caawiye Class ed = Class(n, 1) dec = Class(n, 2) sot = Class(n, 3) tys = Class (n, 4) dectys = Fasalka (n , 5) sottys = Fasalka(n, 6) mil = Fasalka(n, 7) decmil= Fasalka(n, 8) 'hubi malaayiin Dooro Case decmil Case 1 mil_txt = Nums5(mil) ) & "millions" GoTo www Case 2 To 9 decmil_txt = Nums2(decmil) Dhamaadka Dooro Case mil Case 1 mil_txt = Nums1(mil) & "million" Kiis 2, 3, 4 mil_txt = Nambar1(mil) & "million" Kiis 5 ilaa 20 mil_txt = Nums1(mil) & "millions" Dhamaadka Dooro www: sottys_txt = Nums3(sottys) ' check kumanaan Dooro Case dectys Case 1 tys_txt = Nums5(tys) & "kun" GoTo eee Case 2 ilaa 9 dectys_txt Nums2(dectys) Dhamaadka Dooro Case tys Case 0 Haddii dectys > 0 Markaas tys_txt = Nums4(tys) & "kun" Case 1 tys_txt = Nums4(tys) & "kun" Kiis 2, 3, 4 tys_txt = Tirada 4(tys) & "kun" Case 5 To 9 tys_txt = Nums4(tys) & "kuns" End Select If dectys = 0 And tys = 0 And sottys <> 0 Markaas sottys_txt = sottys_txt & "kun" eee: sot_txt) = Numbers3 jeeg tenens Dooro Case dec Case 1 ed_txt = Numbers5(ed) GoTo rrr Case 2 ilaa 9 dec_txt = Nums2(dec) Dhamaadka Xulo ed_txt = Nambarada1 (d) rrr: 'ku samee safka ugu dambeeya SUM IN SPEECH = decmil_ txt & mil_txt sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt Dhamaadka Function 'kaaliyaha shaqada si looga soo saaro tirada lambarrada Fasalka Shaqada Gaarka ah (M, I) Class = Int (M - (10 ^ I) * Int (M / () 10 ^ I))) / 10 ^ (I - 1)) Dhammaadka Shaqada Kaydi faylka (haddii aad haysato Excel 2007 ama 2010, markaa nooca faylka waa inuu noqdaa mid awood leh, ie xlsm format!) oo ku soo celi Excel. Hadda waxaad geli kartaa shaqada la abuuray unug kasta oo xaashida shaqada ah sida caadiga ah - iyada oo loo marayo saaxir shaqada (button) fx in bar formula, category Qeexitaanka Isticmaalaha) ama si fudud adiga oo gacanta ugu qoraya unugga oo aad ku qeexdo unugga cadadka dood ahaan:
Haddii aad u baahan tahay inaad ku darto pennies qoraalka la helay, markaa waxaad isticmaali kartaa dhismo yar oo adag:
u3d SUM IN WRITE (A3) & " xoqin. "&TEXT((A3-INTEGER(A100))*00;"XNUMX″)&"cop."
u3d SUM IN WRITE (A3) & " xoqin. "&TEXT((A3-INT(A100))*00;"XNUMX″)&"cop."
Markaa, tusaale ahaan, lambarka 35,15, natiijada shaqadu waxay u ekaan doontaa "shan iyo soddon rubles. 15 kop."
- Nooc ka xoog badan shaqada oo leh ruble iyo kopecks in / Ingiriisi oo ka socda PLEX add-on
- Waa maxay macros, meesha la geliyo macro code, sida loo isticmaalo