Note: The other languages of the website are Google-translated. Back to English
English English
  • Dokumenty
  • vynikat
  • Jak opakovat nebo opakovat makro každých X minut v aplikaci Excel?

Jak opakovat nebo opakovat makro každých X minut v aplikaci Excel?

Při práci s Microsoft Excel možná budete muset vytvořit makra, abyste dosáhli některých operací. Například chcete vytvořit Makro pro automatické kopírování rozsahu dat na nové místo. Protože se data budou často měnit, potřebujete toto Makro, aby se automaticky spouštělo každých 5 minut, aniž byste je museli ručně spouštět, aby se tyto dva rozsahy dat synchronizovaly. Jak toho dosáhnout? Metoda v tomto článku vám může pomoci.

Opakujte nebo opakujte makro každých X minut v aplikaci Excel


Opakujte nebo opakujte makro každých X minut v aplikaci Excel

Následující kód VBA vám pomůže opakovat Makro každých X minut v aplikaci Excel. Postupujte prosím následovně.

1. lis Další + F11 současně otevřete klávesu Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klikněte prosím Vložit > Modul. Poté zkopírujte a vložte níže uvedený kód VBA do Kód okno. Viz snímek obrazovky:

Kód VBA: Opakujte nebo opakujte makro každých X minut v aplikaci Excel

Sub ReRunMacro()
Dim xMin As String

'Insert your code here
    xMin = GetSetting(AppName:="Kutools", Section:="Macro", Key:="min", Default:="")
    If xMin = "Exit" Then
    SaveSetting "Kutools", "Macro", "min", "False"
    Exit Sub
    End If
    If (xMin = "") Or (xMin = "False") Then
      xMin = Application.InputBox(prompt:="Please input the interval time you need to repeat the Macro", Title:="Kutools for Excel", Type:=2)
      SaveSetting "Kutools", "Macro", "min", xMin
    End If
    If (xMin <> "") And (xMin <> "False") Then
      Application.OnTime Now() + TimeValue("0:" + xMin + ":0"), "ReRunMacro"
    Else
      Exit Sub
    End If
End Sub

Poznámka: V kódu prosím nahraďte tento řádek „Sem vložte váš kód s kódem, který spustíte každých X minut.

3. zmáčkni F5 klíč ke spuštění kódu. Ve vyskakovacím okně Kutools pro Excel V dialogovém okně zadejte časový interval, podle kterého budete makro opakovat, a poté klikněte na OK knoflík. Viz screenshot:

Od nynějška se určité Makro bude v sešitu spouštět opakovaně každých 5 minut.

Poznámka: Pokud potřebujete zastavit provádění makra a změnit interval cyklu, zkopírujte níže uvedený kód VBA do stejného Modul okno a stiskněte F5 klíč ke spuštění kódu. Poté bude makro zastaveno, znovu spusťte výše uvedený kód a určete nový interval.

Kód VBA: Zastavte provádění makra

Sub ExitReRunMacro()
SaveSetting "Kutools", "Macro", "min", "Exit"
End Sub

Karta Office - Procházení, úpravy a správa sešitů v záložkách v aplikaci Excel:

Karta Office přináší rozhraní s kartami, jak je vidět ve webových prohlížečích, jako je Google Chrome, nové verze aplikace Internet Explorer a Firefox, do aplikace Microsoft Excel. Bude to nástroj šetřící čas a nenahraditelný ve vaší práci. Viz níže demo:

Klikněte na bezplatnou zkušební verzi karty Office!

Záložka Office pro Excel


Související články:


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel vyřeší většinu vašich problémů a zvýší vaši produktivitu
80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než
    300
    výkonné funkce
    . Podporuje Office/Excel
    2007-2019 a 365
    . Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce
    30
    -denní zkušební verze zdarma. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu tím
    50%
    a každý den vám sníží stovky kliknutí myší!
