Suma ann an cuirsive

Gu h-ìosal lorgaidh tu gnìomh deiseil a tha air a mhìneachadh le neach-cleachdaidh ann an VBA a bhios ag eadar-theangachadh àireamh sam bith bho 0 gu 9 a-steach don riochdachadh teacsa aige, ie anns an t-suim ann am faclan. Mus tèid a chleachdadh, feumar an gnìomh seo a chur ris an leabhar agad. Airson seo:

1. brùth air ath-ghoirid a’ mheur-chlàir ALT + F11gus an deasaiche lèirsinneach bunaiteach fhosgladh
2. cuir modal falamh ùr ris tron ​​chlàr Cuir a-steach - modal
3. dèan lethbhreac agus pasg air teacsa a’ ghnìomh seo an sin:

Gnìomh SUM(n Mar dùbailte) Mar sreang Dim Nums1, Nums2, Nums3, Nums4 Mar Variant Nums1 = Array ("", "aon", "dà", "trì", "ceithir", "còig", "sia", "seachd", "ochd", "nine") Nums2 = Array ("", "deich", "fichead", "trithead", "ceathrad", "caogad", "seasgad", "seachdad", _ "ochdad ", "ninety") Nums3 = Array ("", "ceud", "dà cheud", "trì cheud", "ceithir cheud", "còig ceud", "sia ceud", "seachd ceud", _ " ochd ceud", "naoi ceud") Nums4 = Array ("", "aon", "dà", "trì", "ceithir", "còig", "sia", "seachd", "ochd", "naoi ") Nums5 = Array ("deich", "aon-deug", "dusan", "trì-deug", "ceithir-deug", _ "còig-deug", "sia-deug", "seachd-deug", "ochd-deug", "nine-deug") Ma n < = 0 An uairsin SUMWRITE = Deireadh gnìomh fàgail "neoni" Ma 'roinn an àireamh ann an àireamhan a' cleachdadh gnìomh an cuideachaidh Clas ed = Clas(n, 1) dec = Clas(n, 2) sot = Clas(n, 3) tys = Clas (n, 4) dectys = Clas (n , 5) sottys = Clas (n, 6) mil = Clas (n, 7) decmil = Clas(n, 8) 'thoir sùil air milleanan Tagh Cùis decmil Cùis 1 mil_txt = Àireamhan 5 (mil ) & "milleanan" GoTo www Cùis 2 Gu 9 decmil_txt = Nums2(decmil) Crìoch Tagh Tagh Cùis mil Cùis 1 mil_txt = Àireamhan 1 (mil) & " millean " Cùis 2, 3, 4 mil_txt = Àireamhan 1 (mil) & "millean" Cùis 5 Gu 20 mil_txt = Nums1(mil) & "milleanan" Deireadh Tagh www: sottys_txt = Nums3(sottys) 'thoir sùil air na mìltean Tagh Cùis dectys Cùis 1 tys_txt = Nums5(tys) & "mìltean" GoTo eee Case 2 To 9 dectys_txt = Nums2(dectys) Crìoch Tagh Tagh Cùis Tys Cùis 0 Ma dh’ fhalbhas > 0 An uairsin tys_txt = Nums4(tys) & “miles” Cùis 1 tys_txt = Nums4(tys) & “mil” Cùis 2, 3, 4 tys_txt = Nums4(tys) & "mìltean" Cùis 5 Gu 9 tys_txt = Nums4(tys) & "mìltean" Deireadh Tagh Ma tha dectys = 0 Agus tys = 0 Agus sottys <> 0 An uairsin sottys_txt = sottys_txt & "mìltean" eee: sot_txt = Nums3(sot) ' thoir sùil air na deichean Tagh Cùis dec Cùis 1 ed_txt = Num5(ed) GoTo rrr Cùis 2 Gu 9 dec_txt = Àireamhan 2(dec) Deireadh Tagh ed_txt = Àireamhan1 (ed) rrr: 'cruthaich an sreath mu dheireadh le SUM IN SPEECH = decmil_ txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt gnìomh cuideachaidh gnìomh crìochnachaidh 'gnìomh cuideachaidh gus toirt a-mach às an àireamh de dh’ àireamhan de dh’ dh’ obair phrìobhaideach Clas (M, I) Clas = Int(Int(M - (10 ^ I)) * Int(M / ( 10 ^ I))) / 10 ^ (I - 1)) Gnìomh Deireannach    

Sàbhail am faidhle (ma tha Excel 2007 no 2010 agad, feumaidh an seòrsa faidhle a bhith air a chomasachadh le macro, ie cruth xlsm!) agus till air ais gu Excel. A-nis faodaidh tu an gnìomh cruthaichte a chuir a-steach do chealla sam bith den duilleag-obrach san dòigh àbhaisteach - tron ​​​​draoidh gnìomh (putan f_x ann am barra foirmle, roinn-seòrsa Cleachdaiche air a mhìneachadh) no dìreach le bhith ga thaidhpeadh sa chill le làimh agus a’ sònrachadh a’ chill leis an t-suim mar argamaid:

Ma dh'fheumas tu sgillinn a chur ris an teacsa a fhuair thu, faodaidh tu togail beagan nas iom-fhillte a chleachdadh:

 u3d SUM ANN AN SGRÌOBH (A3) & ” rub. “&TEXT((A3-INTEGER(A100))*00;”XNUMX″)&”cop.” 

u3d SUM ANN AN SGRÌOBH (A3) & ” rub. “&TEXT((A3-INT(A100))*00;”XNUMX″)&”cop.”

An uairsin, mar eisimpleir, airson an àireamh 35,15, bidh toradh a 'ghnìomh coltach ri "trithead' s a còig rubles. 15 cop.”

• Tionndadh nas cumhachdaiche den ghnìomh le rubles agus kopecks ann an / Beurla bhon tuilleadan PLEX
• Dè a th’ ann am macros, càite an cuir thu a-steach còd macro, mar a chleachdas tu iad