Excel zastavení makra

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Diesels
nováček
Příspěvky: 49
Registrován: červenec 10
Pohlaví: Muž
Stav:
Offline

Excel zastavení makra

Příspěvekod Diesels » 09 lis 2016 14:24

Dobrý den,

Mám dva tlačítka jedno pro spuštění makra kvůli aktualizaci dat v určitém časovém intervalu. Můj dotaz se týká druhého tlačítka, které by mělo tuto aktualizaci zastavit. Bohužel se mi to nedaří zprovoznit.
Doposud jsem to řešil pomocí CTRL+BREAK.

Tlačítko Update

Kód: Vybrat vše

Private Sub CommandButton1_Click()
'refresh
ActiveWorkbook.RefreshAll

alertTime = Now + TimeValue("00:00:30") 'hh:mm:ss
    Application.OnTime alertTime, "Refresh"
End Sub


Tlačítko pro ukončení Aktualizace:

Kód: Vybrat vše

Private Sub CommandButton2_Click()
  ???
End Sub

Reklama
Uživatelský avatar
atari
Level 6
Level 6
Příspěvky: 3195
Registrován: říjen 08
Pohlaví: Muž
Stav:
Offline

Re: Excel zastavení makra

Příspěvekod atari » 09 lis 2016 14:31

Tomu nerozumím. Pokud spustíš ve VBA příkaz, tak ho musíš nechat doběhnout. Zastavit můžeš pouze další běh kodu po skončení nějakého příkazu. CTRL BREAK je násilné zastavení, které může způsobovat nekonzistentnost dat.

Diesels
nováček
Příspěvky: 49
Registrován: červenec 10
Pohlaví: Muž
Stav:
Offline

Re: Excel zastavení makra

Příspěvekod Diesels » 09 lis 2016 14:51

atari píše:Tomu nerozumím. Pokud spustíš ve VBA příkaz, tak ho musíš nechat doběhnout. Zastavit můžeš pouze další běh kodu po skončení nějakého příkazu. CTRL BREAK je násilné zastavení, které může způsobovat nekonzistentnost dat.


Ano, ale vzhledem k výše uvedenému makru pro aktualizaci, které se neustále opakuje, ten konec není...

Napadlo mě přidat do makra pro spuštění aktualizace něco ve smyslu If Range("a1").value = "stop" Then zastavení aktualizace/dokončení marka

Do Buňky A1 bych pomocí tlačítka pro zastavení vložil hodnotu "stop"....

Ale nedařilo se mi to zprovoznit

petr22
Guru Level 15
Guru Level 15
Příspěvky: 53531
Registrován: únor 12
Pohlaví: Muž
Stav:
Offline

Re: Excel zastavení makra

Příspěvekod petr22 » 09 lis 2016 15:41

1. zalozit klic v registru, kde bude napr pouze 0 nebo 1, pricemz 1 znamena ze to ma bezet a nula ze se to ma zastavit

2. spustene makro zapise na zacatku 1, nacita data a pri kazdem cyklu kontroluje jestli je tam 1

3. druhe tlacitko zapise 0, takze makro dokonci cyklus a zastavi se, o cemz da hlasku uzivateli

Uživatelský avatar
atari
Level 6
Level 6
Příspěvky: 3195
Registrován: říjen 08
Pohlaví: Muž
Stav:
Offline

Re: Excel zastavení makra

Příspěvekod atari » 09 lis 2016 15:51

V tom případě máš špatně napsané zadání. Ty nechceš zastavovat makro, ale měnit podmínky kdy se má spustit refreš.
Zadat hodnotu je velmi jednoduché:

Kód: Vybrat vše

Private Sub CommandButton2_Click()
Range("a1") = "stop"
End Sub


Dodatečně přidáno po 2 minutách 36 vteřinách:
Udělat to přes ty registry je elegantnější, než ten "STOP" v buňce A1.

guest
Pohlaví: Nespecifikováno

Re: Excel zastavení makra

Příspěvekod guest » 09 lis 2016 16:05

Možná by stačilo podívat se do nápovědy, jak zrušit časové nastavení makra přes OnTime...

Násilně zastavit již běžící makro je hloupost.

Diesels
nováček
Příspěvky: 49
Registrován: červenec 10
Pohlaví: Muž
Stav:
Offline

Re: Excel zastavení makra

Příspěvekod Diesels » 09 lis 2016 16:40

xlnc píše:Možná by stačilo podívat se do nápovědy, jak zrušit časové nastavení makra přes OnTime...

Násilně zastavit již běžící makro je hloupost.


Vyřešeno pomocí "Application.OnTime TimeToRun" funkce....

Děkuji


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • excel-posun makra
    od actionboy » 12 bře 2024 18:59 » v Kancelářské balíky
    1
    259
    od Grimm Zobrazit poslední příspěvek
    12 bře 2024 21:43
  • Excel a OneDrive
    od sginfo » 11 zář 2023 15:28 » v Kancelářské balíky
    16
    5984
    od mirekol Zobrazit poslední příspěvek
    20 říj 2023 08:31
  • Excel - vlastní formát Příloha(y)
    od Story-Long » 11 srp 2023 14:50 » v Kancelářské balíky
    3
    1836
    od Story-Long Zobrazit poslední příspěvek
    14 srp 2023 10:11
  • Excel - funkce když
    od Martyn20 » 13 črc 2023 11:56 » v Kancelářské balíky
    5
    2314
    od mmmartin Zobrazit poslední příspěvek
    13 črc 2023 18:44
  • Excel - problém se vzorci
    od honzzicek » 28 čer 2023 21:45 » v Kancelářské balíky
    2
    1632
    od honzzicek Zobrazit poslední příspěvek
    01 črc 2023 08:57

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 4 hosti