officetab dno
Komentáře (29)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Skvělý! Prosím, jak zastavím smyčku po řekněme 10krát?
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Můžete se dostat do okna Kód a kód prolomit (kliknutím na tlačítko Přerušit) ručně zastavit smyčku.
Tento komentář byl moderátorem webu minimalizován
Dobrý den! Nerozuměl jsem tomu, jak rozbít kód makra, aby se znovu nastavil čas provádění smyčky. Mohl byste podrobněji popsat, jak to udělat? Kde se zaznamenává hodnota doby cyklu běhu?
Tento komentář byl moderátorem webu minimalizován
Ahoj Jack,
Moje chyba.
Na konec článku byl přidán nový kód VBA, který může zastavit makro. Zkuste to prosím. Děkuji za váš komentář.
Tento komentář byl moderátorem webu minimalizován
Díky za to, funguje to dobře. Jsem začátečník v kódování, takže mi prosím odpusťte, pokud je to jednoduché...

Jak zajistím, aby se dialogové okno znovu zobrazilo? Mám to přilepené na 1 minutové smyčce. Dík.
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Stačí prolomit kód a spustit jej znovu.
Tento komentář byl moderátorem webu minimalizován
Ahoj!
To je skvělé, ale existuje způsob, jak jej přimět, aby se vrátil do prvního řádku tabulky, než začne znovu?


Díky!
Tento komentář byl moderátorem webu minimalizován
Řekněte mi více, jak zastavit provádění makra a změnit interval cyklu?
Tento komentář byl moderátorem webu minimalizován
Řekněte mi více, jak zastavit provádění makra a změnit interval cyklu?
Tento komentář byl moderátorem webu minimalizován
dobrý den,
Na konec článku byl přidán nový kód VBA, který může zastavit makro. Zkuste to prosím. Děkuji za váš komentář.
Tento komentář byl moderátorem webu minimalizován
Zadejte prosím kód pro:


„Jak opakovat nebo opakovat makro každých X sekund v Excelu“


Děkuji
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Změňte prosím řádek "Application.OnTime Now() + TimeValue("0:" + xMin + ":0"), "ReRunMacro"" na
Application.OnTime Now() + TimeValue("0:" + "0:" + xMin), "ReRunMacro"
Tento komentář byl moderátorem webu minimalizován
Ahoj
Mám dotaz, vaše kódy fungují perfektně a kopírují data do mých dalších sloupců každých 5 minut, ale po 3 hodinách se všechny moje sloupce zaplní, protože je to 2003 Excel. Mohli byste mi prosím pomoci s kódem, který zkontroluje, zda není prázdný žádný další sloupec, a poté vytvořte nový list a zkopírujte data do tohoto listu
Tento komentář byl moderátorem webu minimalizován
Dobrý den, pomozte mi s "sem vložte svůj kód". Jsem začátečník a potřebuji poradit co a jak vyplnit! Děkuji, nerozumím tomu správně
Tento komentář byl moderátorem webu minimalizován
Ahoj Padmo,
„Sem vložte svůj kód“ označuje kód VBA, který používáte k dosažení určité operace v aplikaci Excel. Předpokládejme, že potřebujete použít VBA k přesunutí řádku na jiný list na základě konkrétní hodnoty a chcete kód spouštět každých X minut automaticky, musíte sem umístit kód VBA.
Tento komentář byl moderátorem webu minimalizován
Ahoj, popletl jsem se a nastavil čas na 0.5 a teď to nemůžu změnit, nějaké nápady, jak změnit nastavení xMin?
Tento komentář byl moderátorem webu minimalizován
Ahoj, Davide.

Jak jsme zmínili na konci příspěvku, pokud potřebujete zastavit provádění makra a změnit interval cyklu, zkopírujte níže uvedený kód VBA do stejného okna modulu a stisknutím klávesy F5 spusťte kód. Poté bude makro zastaveno, znovu spusťte výše uvedený kód a zadejte nový interval.



Sub ExitReRunMacro()

UložitNastavení "Kutools", "Makro", "min", "Konec"

End Sub
Tento komentář byl moderátorem webu minimalizován
Ahoj, díky! ale obávám se, že marco se ani nespustí, když stisknu F5, excel mi pošle tuto chybovou zprávu: Chyba běhu 13 „Neshoda typu“.



Smazal jsem to, ale pokud to zkusím vytvořit znovu, objeví se stejná chybová zpráva, můj jediný odhad je, že jsem nastavil čas na 0.5 a v kódu, takže nemám ponětí, jak to nyní upravit.



