Ha valaha is szüksége volt szövegként kiírt szám megjelenítésére, valószínűleg felfedezte, hogy az Excel nem kínál ilyen funkciót. Ha az Excel sikertelen lesz, a hiányosság gyakran javítható VBA használatával. Íme egy SPELLDOLLARS nevű VBA-függvény, amelyet munkalapképletekben használhat.
Íme néhány példa a SPELLDOLLARS-ra.
A kód használatához nyomja le az Alt+F11 billentyűkombinációt a Visual Basic Editor aktiválásához. Ezután válassza a Beszúrás → Modul lehetőséget egy új VBA-modul beillesztéséhez. Másolja ki a kódot, és illessze be az új modulba.
Funkció SPELLDOLLARS(cella) Változatként
' Egy értéket ad vissza, szavakkal kiírva
Dim Dollars As String, Cents Mint String
Dim TextLen As Long, Pos As Long
Dim Temp As String
Dim iHundreds As Long, iTens As Long, iOnes As Long
Dim Ones As Variant, Teens As Variant, Tens As Variant
Dim Units (2–5) Karakterláncként
Dim bHit Booleanként, NegFlag Booleanként
' Nem szám, vagy üres cella?
Ha nem IsNumeric(cell) Vagy cella = "" Akkor
SPELLDOLLARS = CVERr(xlErrÉrték)
Kilépés funkció
Vége Ha
' Ez negatív?
If cell < 0="" then="" negflag="True" cell="Abs(cell)" end="" if="" dollars="Formátum(cella," "###0.00"="") textlen="Len(dollár)" -="" 3="" '="" is="" it="" too="" large?="" if="" textlen=""> 15 Ezután
SPELLDOLLARS = CVERr(xlErrNum)
Kilépés funkció
Vége Ha
Csináld a centiket
Cent = jobb (dollár, 2) és „/100 dollár”
If cell < 1="" then="" spelldollars="Cents" exit="" function="" end="" if="" dollars="Left(Dollars," textlen)="" ones="Tömb( ""," "egy",="" "kettő",="" "három",="" "négy",="" _="" "öt",="" "hat",="" "hét",="" "nyolc",="" "kilenc"="" teens="Array("Ten"," "eleven",="" "tizenkét",="" "tizenhárom",= "" "tizennégy",="" _="" "tizenöt",="" "tizenhat",="" "tizenhét",="" "tizennyolc",="" "tizenkilenc"="" tens= "Array(""," "",="" "twenty",="" "thirty",="" "negyven",="" "ötven",="" _="""hatvan",="" "hetven",="" "nyolcvan",="" "kilencven"="" units(2)=""Tezer"" units(3)=""Million"" units( 4)=""Billion"" units(5)=""Trillion"" temp="""" for="" pos="15" to="" 3="" step="" -3="" if="" textlen="">= Pos - 2 Ezután
bHit = Hamis
Ha TextLen >= Pos Akkor
iHundreds = növekvő
Ha iHundreds > 0 Akkor
Hőmérséklet = Temp & " " & Ones (iHundreds) és " Hundred"
bHit = Igaz
Vége Ha
Vége Ha
iTens = 0
iOnes = 0
Ha TextLen >= Pos - 1 Akkor
iTens = növekvő
Vége Ha
Ha TextLen >= Pos - 2 Akkor
iOnes = növekvő
Vége Ha
Ha iTens = 1 Akkor
Temp = Temp & " " & Teens (iOnes)
bHit = Igaz
Más
Ha iTens >= 2 Akkor
Hőmérséklet = Temp & " " & Tens (iTens)
bHit = Igaz
Vége Ha
Ha iOnes > 0 Akkor
Ha iTens >= 2 Akkor
Temp = hőmérséklet és "-"
Más
Temp = hőmérséklet & " "
Vége Ha
Temp = Temp & Ones (iOnes)
bHit = Igaz
Vége Ha
Vége Ha
Ha bHit And Pos > 3 Akkor
Hőmérséklet = Hőmérséklet & " " és mértékegységek (3. pozíció)
Vége Ha
Vége Ha
Következő poz
SPELLDOLLARS = Trim(Temp) & " és " & Cents
Ha NegFlag, akkor SPELLDOLLARS = "(" & SPELLDOLLARS & ")"
Funkció befejezése Lábjegyzetek és végjegyzetek létrehozása a Word 2013-ban. Részletes útmutató, hogyan készíthet különféle stílusú jegyzeteket bibliográfiai információkhoz vagy magyarázó megjegyzésekhez.
Tudjon meg mindent arról, hogyan lehet az Excelben kiemelni a statisztikailag kiugró értékeket, mégpedig egyszerű eszközökkel és módszerekkel. Kiemelt figyelmet fordítunk a kiugró értékek azonosítására és kezelésére.
Az Excel Mintavételi eszközével véletlenszerűen kiválaszthat elemeket egy adatkészletből vagy választhat minden n-edik elemet. Ismerje meg, hogyan használhatja ezt a hasznos funkciót az adatelemzéshez!
Fedezze fel a Microsoft Word 2019 legjobb trükkjeit, amelyek segítenek a hatékonyabb munkavégzésben. Tudd meg, hogyan használhatod ki a program funkcióit!
A Word 2019-ben a bekezdések igazítása és behúzása kulcsfontosságú a dokumentumok megfelelő megjelenítéséhez. Ismerje meg a formázási lehetőségeket és tippeket a hatékonyabb munkához.
Fedezze fel, hogyan használhatja az Excel 2019 Solver bővítményt a komplex problémák megoldására. A célcella, változócellák és kényszerek beállítása lépésről lépésre.
A Word lehetővé teszi dinamikus elemek hozzáadását a dokumentumhoz. Fedezze fel, hogyan lehet különböző mezőket használni a Word programban a dinamikus tartalom létrehozásához.
A SharePoint 2010 oszlopai az adatok tárolására szolgálnak. Fedezze fel a különböző oszlop típusokat és azok alkalmazását a SharePoint rendszeren belül.
A Word 2013 szövegtörlésének képessége kulcsfontosságú, legyen szó szövegalkotásról vagy törlésről. Ismerje meg a hatékony szövegtörlési módszereket!
A fotóalbum funkció a PowerPoint 2016-ban lehetővé teszi, hogy egyszerre több fényképet illesszen be egy prezentációba, megkönnyítve ezzel a többszörös képek kezelését.
