Hvernig á að nota OnTime Events og Keypress Events í Excel 2016 VBA

Það eru tvenns konar atburðir sem þú getur notað í VBA forritun fyrir Excel 2016 sem eru ekki tengdir hlutum: tími og ýtt á takka. Vegna þess að tími og takkapressanir eru ekki tengdar tilteknum hlut eins og vinnubók eða vinnublaði, forritarðu þessa atburði í venjulegri VBA einingu.

OnTime viðburðurinn

OnTime atburðurinn á sér stað þegar ákveðinn tími dags á sér stað. Eftirfarandi dæmi sýnir hvernig á að fá Excel til að framkvæma málsmeðferð þegar 3 pm atburðurinn á sér stað. Í þessu tilviki segir vélmenni rödd þér að vakna, ásamt skilaboðakassi:

Sub SetAlarm()
  Application.OnTime 0.625, „DisplayAlarm“
End Sub
Sub DisplayAlarm()
  Application.Speech.Speak („Hæ, vaknaðu“)
  MsgBox "Það er kominn tími á síðdegisfríið þitt!"
End Sub

Í þessu dæmi er OnTime aðferð forritshlutarins notuð. Þessi aðferð tekur tvær röksemdir: tímann (0.625 eða 15:00) og nafnið á undirferlinu til að framkvæma þegar tímaatburðurinn á sér stað (DisplayAlarm).

Þessi aðferð er mjög gagnleg ef þú hefur tilhneigingu til að vera svo upptekin af vinnu þinni að þú gleymir fundum og stefnumótum. Stilltu bara OnTime viðburð til að minna þig á.

Flestir eiga erfitt með að hugsa um tíma út frá Excel númerakerfinu. Þess vegna gætirðu viljað nota VBA TimeValue aðgerðina til að tákna tímann. TimeValue breytir streng sem lítur út eins og tíma í gildi sem Excel ræður við. Eftirfarandi yfirlýsing sýnir auðveldari leið til að forrita viðburð fyrir klukkan 15:00:

Application.OnTime TimeValue(“3:00:00 pm”), „DisplayAlarm“

Ef þú vilt skipuleggja viðburð miðað við núverandi tíma (til dæmis eftir 20 mínútur), geturðu notað yfirlýsingu eins og þessa:

Application.OnTime Now + TimeValue(“00:20:00”), „DisplayAlarm“

Þú getur líka notað OnTime aðferðina til að keyra VBA aðferð á tilteknum degi. Þú verður að ganga úr skugga um að tölvan þín haldi áfram að keyra og að vinnubókin með ferlinu sé haldið opinni. Eftirfarandi yfirlýsing keyrir DisplayAlarm málsmeðferðina klukkan 17:00 þann 31. desember 2016:

Application.OnTime DateValue(“12/31/2016 5:00 pm”), „Display Alarm“

Þessi tiltekna kóðalína gæti komið sér vel til að vara þig við því að þú þurfir að fara heim og búa þig undir gamlárshátíðina.

Hér er annað dæmi sem notar OnTime atburðinn. Með því að framkvæma UpdateClock verklagsreglurnar skrifar tíminn í reit A1 og forritar einnig annan atburð fimm sekúndum síðar. Þessi atburður endurræsir UpdateClock málsmeðferðina. Nettóáhrifin eru að klefi A1 er uppfærður með núverandi tíma á fimm sekúndna fresti. Til að stöðva atburðina skaltu framkvæma StopClock málsmeðferðina (sem hættir við atburðinn). Athugaðu að NextTick er breyta á mátstigi sem geymir tímann fyrir næsta atburð.

Dimma NextTick As Date
Sub UpdateClock()
' Uppfærir reit A1 með núverandi tíma
  ThisWorkbook.Sheets(1).Range(“A1”) = Tími
' Settu upp næsta viðburð eftir fimm sekúndur
  NextTick = Now + TimeValue(“00:00:05”)
  Application.OnTime NextTick, "UpdateClock"
End Sub
Sub StopClock()
' Hættir við OnTime atburði (stöðvar klukkuna)
  Á Villa Resume Next
  Application.OnTime NextTick, “UpdateClock”, , False
End Sub

OnTime atburðurinn heldur áfram jafnvel eftir að vinnubókinni er lokað. Með öðrum orðum, ef þú lokar vinnubókinni án þess að keyra StopClock ferli, mun vinnubókin opnast aftur eftir fimm sekúndur (að því gefnu að Excel sé enn í gangi). Til að koma í veg fyrir þetta skaltu nota Workbook_BeforeClose atburðarferli sem inniheldur eftirfarandi yfirlýsingu:

Hringdu í StopClock

