N'okpuru ebe a, ị ga-ahụ ọrụ akọwapụtara nke ọma na VBA nke na-atụgharị nọmba ọ bụla si 0 ka 9 n'ime nnochite anya ederede ya, ya bụ n'ọnụego dị n'okwu. Tupu ojiji, a ga-atụkwasịrịrị ọrụ a n'akwụkwọ gị. Maka nke a:
- pịa ụzọ mkpirisi ahụigodo ALT+F11imeghe Visual Basic Editor
- tinye ọhụrụ efu modul site menu Fanye – Modul
- detuo ma mado ederede ọrụ a ebe ahụ:
Ọrụ SUM(n dị ka okpukpu abụọ) Dị ka eriri Dim Nums1, Nums2, Nums3, Nums4 Dị ka Ụdị Ọnụọgụ1 = Array("", "otu", "abụọ", "atọ", "anọ", "ise", "isi" "asaa", "asato", "iteghete") Ọnụọgụ2 = Array("", "iri", "iri abụọ", "iri atọ", "iri anọ", "iri ise", "iri isii", "iri asaa", _ "iri asatọ" ", "iri itoolu") Ọnụọgụ3 = Array("", "otu narị", "narị abụọ", "narị atọ", "narị anọ", "narị ise", "narị isii", "narị asaa", _ " narị asatọ", "narị itoolu") Ọnụọgụ4 = Array("", "otu", "abụọ", "atọ", "anọ", "ise", "isi", "asaa", "asatọ", "iteghete". ") Ọnụọgụ5 = Array ("iri " , "iri na otu", "iri na abụọ", "iri na atọ", "iri na anọ", _ "iri na ise", "iri na isii", "iri na asaa", "iri na asatọ", "iri na itoolu") Ọ bụrụ n < = 0 Mgbe ahụ SUMWRITE = "efu" Nkwụsị ọrụ ọpụpụ Ọ bụrụ na 'kewaa nọmba n'ime ọnụọgụ site na iji ọrụ enyemaka Klas ed = Klas (n, 1) dec = Klas (n, 2) sot = Klas (n, 3) tys = Klas (n, 4) dectys = Klas (n , 5) sottys = Klas (n, 6) mil = Klas(n, 7) decmil= Klas(n, 8) 'lelee nde mmadụ Họrọ Case decmil Case 1 mil_txt = Nums5(mil) ) & "millions" GoTo www Case 2 ruo 9 decmil_txt = Nums2(decmil) Ọgwụgwụ Họrọ Họrọ Case mil Case 1 mil_txt = Nums1(mil) & "million" Case 2, 3, 4 mil_txt = Nums1(mil) & "million" Ikpe 5 ruo 20 mil_txt = Nums1(mil) & " nde mmadụ " Ọgwụgwụ Họrọ www: sottys_txt = Nums3(sottys) ' lelee puku kwuru puku ikpe dectys Case 1 tys_txt = Nums5(tys) & " puku kwuru puku "GoTo eee Case = 2 ruo 9 dectys_txt Nums2(dectys) Ọgwụgwụ Họrọ Nhọrọ Case tys Case 0 Ọ bụrụ dectys > 0 Mgbe ahụ tys_txt = Nums4(tys) & "puku" Ikpe 1 tys_txt = Nums4(tys) & "puku" Ikpe 2, 3, 4 tys_txt = Ọnụọgụ4(tys) & "thousands " Case 5 To 9 tys_txt = Nums4(tys) & "thousands" Ọgwụgwụ Họrọ Ọ bụrụ dectys = 0 And tys = 0 And sottys <> 0 Mgbe ahụ sottys_txt = sottys_txt & "puku" eee: sot_txt) = 'Nums3(sot) lelee tens Họrọ Case dec Case 1 ed_txt = Ọnụọgụ5(ed) GoTo rrr Case 2 ruo 9 dec_txt = Nums2(dec) Ọgwụgwụ Họrọ ed_txt = Ọnụọgụ1 (ed) rrr: 'depụta ahịrị ikpeazụ na SUM IN SPEECH = decmil_ txt & mil_txt sottys_txt & dectys_txt & tys_txt & sot_txt & Dec_txt & ed_txt Ọgwụgwụ Ọrụ 'enyere aka wepụ si na ọnụ ọgụgụ nke digits Private Function Class (M, I) Klas = Int (M - (10 ^ I) * Int (M / () 10 ^ I))) / 10 ^ (I - 1)) Ọrụ Ọgwụgwụ Chekwaa faịlụ (ọ bụrụ na ị nwere Excel 2007 ma ọ bụ 2010, mgbe ahụ, ụdị faịlụ ahụ ga-abụrịrị macro-enabled, ntụgharị xlsm usoro!) ma laghachi na Excel. Ugbu a ị nwere ike itinye ọrụ emepụta n'ime cell ọ bụla nke akwụkwọ ọrụ ahụ n'ụzọ a na-emekarị - site na ọkachamara ọrụ (bọtịnụ). fx na usoro mmanya, Atiya Akọwapụtara Onye Ọrụ) ma ọ bụ naanị site n'iji aka tinye ya na cell ma kọwaa cell na ọnụọgụ ya dị ka arụmụka:
Ọ bụrụ na ịchọrọ ịgbakwunye pennies na ederede enwetara, mgbe ahụ ị nwere ike iji ihe owuwu dị ntakịrị mgbagwoju anya:
u3d SUM NA WRITE (A3) & ” rub. "&TEXT((A3-INTEGER(A100))*00;"XNUMX″)&"cop."
u3d SUM NA WRITE (A3) & ” rub. "&TEXT((A3-INT(A100))*00;"XNUMX″)&"cop."
Mgbe ahụ, dịka ọmụmaatụ, maka nọmba 35,15, nsonaazụ nke ọrụ ahụ ga-adị ka "iri atọ na ise rubles. 15 kop."
- A more powerful version of the function with rubles and kopecks in / English from the PLEX add-on
- Kedu ihe bụ macros, ebe itinye koodu macro, otu esi eji ha