Pansipa mupeza ntchito yopangidwa ndi ogwiritsa ntchito mu VBA yomwe imamasulira nambala iliyonse kuchokera 0 mpaka 9 m’chisonyezero chake cha m’malemba, mwachitsanzo, kuchuluka kwa mawu. Musanagwiritse ntchito, ntchitoyi iyenera kuwonjezeredwa ku bukhu lanu. Za ichi:
- dinani njira yachidule ya kiyibodi ALT + F11kuti mutsegule Visual Basic Editor
- onjezani gawo latsopano lopanda kanthu kudzera pa menyu Ikani - Module
- koperani ndi kumata mawu a ntchitoyi pamenepo:
Ntchito SUM(n Monga Pawiri) Monga Chingwe Dim Nums1, Nums2, Nums3, Nums4 Monga Zosiyana Nambala1 = Gulu("", "limodzi", "ziwiri", "zitatu", "anayi", "zisanu", "zisanu ndi chimodzi", "zisanu ndi ziwiri", "zisanu ndi zitatu", "zisanu ndi zinayi") Numeri2 = Gulu ("", "khumi", "makumi awiri", "makumi atatu", "makumi anayi", "makumi asanu", "makumi asanu ndi limodzi", "makumi asanu ndi awiri", _ "makumi asanu ndi atatu ", "makumi asanu ndi anai") Nums3 = Gulu ("", "zana", "mazana awiri", "mazana atatu", "mazana anayi", "mazana asanu", "mazana asanu ndi limodzi", "mazana asanu ndi awiri", _ " mazana asanu ndi atatu", "mazana asanu ndi anayi") Numeri4 = Gulu ("", "limodzi", "ziwiri", "zitatu", "anayi", "zisanu", "zisanu ndi ziwiri", "zisanu ndi ziwiri", "zisanu ndi zitatu", "zisanu ndi zinayi". ") Nums5 = Array("khumi ", "khumi ndi chimodzi", "khumi ndi ziwiri", "khumi ndi zitatu", "khumi ndi zinayi", _ "khumi ndi zisanu", "khumi ndi zisanu ndi chimodzi", "khumi ndi zisanu ndi ziwiri", "khumi ndi zisanu ndi zitatu", "khumi ndi zisanu ndi zinayi") Ngati n < = 0 Kenako SUMWRITE = "zero" Tulukani Ntchito Mapeto Ngati 'gawani nambalayo kukhala manambala pogwiritsa ntchito wothandizira Kalasi ed = Kalasi (n, 1) dec = Kalasi(n, 2) sot = Kalasi(n, 3) tys = Kalasi (n, 4) dectys = Kalasi(n , 5) sotty = Kalasi(n, 6) mil = Kalasi(n, 7) decmil= Kalasi(n, 8) 'onani mamiliyoni Sankhani Nkhani decmil Mlandu 1 mil_txt = Nambala5(mil ) & "mamiliyoni " GoTo www Case 2 To 9 decmil_txt = Nums2(decmil) Mapeto Sankhani Sankhani Mlandu mil Mlandu 1 mil_txt = Nums1(mil) & "miliyoni" Mlandu 2, 3, 4 mil_txt = Nums1(mil) & "miliyoni" Mlandu 5 Mpaka 20 mil_txt = Nums1(mil) & "mamiliyoni" Mapeto Sankhani www: sottys_txt = Nums3(sottys) ' fufuzani zikwi Sankhani Nkhani za Dectys Mlandu 1 tys_txt = Nums5(tys) & "zikwi" GoTo eee Case 2 To txt 9 Nums2(dectys) Mapeto Sankhani Sankhani Case tys Case 0 Ngati dectys > 0 Ndiye tys_txt = Nums4(tys) & "sauzande" Mlandu 1 tys_txt = Nums4(tys) & "chikwi" Mlandu 2, 3, 4 tys_4(ty = Nums) & "sauzande " Mlandu 5 Mpaka 9 tys_txt = Nums4(tys) & "zikwi" Mapeto Sankhani Ngati dectys = 0 Ndipo tys = 0 Ndipo sottys <> 0 Ndiye sottys_txt = sottys_txt & "zikwi" eee: sot_txt = Nambala) 's3(so) fufuzani khumi Sankhani Nkhani dec Mlandu 1 ed_txt = Nums5(ed) GoTo rrr Mlandu 2 Mpaka 9 dec_txt = Nums2(dec) Mapeto Sankhani ed_txt = Nambala1 (ed) rrr: 'pangani mzere womaliza ndi SUM IN SPEECH = decmil_ txt & txt & txt sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt End Function ' ntchito yothandizira kuchotsa pa chiwerengero cha manambala Private Function Class(M, I) Class = Int(M - (10 ^ I) * Int(M / ( 10 ^ I))) / 10 ^ (I - 1)) Ntchito Yomaliza Sungani fayilo (ngati muli ndi Excel 2007 kapena 2010, ndiye kuti mtundu wa fayilo uyenera kukhala wothandizidwa ndi macro, mwachitsanzo, xlsm format!) Tsopano mutha kuyika ntchito yomwe idapangidwa mu cell iliyonse patsambalo mwachizolowezi - kudzera pa wizard yogwira ntchito (batani). fx mu bar formula, gulu Kumasulira Womasulira) kapena kungoyilemba mu selo pamanja ndikutchula selo ndi kuchuluka kwake monga mkangano:
Ngati mukufuna kuwonjezera ndalama pamawu omwe mwalandira, ndiye kuti mutha kugwiritsa ntchito zomangamanga zovuta kwambiri:
u3d SUM IN WRITE (A3) & ” rub. "&TEXT((A3-INTEGER(A100))*00;"XNUMX″)&"wapolisi."
u3d SUM IN WRITE (A3) & ” rub. "&TEXT((A3-INT(A100))*00;"XNUMX″)&"wapolisi."
Ndiye, mwachitsanzo, kwa nambala 35,15, zotsatira za ntchito zidzawoneka ngati "ma ruble makumi atatu ndi asanu. 15 kop. "
- Mtundu wamphamvu kwambiri wantchitoyo ndi ma ruble ndi kopecks mu / Chingerezi kuchokera pazowonjezera za PLEX
- Kodi macros ndi chiyani, momwe mungayikitsire macrocode, momwe mungagwiritsire ntchito