Če ste kdaj morali prikazati številko, zapisano kot besedilo, ste verjetno odkrili, da Excel ne ponuja takšne funkcije. Ko Excel ne uspe, je pogosto mogoče odpraviti pomanjkljivost z uporabo VBA. Tukaj je funkcija VBA, imenovana SPELLDOLLARS , ki jo lahko uporabite v formulah delovnega lista.
Tukaj je nekaj primerov SPELLDOLLARS.
Če želite uporabiti to kodo, pritisnite Alt+F11, da aktivirate urejevalnik Visual Basic. Nato izberite Vstavi → Modul, da vstavite nov modul VBA. Kopirajte kodo in jo prilepite v nov modul.
Funkcija SPELLDOLLARS(celica) kot različica
« Vrne vrednost, napisano z besedami
Dim Dollars As String, Cents As String
Dim TextLen As Long, Pos As Long
Dim Temp kot niz
Dim iHundreds As Long, iTens As Long, iOnes As Long
Dim Ones As Variant, Teens As Variant, Tens As Variant
Dim Units (2 do 5) kot niz
Dim bHit kot Boolean, NegFlag kot Boolean
' Ali je celica brez števila ali prazna?
Če ni, je številska(celica) ali celica = ““ Potem
SPELLDOLLARS = CVERr(xlErrValue)
Izhodna funkcija
Konec Če
' Je negativno?
Če je celica < 0="" then="" negflag="True" cell="Abs(cell)" end="" if="" dollars="Format(cell," “###0.00”)="" textlen="Len(Dollars)" -="" 3="" '="" is="" it="" too="" large?="" if="" textlen=""> 15 Potem
SPELLDOLLARS = CVERr(xlErrNum)
Izhodna funkcija
Konec Če
' Naredite del centov
Centi = desno (dolarja, 2) & “/100 dolarjev”
Če je celica < 1="" then="" spelldollars="Cents" exit="" function="" end="" if="" dollars="Left(Dollars," textlen)="" ones="Array( ““," “en”,="" "dva",="" "trije",="" "štiri",="" _="" "pet",="" "šest",="" "sedem",="" "osem",="" "devet")="" teens="Array("Deset"," "enajst",="" "dvanajst",="" "trinajst",= "" "štirinajst",="" _="" "petnajst",="" "šestnajst",="" "sedemnajst",="" "osemnajst",="" "devetnajst")="" desetice= "Matrika("“," "“,="" "dvajset",="" "trideset",="" "štirideset",="" "petdeset",="" _=""“šestdeset”,="" "sedemdeset",="" "osemdeset",="" "devetdeset")="" enote(2)=""Tisoč"" enot(3)=""Milijon"" enot( 4)=""Billion"" units(5)=""Bilijon"" temp="""" for="" pos="15" to="" 3="" step="" -3="" if="" textlen="">= Pos - 2 Nato
bHit = False
Če TextLen >= Pos Potem
iHundreds = Asc(Mid$(Dollars, TextLen - Pos + 1, 1)) - 48
Če je iHundreds > 0 Potem
Temp = Temp & “ “ & Ones (iHundreds) & “ Hundred”
bHit = Res
Konec Če
Konec Če
iTens = 0
iOnes = 0
Če TextLen >= Pos - 1 Potem
iTens = Asc(Mid$(Dollars, TextLen - Pos + 2, 1)) - 48
Konec Če
Če je TextLen >= Pos - 2 Potem
iOnes = Asc(Mid$(Dollars, TextLen - Pos + 3, 1)) - 48
Konec Če
Če je iTens = 1 Potem
Temp = Temp & “ “ & Teens (iOnes)
bHit = Res
Drugače
Če je iTens >= 2 Potem
Temp = Temp & “ “ & Tens (iTens)
bHit = Res
Konec Če
Če je iOnes > 0 Potem
Če je iTens >= 2 Potem
Temp = Temp & “-”
Drugače
Temp = Temp & “ “
Konec Če
Temp = Temp & Ones (iOnes)
bHit = Res
Konec Če
Konec Če
Če je bHit In Pos > 3 Potem
Temp = Temp & “ “ & enote (Poz 3)
Konec Če
Konec Če
Naslednja poz
SPELLDOLLARS = Trim(Temp) & “ in “ & Cents
Če NegFlag potem SPELLDOLLARS = “(“ & SPELLDOLLARS & “)”
Končna funkcija
Kako preprečiti, da Microsoft Word odpira datoteke v načinu samo za branje v sistemu Windows Microsoft Word odpira datoteke v načinu samo za branje, zaradi česar jih je nemogoče urejati? Ne skrbite, metode so spodaj
Kako odpraviti napake pri tiskanju nepravilnih dokumentov Microsoft Word Napake pri tiskanju dokumentov Word s spremenjeno pisavo, neurejenimi odstavki, manjkajočim besedilom ali izgubljeno vsebino so precej pogoste. Vendar pa ne
Če ste med predstavitvijo uporabili pero ali označevalnik za risanje po diapozitivih PowerPoint, lahko risbe shranite za naslednjo predstavitev ali jih izbrišete, tako da boste naslednjič, ko ga pokažete, začeli s čistimi PowerPointovimi diapozitivi. Sledite tem navodilom za brisanje risb s peresom in označevalnikom: Brisanje črt ena na […]
Knjižnica slogov vsebuje datoteke CSS, datoteke Extensible Stylesheet Language (XSL) in slike, ki jih uporabljajo vnaprej določene glavne strani, postavitve strani in kontrolniki v SharePointu 2010. Če želite poiskati datoteke CSS v knjižnici slogov na založniškem mestu: Izberite Dejanja mesta→ Pogled Vsa vsebina spletnega mesta. Prikaže se vsebina spletnega mesta. Knjižnica Style se nahaja v […]
Ne preobremenjujte občinstva z ogromnimi številkami. V Microsoft Excelu lahko izboljšate berljivost svojih nadzornih plošč in poročil tako, da oblikujete svoje številke tako, da se prikažejo v tisočih ali milijonih.
Naučite se uporabljati SharePointova orodja za socialno mreženje, ki posameznikom in skupinam omogočajo komunikacijo, sodelovanje, skupno rabo in povezovanje.
Julijanski datumi se v proizvodnih okoljih pogosto uporabljajo kot časovni žig in hitra referenca za številko serije. Ta vrsta datumskega kodiranja omogoča trgovcem na drobno, potrošnikom in servisnim agentom, da ugotovijo, kdaj je bil izdelek izdelan in s tem starost izdelka. Julijanski datumi se uporabljajo tudi v programiranju, vojski in astronomiji. Drugačen […]
Spletno aplikacijo lahko ustvarite v Accessu 2016. Kaj je torej spletna aplikacija? No, splet pomeni, da je na spletu, aplikacija pa je le okrajšava za »aplikacijo«. Spletna aplikacija po meri je spletna aplikacija baze podatkov, do katere dostopate iz oblaka z uporabo brskalnika. Spletno aplikacijo gradite in vzdržujete v namizni različici […]
Večina strani v SharePointu 2010 prikaže seznam navigacijskih povezav v vrstici za hitri zagon na levi strani strani. Vrstica za hitri zagon prikazuje povezave do predstavljene vsebine spletnega mesta, kot so seznami, knjižnice, spletna mesta in strani za objavljanje. Vrstica za hitri zagon vključuje dve zelo pomembni povezavi: Povezava do vse vsebine spletnega mesta: […]
Pri preprostih težavah reševalec v Excelu običajno hitro najde optimalne vrednosti spremenljivke reševalca za ciljno funkcijo. Toda v nekaterih primerih ima Solver težave pri iskanju vrednosti spremenljivke Solver, ki optimizirajo ciljno funkcijo. V teh primerih Solver običajno prikaže sporočilo ali sporočilo o napaki, ki opisuje ali razpravlja o težavi, ki […]
