Select Case uppbyggingin er gagnleg VBA uppbygging fyrir ákvarðanir sem fela í sér þrjá eða fleiri valkosti í Excel 2016 (þótt það virki líka með tveimur valkostum, sem veitir val til Ef-Þá-Else uppbyggingu).
Eftirfarandi dæmi sýnir hvernig á að nota Select Case uppbyggingu:
Undirsýningafsláttur3()
Dimmt magn eins lengi
Dimm afsláttur sem tvöfaldur
Magn = InputBox(“Sláðu inn magn: “)
Veldu Málsmagn
Mál 0 til 24
Afsláttur = 0,1
Mál 25 til 49
Afsláttur = 0,15
Mál 50 til 74
Afsláttur = 0,2
Mál er >= 75
Afsláttur = 0,25
Endurval
MsgBox “Afsláttur: “ & Afsláttur
End Sub
Í þessu dæmi er verið að meta magnbreytuna. Venjulega athugar fjórar mismunandi tilvik (0–24, 25–49, 50–74 og 75 eða fleiri).
Hvaða fjöldi fullyrðinga sem er getur fylgt hverri málsyfirlýsingu og þær eru allar framkvæmdar ef málið er satt. Ef þú notar aðeins eina setningu, eins og í þessu dæmi, geturðu sett setninguna á sömu línu og Case lykilorðið, á undan með tvípunkti — VBA yfirlýsingaskilastafinn. Þetta gerir kóðann þéttari og aðeins skýrari. Svona lítur venjan út á þessu sniði:
Undirsýningafsláttur4 ()
Dimmt magn eins lengi
Dimm afsláttur sem tvöfaldur
Magn = InputBox(“Sláðu inn magn: “)
Veldu Málsmagn
Tilfelli 0 til 24: Afsláttur = 0,1
Mál 25 Til 49: Afsláttur = 0,15
Mál 50 Til 74: Afsláttur = 0,2
Case Is >= 75: Afsláttur = 0,25
Endurval
MsgBox “Afsláttur: “ & Afsláttur
End Sub
Þegar VBA keyrir Select Case uppbyggingu er strúktúrnum hætt um leið og VBA finnur satt tilvik og framkvæmir yfirlýsingarnar fyrir það tilvik.
Eins og sýnt er í eftirfarandi dæmi geturðu hreiðrað Select Case mannvirki. Þessi venja skoðar virka klefann og birtir skilaboð sem lýsir innihaldi frumunnar. Taktu eftir að aðferðin hefur þrjú val tilviksskipulags og hver hefur sína eigin lokavalsyfirlýsingu:
Undir CheckCell()
Dimm skilaboð sem strengur
Veldu Case IsEmpty (ActiveCell)
Mál satt
Msg = "er autt."
Tilfelli Annað
Veldu Case ActiveCell.HasFormula
Mál satt
Msg = "er með formúlu"
Tilfelli Annað
Veldu Case IsNumeric (ActiveCell)
Mál satt
Msg = "er með númer"
Tilfelli Annað
Msg = "er með texta"
Endurval
Endurval
Endurval
MsgBox “Cell “ & ActiveCell.Address & “ “ & Msg
End Sub
Rökfræðin er eitthvað á þessa leið:
Finndu út hvort hólfið sé tómt.
Ef það er ekki tómt skaltu athuga hvort það inniheldur formúlu.
Ef það er engin formúla skaltu komast að því hvort hún inniheldur tölugildi eða texta.
Þegar venjan lýkur inniheldur Msg breytan streng sem lýsir innihaldi frumunnar. MsgBox aðgerðin sýnir þessi skilaboð.
Skilaboð birt með CheckCell ferlinu.
Þú getur hreiðrað Select Case uppbyggingu eins djúpt og þú þarft, en vertu viss um að hver Select Case setning hafi samsvarandi End Select yfirlýsingu.
Ef þú ert enn ekki sannfærður um að inndráttarkóði sé erfiðisins virði, þá er fyrri skráning gott dæmi. Innskotin í raun til að gera varpstigin skýr. Skoðaðu sömu aðferð án inndráttar:
Undir CheckCell() Dimm skilaboð sem strengur Veldu Case IsEmpty (ActiveCell) Mál satt Msg = "er autt." Tilfelli Annað Veldu Case ActiveCell.HasFormula Mál satt Msg = "er með formúlu" Tilfelli Annað Veldu Case IsNumeric (ActiveCell) Mál satt Msg = "er með númer" Tilfelli Annað Msg = "er með texta" Endurval Endurval Endurval MsgBox “Cell “ & ActiveCell.Address & “ “ & Msg End Sub
Frekar óskiljanlegt, ha?
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: […]
