Přeskočit navigaci | Přeskočit na novinky
     

Jste zde: Úvodní stránka » excel » vba-triky » automaticke-spusteni-makra-casem-Excel-VBA
Microsoft Excel logo

Automatické spuštění makra časem - Excel VBA

Videokurzy Excel

Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:

Potřebujete-li zařídit opakované spuštění makra VBA dle času. Například co 1 sekundu. Navíc potřebuji mít možnost do listu dělat poznámky (nezávisle na spuštěném programu).

Úvodem do časového spouštění

Potřebujete-li ve VBA automaticky spouštět kód, využijete OnTime:


Metoda Application.OnTime

Syntaxe:

OnTime( EarliestTime , Procedure , [,LatestTime] [,Schedule] )
  • EarliestTime
  • Procedure
  • LatestTime
  • Schedule

Využít metodu Copy

Potřebujete-li spustit makro v určitý čas

Application.OnTime TimeValue("17:12:14"), "MojeProcedura" Application.OnTime Earliesttime:="17:12:14", _ Procedure:=MojeProcedura, _ Schedule:=True

Zapsání jednou na poslední řádek

Sub Spustit2() Application.OnTime TimeValue("17:49:14"), "Proved2" End Sub Sub Proved2() Dim PosledniPlnyRadek As Long PosledniPlnyRadek = Cells(Rows.Count, "A").End(xlUp).Row ' Ve sloupci A Cells(PosledniPlnyRadek + 1, 1).Value = PosledniPlnyRadek Cells(PosledniPlnyRadek + 1, 2).Value = Now Cells(PosledniPlnyRadek + 1, 3).Value = "jedno" End Sub

Opakované spouštění makra

Potřebujete-li spustit makro opakovaně, třeba co sekundu ;)

Následující kódy stačí umístit do Modulu:

Public CasDoDalsihoSpusteni As Date Sub Spustit() CasDoDalsihoSpusteni = Now + TimeValue("00:00:01") ' Spustí se Proveď po 1 sec Application.OnTime CasDoDalsihoSpusteni, "Proved" End Sub Sub Proved() Dim PosledniPlnyRadek As Long PosledniPlnyRadek = Cells(Rows.Count, "A").End(xlUp).Row ' Ve sloupci A Cells(PosledniPlnyRadek + 1, 1).Value = PosledniPlnyRadek Cells(PosledniPlnyRadek + 1, 2).Value = Now 'Znova spuť Call Spustit End Sub Sub Zastavit() ' Zastav provádění Application.OnTime CasDoDalsihoSpusteni, "Proved", , False End Sub

Pak jen zbývá v listu přidat dvě tlačítka, jedno opakovaní spustí a druhé tlačítko činnost ukončí (teda pokud potřebujete makro zastavovat/ukončovat).

Spouštění

Call Spustit

Zastavení

Call Zastavit

Tipy triky

V přípravě.


Microsoft Excel VBA - stahuj logo

Ke stažení

Soubor ke stažení zdarma. Soubor je v přípravě.


Závěrem

Něco co zde chybí? Můžete doplnit v komentářích.

Článek byl aktualizován: 09.12.2017 19:44

Odměna

Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.


Pavel Lasák - autor webu

Pavel Lasák

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.

   Pavel Lasák LinkedIn Profil    Pavel Lasák Google+ Profil    Pavel Lasák facebook Profil    Pavel Lasák twitter Profil


Komentáře zatím nejsou

Můžete být prvními co zanechají smysluplný komentář.







Sdílejte

Pomohl Vám návod?
Sdílejte na Facebooku, G+
LinkedIn...

Nové články


TOPlist Licence Creative Commons webarchiv rss XML

Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2018 | 2185

Tento web zatím neprošel jazykovou korekturou. Beta verze redakčního systému.