Kui teil on kunagi olnud vaja tekstina välja kirjutatud numbrit kuvada, avastasite tõenäoliselt, et Excel sellist funktsiooni ei paku. Kui Exceli tarnimine ebaõnnestub, on sageli võimalik puudust VBA abil parandada. Siin on VBA funktsioon nimega SPELLDOLLARS , mida saate kasutada töölehe valemites.
Siin on mõned näited SPELLDOLLARSist.
Selle koodi kasutamiseks vajutage Visual Basic Editori aktiveerimiseks Alt+F11. Seejärel valige uue VBA mooduli sisestamiseks Lisa → Moodul. Kopeerige kood ja kleepige see uude moodulisse.
Funktsioon SPELLDOLLARS(lahter) Variandina
Tagastab väärtuse sõnadega
Tumedad dollarid stringina, sendid nöörina
Dim TextLen As Long, Pos As Long
Dim Temp Stringina
Dim iHundreds As Long, iTens As Long, iOnes As Long
Dim Ones as Variant, Teens as Variant, Tens as Variant
Dim Units (2 kuni 5) Stringina
Dim bHit kui Boolean, NegFlag kui Boolean
Kas see on mittearv või tühi lahter?
Kui ei oleNumeric(cell) Või lahter = "" Siis
SPELLDOLLARS = CVERr(xlErrValue)
Väljumise funktsioon
Lõpeta Kui
' Kas see on negatiivne?
Kui lahter < 0="" then="" negflag="True" cell="Abs(cell)" end="" if="" dollars="Vorming(lahter," "###0.00"="") textlen="Len(Dollars)" -="" 3="" '="" is="" it="" too="" large?="" if="" textlen=""> 15 Seejärel
SPELLDOLLARS = CVERr(xlErrNum)
Väljumise funktsioon
Lõpeta Kui
"Tehke sentide osa
Senti = parem (dollarit, 2) ja "/100 dollarit"
Kui lahter < 1="" then="" spelldollars="Senti" exit="" function="" end="" if="" dollars="Left(Dollars," textlen)="" ones="Array( ""," "üks",="" "kaks",="" "kolm",="" "neli",="" _="" "viis",="" "kuus",="" "seitse",="" "kaheksa",="" "üheksa"="" teens="Array("Kümme"," "üksteist",="" "kaksteist",="" "kolmteist",= "" "neliteist",="" _="" "fifteen",="" "sixteen",="" "seventeen",="" "kaheksateist",="" "üheksateist"="" tens= "Array(""," "",="" "twenty",="" "thirty",="" "nelikümmend",="" "viiskümmend",="" _="""kuuskümmend",="" "seventy",="" "kaheksakümmend",="" "üheksakümmend"="" units(2)=""Thousand"" units(3)=""Miljon"" units( 4)=""Miljard"" ühikut(5)=""Trillion"" temp="""" for="" pos="15" to="" 3="" step="" -3="" if="" textlen="">= Pos - 2 Siis
bHit = vale
Kui TextLen >= Pos Siis
iHundreds = Asc (keskmine $ (dollarid, tekstLen - positsioon + 1, 1)) - 48
Kui iHundreds > 0 Siis
Temp = Temp & " " & Ones (isada) & " Hundred"
bHit = Tõene
Lõpeta Kui
Lõpeta Kui
iTens = 0
iOnes = 0
Kui TextLen >= Pos - 1 Siis
iTens = Asc (keskmine $ (dollarid, tekstLen - asend + 2, 1)) - 48
Lõpeta Kui
Kui TextLen >= Pos - 2 Siis
iOnes = Asc (keskmine $ (dollarid, tekstLen - asend + 3, 1)) - 48
Lõpeta Kui
Kui iTens = 1 Siis
Temp = Temp & " " & teismelised (iOnes)
bHit = Tõene
Muidu
Kui iTens >= 2 Siis
Temp = Temp & " " & Tens(iTens)
bHit = Tõene
Lõpeta Kui
Kui iOnes > 0 Siis
Kui iTens >= 2 Siis
Temp = Temp & "-"
Muidu
Temp = Temp & " "
Lõpeta Kui
Temp = Temp & Ones (iOnes)
bHit = Tõene
Lõpeta Kui
Lõpeta Kui
Kui bHit ja Pos > 3, siis
Temp = Temp & " " & ühikud (positsioon 3)
Lõpeta Kui
Lõpeta Kui
Järgmine pos
SPELLDOLLARS = Trim (Temp) & " ja " & Cents
Kui NegFlag, siis SPELLDOLLARS = "(" & SPELLDOLLARS & ")"
Lõpetamisfunktsioon Uurige kümmet nõuannet Microsoft Teamsiga parema koosolekukogemuse saamiseks, sealhulgas märkmete tegemine, tausta hägustamine, vaigistamine ja koosolekute salvestamine.
Lühikeses Word 2013 dokumendis saate kommentaare hõlpsalt sirvida ja uurida. Siit leiate samm-sammult, kuidas kommentaare lugeda ja eemaldada.
Mõnikord varitseb kurjus selles, mis peaks olema Word 2016 peamises mõistlikkuse hoidlas: tavalises mallifailis. Õpi, kuidas taastada normaalne mall ja eemaldada probleemid.
Kuidas lisada lõigu taane Word 2013-s, et luua selgem ja professionaalsem ilme. Meie juhend aitab sul lihtsasti navigeerida Wordi funktsioonide kaudu ja tutvustab esimeses reas taande ning rippuva taande lisamise viise.
Lisaks kuuele kiirtoimingule, mis kuvatakse Outlooki esmakordsel installimisel, on teil valida veelgi rohkemate Quick Step mallide hulgast.
Kui olete esitluse ajal PowerPointi slaididele joonistamiseks kasutanud pliiatsit või markerit, saate joonised järgmise esitluse jaoks salvestada või need kustutada, nii et järgmisel näitamisel alustate puhaste PowerPointi slaididega. Pliiatsi ja markeri jooniste kustutamiseks järgige neid juhiseid: joonte kustutamine […]
Style'i teek sisaldab CSS-faile, XSL-faile ja eelmääratletud mallilehtede, lehepaigutuste ja juhtelementide poolt kasutatavaid pilte rakenduses SharePoint 2010. CSS-failide leidmiseks avaldamissaidi stiiliteegist: valige saidi toimingud → vaade. Kogu saidi sisu. Ilmub saidi sisu. Style raamatukogu asub […]
Ärge uputage oma publikut tohutute numbritega. Microsoft Excelis saate parandada oma armatuurlaudade ja aruannete loetavust, vormindades numbrid tuhandetes või miljonites.
Siit saate teada, kuidas kasutada SharePointi suhtlusvõrgustiku tööriistu, mis võimaldavad üksikisikutel ja rühmadel suhelda, koostööd teha, jagada ja ühendada.
Julia kuupäevi kasutatakse tootmiskeskkondades sageli ajatemplina ja partiinumbri kiirviitena. Seda tüüpi kuupäevade kodeerimine võimaldab jaemüüjatel, tarbijatel ja teenindusagentidel tuvastada toote valmistamise aja ja seega toote vanuse. Juliuse kuupäevi kasutatakse ka programmeerimises, sõjaväes ja astronoomias. Erinevad […]
