Ef þú hefur einhvern tíma þurft að birta tölu sem er skrifaður sem texti, hefur þú líklega uppgötvað að Excel býður ekki upp á slíka aðgerð. Þegar Excel skilar ekki, er oft hægt að leiðrétta skortinn með því að nota VBA. Hér er VBA fall, sem heitir SPELLDOLLARS , sem þú getur notað í formúlur vinnublaða.
Hér eru nokkur dæmi um SPELLDOLLARS.
Til að nota þennan kóða, ýttu á Alt+F11 til að virkja Visual Basic Editor. Veldu síðan Insert → Module til að setja inn nýja VBA einingu. Afritaðu kóðann og límdu hann inn í nýju eininguna.
Virka SPELLDOLLARS(reitur) Sem afbrigði
' Skilar gildi, stafsett með orðum
Dimmt dollarar sem strengur, sent sem strengur
Dimma TextLen eins lengi, pos eins lengi
Dim Temp As String
Dimma iHundreds As Long, iTens As Long, iOnes As Long
Dimir eins og afbrigði, unglingar sem afbrigði, tíu sem afbrigði
Dimma einingar (2 til 5) sem strengur
Dim bHit Sem Boolean, NegFlag Sem Boolean
' Er það ónúmer eða tómt hólf?
Ef ekki IsNumeric(cell) Eða reit = ““ Þá
SPELLDOLLARS = CVErr(xlErrValue)
Hætta aðgerð
End If
„Er það neikvætt?
Ef reit < 0="" then="" negflag="True" cell="Abs(cell)" end="" if="" dollars="Format(cell," “###0.00”)="" textlen="Len(dollarar)" -="" 3="" '="" is="" it="" too="" large?="" if="" textlen=""> 15 Þá
SPELLDOLLARS = CVErr(xlErrNum)
Hætta aðgerð
End If
' Gerðu sent hlutinn
Cent = Rétt (Dollarar, 2) & "/100 Dollars"
If cell < 1="" then="" spelldollars="Cents" exit="" function="" end="" if="" dollars="Left(Dollars," textlen)="" ones="Array( ““,” “einn”,="" "tveir",="" "þrír",="" "fjórir",="" _="" "fimm",="" "sex",="" "sjö",="" "átta",="" "níu")="" teens="Array("Tíu"," "ellefu",="" "tólf",="" "þrettán",= "" "fjórtán",="" _="" "fimmtán",="" "sextán",="" "sjötján",="" "átján",="" "nítján")="" tugir= "Array(““," ““,="" "tuttugu",="" "þrjátíu",="" "fjörutíu",="" "fimmtíu",="" _=""“sextíu”,="" "sjötíu",="" "átta",="" "níutíu")="" einingar(2)=""Þúsund"" einingar(3)=""Milljón"" einingar( 4)="“Billion”" units(5)="“Trillion”" temp="““" for="" pos="15" to="" 3="" step="" -3="" if="" textlen="">= Pos - 2 Þá
bHit = Rangt
Ef TextLen >= Pos Þá
iHundreds = Asc(Mið$(Dollarar, TextLen - Pos + 1, 1)) - 48
Ef iHundreds > 0 Þá
Temp = Temp & “ “ & Ones(iHundreds) & “ Hundred”
bHit = satt
End If
End If
íTens = 0
iOnes = 0
Ef TextLen >= Pos - 1 Þá
iTens = Asc(Mid$(Dollarar, TextLen - Pos + 2, 1)) - 48
End If
Ef TextLen >= Pos - 2 Þá
iOnes = Asc(Mið$(Dollarar, TextLen - Pos + 3, 1)) - 48
End If
Ef iTens = 1 þá
Temp = Temp & “ “ & Teens(iOnes)
bHit = satt
Annar
Ef iTens >= 2 Þá
Temp = Temp & “ “ & Tens(iTens)
bHit = satt
End If
Ef iOnes > 0 Þá
Ef iTens >= 2 Þá
Hitastig = Temp & “-”
Annar
Temp = Temp & “ “
End If
Temp = Temp & Ones(iOnes)
bHit = satt
End If
End If
Ef bHit Og Pos > 3 Þá
Temp = Temp & “ “ & Units(Pos 3)
End If
End If
Næsta Pos
SPELLDOLLARS = Trim(Temp) & “ og “ & Cents
Ef NegFlag Þá SPELLDOLLARS = “(“ & SPELLDOLLARS & “)”
Lokaaðgerð Fyrir þá sem vilja læra um aðferðir eins og <strong>ROUND</strong>, <strong>ROUNDUP</strong> og <strong>ROUNDDOWN</strong> í Excel 2007, skoðaðu þessa skref-fyrir-skref leiðbeiningu um hvernig á að rúnna tölur á réttan hátt.
Hvernig á að koma í veg fyrir að Microsoft Word opni skrár í skrifvarandi ham á Windows. Microsoft Word opnar skrár í skrifvarandi ham, sem gerir það ómögulegt að breyta þeim? Ekki hafa áhyggjur, aðferðirnar eru hér að neðan
Hvernig á að laga villur við prentun á röngum Microsoft Word skjölum Villur við prentun Word skjala með breyttu letri, sóðalegar málsgreinar, texta sem vantar eða glatað efni eru nokkuð algengar. Hins vegar ekki
Ef þú hefur notað pennann eða hápunktarann til að teikna á PowerPoint glærurnar þínar meðan á kynningu stendur geturðu vistað teikningarnar fyrir næstu kynningu eða eytt þeim út svo næst þegar þú sýnir þær byrjarðu á hreinum PowerPoint glærum. Fylgdu þessum leiðbeiningum til að eyða penna- og auðkenningarteikningum: Að eyða línum einni á […]
Stílsafnið inniheldur CSS skrár, Extensible Stylesheet Language (XSL) skrár og myndir sem notaðar eru af fyrirfram skilgreindum aðalsíðum, síðuuppsetningum og stjórntækjum í SharePoint 2010. Til að finna CSS skrár í stílasafni útgáfusíðunnar: Veldu Site Actions→ View Allt efni á síðunni. Innihald síðunnar birtist. Style bókasafnið er staðsett í […]
Ekki yfirgnæfa áhorfendur með stórkostlegum tölum. Í Microsoft Excel geturðu bætt læsileika mælaborða og skýrslna með því að forsníða tölurnar þínar þannig að þær birtast í þúsundum eða milljónum.
Lærðu hvernig á að nota SharePoints samfélagsnetverkfæri sem gera einstaklingum og hópum kleift að eiga samskipti, vinna saman, deila og tengjast.
Julian dagsetningar eru oft notaðar í framleiðsluumhverfi sem tímastimpill og fljótleg tilvísun fyrir lotunúmer. Þessi tegund af dagsetningarkóðun gerir söluaðilum, neytendum og þjónustuaðilum kleift að bera kennsl á hvenær vara var framleidd og þar með aldur vörunnar. Julian dagsetningar eru einnig notaðar í forritun, hernum og stjörnufræði. Mismunandi […]
Þú getur búið til vefforrit í Access 2016. Svo hvað er vefforrit eiginlega? Jæja, vefurinn þýðir að hann er á netinu og app er bara stytting fyrir „umsókn“. Sérsniðið vefforrit er gagnagrunnsforrit á netinu sem hægt er að nálgast úr skýinu með vafra. Þú smíðar og viðheldur vefforritinu í skrifborðsútgáfunni […]
Flestar síður í SharePoint 2010 sýna lista yfir flakktengla á flýtiræsingarstikunni vinstra megin á síðunni. Flýtiræsingarstikan sýnir tengla á innihaldsefni vefsvæða eins og lista, bókasöfn, síður og útgáfusíður. Flýtiræsingarstikan inniheldur tvo mjög mikilvæga tengla: Tengill á allt efni vefsvæðis: […]