OnTime aðferðin hefur tvö viðbótarrök. Ef þú ætlar að nota þessa aðferð ættir þú að vísa til hjálparkerfisins til að fá nákvæmar upplýsingar.

Ef þú vilt sjá frekar flókið forrit skaltu skoða þetta hliðræna klukkuforrit. Klukkuskífan er í raun graf og taflan er uppfærð á sekúndu hverri til að sýna tíma dags. Ónýtt, en skemmtilegt.

Hvernig á að nota OnTime Events og Keypress Events í Excel 2016 VBA

Analog klukka forrit.

Keypress viðburðir

Á meðan þú vinnur fylgist Excel stöðugt með því sem þú skrifar. Vegna þessa geturðu sett hlutina upp þannig að ásláttur eða takkasamsetning framkvæmi aðferð.

Hér er dæmi sem endurúthlutar PgDn og PgUp lyklunum:

Sub Setup_OnKey()
  Application.OnKey „{PgDn}“, „PgDn_Sub“
  Application.OnKey „{PgUp}“, „PgUp_Sub“
End Sub
Undir PgDn_Sub()
  Á Villa Resume Next
  ActiveCell.Offset(1, 0). Virkja
End Sub
Undir PgUp_Sub()
  Á Villa Resume Next
  ActiveCell.Offset(-1, 0). Virkja
End Sub

Eftir að hafa sett upp OnKey atburðina með því að framkvæma Setup_OnKey málsmeðferðina, með því að ýta á PgDn færist þú niður eina röð. Með því að ýta á PgUp færist þú upp um eina röð.

Taktu eftir að lykilkóðar eru lokaðir innan sviga, ekki innan sviga. Til að fá heildarlista yfir lyklaborðskóða, hafðu samband við hjálparkerfið. Leita að OnKey.

Í þessu dæmi er On Error Resume Next notað til að hunsa allar villur sem myndast. Til dæmis, ef virki hólfið er í fyrstu röðinni veldur það villu sem óhætt er að hunsa þegar reynt er að færa eina röð upp. Og ef kortablað er virkt, þá er enginn virkur reit.

Með því að framkvæma eftirfarandi rútínu hættir þú við OnKey atburðina:

Undir Cancel_OnKey()
  Application.OnKey „{PgDn}“
  Application.OnKey „{PgUp}“
End Sub

Að nota tóman streng sem önnur rök fyrir OnKey aðferðinni dregur ekki úr OnKey atburðinum. Frekar veldur það því að Excel hunsar einfaldlega ásláttinn. Til dæmis segir eftirfarandi setning Excel að hunsa Alt+F4. Prósentatáknið táknar Alt takkann:

  Application.OnKey „%{F4}“, „“

Þó að þú getir notað OnKey aðferðina til að úthluta flýtilykla til að framkvæma fjölvi, ættir þú að nota Macro Options valmyndina fyrir þetta verkefni.

Ef þú lokar vinnubókinni sem inniheldur kóðann og skilur Excel eftir opið, verður OnKey aðferðin ekki endurstillt. Þar af leiðandi mun það að ýta á flýtivísinn valda því að Excel opnar sjálfkrafa skrána með fjölvi. Til að koma í veg fyrir að þetta gerist ættirðu að setja kóða inn í Workbook_BeforeClose atburðarkóðann þinn til að endurstilla OnKey atburðinn.

Leave a Comment

Námundun tölur í Excel 2007 með ROUND, ROUNDUP og ROUNDDOWN

Námundun tölur í Excel 2007 með ROUND, ROUNDUP og ROUNDDOWN

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 í skrifvarinn ham á Windows

Hvernig á að koma í veg fyrir að Microsoft Word opni skrár í skrifvarinn ham á Windows

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 ranga prentun á Microsoft Word skjölum

Hvernig á að laga ranga prentun á Microsoft Word skjölum

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

Eyddu penna- og auðkennisteikningum á PowerPoint-skyggnunum þínum

Eyddu penna- og auðkennisteikningum á PowerPoint-skyggnunum þínum

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 á […]

Innihald stílasafns í SharePoint 2010

Innihald stílasafns í SharePoint 2010

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 í […]

Snið tölur í þúsundum og milljónum í Excel skýrslum

Snið tölur í þúsundum og milljónum í Excel skýrslum

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.

Hvernig á að deila og fylgja SharePoint síðum

Hvernig á að deila og fylgja SharePoint síðum

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.

Hvernig á að umbreyta dagsetningum í Julian snið í Excel

Hvernig á að umbreyta dagsetningum í Julian snið í Excel

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 […]

Hvernig á að búa til Access Web App

Hvernig á að búa til Access Web App

Þú 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 […]

Quick Launch Bar í SharePoint 2010

Quick Launch Bar í SharePoint 2010

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: […]