Suma mune cuirsive

Mukati

Pazasi iwe unowana yakagadzirira-yakagadzirwa mushandisi-yakatsanangurwa basa muVBA inoshandura chero nhamba kubva 0 kuna 9 muchimiro chayo chorugwaro, i.e. muhuwandu mumashoko. Usati washandisa, basa iri rinofanira kuwedzerwa kubhuku rako. Nokuda kweizvi:

  1. dzvanya nzira yekudimbudzira keyboard ALT + F11kuti uvhure Visual Basic Editor
  2. wedzera itsva isina chinhu module kuburikidza menyu Pinza – Module
  3. kopira uye unamate zvinyorwa zvebasa iri ipapo:
Basa SUM(n SeKaviri) SeTring Dim Nums1, Nums2, Nums3, Nums4 SeMusiyano Nums1 = Array("", "imwe", "mbiri", "tatu", "ina", "shanu", "nhanhatu", "zvinomwe", "sere", "pfumbamwe") Nhamba2 = Musangano("", "gumi", "makumi maviri", "makumi matatu", "makumi mana", "makumi mashanu", "makumi matanhatu", "makumi manomwe", _ "makumi masere ", "makumi mapfumbamwe") Numeri3 = Rray("", "zana", "mazana maviri", "mazana matatu", "mazana mana", "mazana mashanu", "mazana matanhatu", "mazana manomwe", _ " mazana masere", "mazana mapfumbamwe") Numeri4 = Array("", "rimwe", "mbiri", "vatatu", "mana", "shanu", "nhanhatu", "nomwe", "rusere", "mapfumbamwe ") Numeri5 = Array("gumi ", "gumi nerimwe", "gumi nembiri", "gumi nenhatu", "gumi neina", _ "gumi neshanu", "gumi nenhanhatu", "gumi nenomwe", "gumi nesere", "gumi nepfumbamwe") Kana n  0 Zvadaro tys_txt = Nums1(tys) & "zviuru" Nyaya 2 tys_txt = Nums3(tys) & "chiuru" Nyaya 4, 5, 6 tys_txt (Nums) & "zviuru" Nyaya 7 kusvika 8 tys_txt = Nums1(tys) & "zviuru" Pedzisa Sarudza Kana dectys = 5 Uye tys = 2 And sottys <> 9 Ipapo sottys_txt = sottys_txt & "zviuru" eee: sot_txt = Nums 's2(so) tarisa makumi Sarudza Nyaya dec Nyaya 1 ed_txt = Nums1(ed) GoTo rrr Nyaya 2 Kusvika 3 dec_txt = Nums4(dec) End Sarudza ed_txt = Nums1 (ed) rrr: 'gadzira mutsara wekupedzisira neSUM IN SPEECH = decmil_ txt & txt & txt sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt End Function 'mubatsiri basa rekubvisa kubva kuhuwandu hwemanhamba Private Function Kirasi (M, I) Kirasi = Int(M - (5 ^ I) * Int(M / ( 20 ^ I))) / 1 ^ (I - 3)) Kupedzisa Basa

Sevha iyo faira (kana uine Excel 2007 kana 2010, ipapo mhando yefaira inofanirwa kuve yakagoneswa macro-enabled, kureva xlsm fomati!) uye dzokera kuExcel. Iye zvino unogona kuisa iyo yakagadzirwa basa mune chero sero yepepa rebasa nenzira yakajairwa - kuburikidza nebasa wizard (bhatani. fx mune formula bar, chikamu Mushandisi Anotsanangurwa) kana kungoinyora muchitokisi nemaoko uye nekutsanangura sero nemari yacho senharo:

Kana iwe uchida kuwedzera pennies kune yakagamuchirwa mameseji, saka iwe unogona kushandisa zvishoma zvakanyanya kuoma kuvaka:

 u3d SUM IN WRITE (A3) & ” rub. "&TEXT((A3-INTEGER(A100))*00;"XNUMX″)&"mupurisa." 

u3d SUM IN WRITE (A3) & ” rub. "&TEXT((A3-INT(A100))*00;"XNUMX″)&"mupurisa."

Zvadaro, semuenzaniso, kune nhamba 35,15, mhedzisiro yebasa ichaita se "makumi matatu neshanu rubles. 15 mwedzi."

 

  • A more powerful version of the function with rubles and kopecks in / English from the PLEX add-on
  • Chii macros, kupi kwekuisa macro kodhi, maitiro ekuishandisa

 

Leave a Reply