Suma cuirsiboan

Jarraian, erabiltzaileak zehaztutako edozein zenbaki itzultzen duen VBAn prest egindako funtzio bat aurkituko duzu tik 0 9 bere testu-errepresentazioan, hots, hitzetan zenbatekoan. Erabili aurretik, funtzio hau zure liburuan gehitu behar da. Honetarako:

1. sakatu teklatuko lasterbidea ALT + F11Visual Basic editorea irekitzeko
2. gehitu modulu huts berria menuaren bidez Txertatu – Modulua
3. kopiatu eta itsatsi funtzio honen testua bertan:

Funtzioa SUM(n Bikoitza gisa) Katea Dim Zenbakiak1, Zenbakiak2, Zenbakiak3, Zenbakiak4 Aldaera gisa Zenbakiak1 = Array("", "bat", "bi", "hiru", "lau", "bost", "sei", "zazpi", "zortzi", "bederatzi") Nums2 = Array ("", "hamar", "hogei", "hogeita hamar", "berrogei", "berrogeita hamar", "hirurogei", "hirurogeita hamar", _ "laurogei" ", "laurogeita hamar") Nums3 = Array ("", "ehun", "berrehun", "hirurehun", "laurehun", "bostehun", "seiehun", "zazpiehun", _ " zortziehun", "bederatzi ehun") Nums4 = Array ("", "bat", "bi", "hiru", "lau", "bost", "sei", "zazpi", "zortzi", "bederatzi" ") Zenbakiak5 = Array ("hamar " , "hamaika", "hamabi", "hamairu", "hamalau", _ "hamabost", "hamasei", "hamazazpi", "hemezortzi", "hemeretzi") bada n < = 0 Orduan SUMWRITE = "zero" Irten Funtzioa Amaiera bada ' zatitu zenbakia zifratan laguntza-funtzioa erabiliz Class ed = Class (n, 1) dec = Class (n, 2) sot = Class (n, 3) tys = Class (n, 4) dectys = Class (n , 5) sottys = Class (n, 6) mil = Class (n, 7) decmil= Class (n, 8) 'check million Hautatu Case decmil Case 1 mil_txt = Nums5(mil ) & "milioika " Joan hona www 2. kasutik 9ra decmil_txt = Zenbakiak2(decmil) Amaiera Hautatu Aukeratu mil kasua 1. kasua mil_txt = Zenbakiak1(mil) & "milioi " 2, 3, 4 kasua mil_txt = Zenbakiak1 (mil) & "milioi" kasua 5etik 20ra mil_txt = Zenbakiak1(mil) & "milioiak " Amaiera Hautatu www: sottys_txt = Zenbakiak3(sottys) ' egiaztatu milaka. Hautatu kasua dectys 1. kasua tys_txt = Zenbakiak5(tys) & "milaka" Joan eee 2tik 9ra. kasua dectys_txtd = Zenbakiak Amaiera Hautatu Aukeratu tys Kasua 2 Kasua dectys > 0 Orduan tys_txt = Zenbakiak0(tys) & "milaka" 4. kasua tys_txt = Zenbakiak1(tys) & "mila" Kasua 4, 2, 3 tys_txt = Zenbakiak4(tys) & "thousand Case 4 To 5 tys_txt = Nums9(tys) & "milaka" Amaiera Hautatu dectys = 4 Eta tys = 0 Eta sottys <> 0 Orduan sottys_txt = sottys_txt & "milaka" eee: sot_txt = Nums0 (sot) Hautatu dec Case 3 ed_txt = Nums1(ed) GoTo rrr Case 5 To 2 dec_txt = Nums9(dec) End Hautatu ed_txt = Nums2 (ed) rrr: 'osatu azken errenkada SUM IN SPEECH = decmil_ txt & mil_txt_ & sottx_ dec_txt tys_txt & sot_txt & dec_txt & ed_txt End Fu nction ' funtzio laguntzailea zifra kopurutik ateratzeko Funtzio pribatua Klase (M, I) Klase = Int (Int (M - (1 ^ I) * Int (M / (10 ^ I))) / 10 ^ (I - 10)) Amaiera funtzioa    

Gorde fitxategia (Excel 2007 edo 2010 baduzu, fitxategi motak makro-gaituta egon behar du, hau da, xlsm formatua!) eta itzuli Excel-era. Orain sortutako funtzioa lan-orriko edozein gelaxkatan txerta dezakezu ohiko moduan - funtzio morroiaren bidez (botoia f_x formula barran, kategorian Erabiltzaileak definitutakoa) edo, besterik gabe, gelaxkan eskuz idatziz eta gelaxka zenbatekoarekin argumentu gisa zehaztuz:

Jasotako testuari zentimoak gehitu behar badituzu, eraikuntza apur bat konplexuagoa erabil dezakezu:

 u3d BURUA IDAZTEZ (A3) & ” igurtzi. “&TEXT((A3-INTEGER(A100))*00;”XNUMX″)&”cop.” 

u3d BURUA IDAZTEZ (A3) & ” igurtzi. “&TEXT((A3-INT(A100))*00;”XNUMX″)&”cop.”

Orduan, adibidez, 35,15 zenbakiari dagokionez, funtzioaren emaitza "hogeita hamabost errublo" izango da. 15 kop.”

• Funtzioaren bertsio indartsuagoa errublo eta kopekekin / ingelesez PLEX gehigarritik
• Zer dira makroak, non sartu makro-kodea, nola erabili