Ještě jednou děkuji za vaši pomoc.
Tento komentář byl moderátorem webu minimalizován
Ahoj velmi užitečné, ale myslím, že jsem se popletl a nastavil čas na 0.5 a nyní to nemohu změnit, nějaké nápady, jak změnit nastavení xMin?
Tento komentář byl moderátorem webu minimalizován
Jak vytvořit makro v excelu s nepřetržitou smyčkou a stisknutou klávesou by bylo pouze pg up a pg down
Tento komentář byl moderátorem webu minimalizován
Ahoj Jacku, omylem jsem zadal 0.5 minuty a ukazuje to chybu,
Myslím, že xMin se bere jako 0.5 minuty.
Jak se zbavit a změnit to na 1 minutu?
Tento komentář byl moderátorem webu minimalizován
Ahoj LIMCA,
Omluvám se za nepříjemnost. Kód nepodporuje zadávání desetinných míst.

Zastavte prosím opakování spuštěním níže uvedeného kódu VBA a poté znovu spusťte kód opakování a do vyskakovacího dialogového okna zadejte 1.

Sub ExitReRunMacro()

UložitNastavení "Kutools", "Makro", "min", "Konec"

End Sub
Tento komentář byl moderátorem webu minimalizován
Vkládám níže uvedený kód, ve kterém jsem nahradil řádek pro zadání kódu mým kódem. Chyba, kterou dostávám, je- Chyba kompilace: Expected End Sub. Laskavě pomozte.

Sub ReRunMacro()
Dim xMin jako řetězec
Dílčí aktualizace ()
'
' Obnovit makro
'

'
Listy("List1").Vyberte
ActiveWorkbook.RefreshAll
Sheets("Pivot-Dash").Vyberte
End Sub


xMin = GetSetting(AppName:="Kutools", Section:="Macro", Key:="min", Default:="")
If xMin = "Exit" Then
UložitNastavení "Kutools", "Makro", "min", "False"
Konec Sub
End If
If (xMin = "") Nebo (xMin = "False") Pak
xMin = Application.InputBox(prompt:="Zadejte prosím interval, po který je potřeba makro zopakovat", Title:="Kutools for Excel", Type:=2)
UložitNastavení "Kutools", "Makro", "min", xMin
End If
If (xMin <> "") A (xMin <> "False") Potom
Application.OnTime Now() + TimeValue("0:" + xMin + ":0"), "ReRunMacro"
Jiný
Konec Sub
End If
Tento komentář byl moderátorem webu minimalizován
Dobrý den, ze svého kódu musíte odstranit řádek Sub a End Sub. Dílčí aktualizace ()
'
' Obnovit makro
'

'
Listy("List1").Vyberte
ActiveWorkbook.RefreshAll
Sheets("Pivot-Dash").Vyberte
Ukončit dílčí změnu na: '
' Obnovit makro
'

'
Listy("List1").Vyberte
ActiveWorkbook.RefreshAll
Sheets("Pivot-Dash").Vyberte
Tento komentář byl moderátorem webu minimalizován
có cách nào dừng macro khi tắt file và macro tự khởi động lại khi mở lại file không add
Tento komentář byl moderátorem webu minimalizován
V Excelu 365 se mi zobrazuje chyba Runtime '13' Neshoda typu na následujícím řádku: Application.OnTime Now() + TimeValue("0:" + "0:" + xMin), "ReRunMacro"
Tento komentář byl moderátorem webu minimalizován
Ahoj Rone Frankline, zkusil jsem to v Excelu 365, ale tento problém se nepodařilo zopakovat. 
Tento komentář byl moderátorem webu minimalizován
Chyba kompilace:

Očekávaný konec sub

Mam przekopiowane dokładnie jak jest napisane wyzej i nie moge odnaleźć problemu
Tento komentář byl moderátorem webu minimalizován
Ahoj Pawide,
Můžete poskytnout snímek obrazovky chyby a zvýrazněného řádku v kódu vba? Problém se v mém případě nepodařilo reprodukovat. Omlouváme se za nepříjemnost.
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL