Jednou z možností je přidat nějakou podmínku (třeba hodnota konkrétní buňky), která by se pokaždé v makru testovala.
P.citovat
P.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Application.Ontime
MS Excel
Téma: Application.Ontime 
Zaslal/a Dejwing 22.11.2017 16:44
Dobrý den, chtěl bych poradit, jak napsat makro, co zastaví VBA on time: RunEveryTwoMinutes, aby se mi dokument neukládal, pokud nechci, když provádím změny a tak, děkuji moc za radu. :)
Private Sub Workbook_open()
RunEveryTwoMinutes
End Sub
Sub RunEveryTwoMinutes()
Application.Ontime Now + TimeValue("00:02:00"), "RunEveryTwoMinutes"
ActiveWorkbook.Save
End Sub
(26.11.2017 19:56)#038490
To máš zoufale složité. Stačí přece v modulu ThisWorkbook jediná jednoduchá procedura:
Sub Workbook_Open() 'public
Application.Ontime Now + 0.00139, "ThisWorkbook.Workbook_Open" '+2 min
Save 'jsi v modulu ThisWorkbook, tak tohle přece stačí
End Sub
A mimochodem - ukládáním sešitu každé 2 minuty budeš mít na disku neuvěřitelně nafouknuté monstrum. Ty nevíš, že Excel ochotně ukládá i uložený soubor (na rozdíl od Wordu) a s každým uložením ho zlovolně zvětší?citovat
Sub Workbook_Open() 'public
Application.Ontime Now + 0.00139, "ThisWorkbook.Workbook_Open" '+2 min
Save 'jsi v modulu ThisWorkbook, tak tohle přece stačí
End Sub
A mimochodem - ukládáním sešitu každé 2 minuty budeš mít na disku neuvěřitelně nafouknuté monstrum. Ty nevíš, že Excel ochotně ukládá i uložený soubor (na rozdíl od Wordu) a s každým uložením ho zlovolně zvětší?citovat
Děkuji za rady, jedná se mi o to, že excel každý den vypnu a zapnu přes VBA a tím pádem mi běží makro 2* za dva dny se spouští 3* atd... což je velmi neefektivní a tak se musí počítač restartovat.
Sub CloseMe()
ActiveWorkbook.Save
Application.Ontime Now + TimeValue("00:00:10"), "OpenMe"
ActiveWorkbook.Save
ThisWorkbook.Close False
End Sub
Zavírám to, protože některá makra mi fungují jen 24h:
Application.Ontime TimeValue("21:59:00"), "OnTime"
Application.Ontime TimeValue("13:59:00"), "OnTime"
Application.Ontime TimeValue("05:59:00"), "OnTime"
kdyby fungovali neustále v tuto dobu, tak bych nemusel vypínat Sub RunEveryTwoMinutes(), neběželo by mi vícekráte.
A na otázku zda soubor narůstá je odpověď: z 800kb cca na 2MB za měsíc.citovat
Sub CloseMe()
ActiveWorkbook.Save
Application.Ontime Now + TimeValue("00:00:10"), "OpenMe"
ActiveWorkbook.Save
ThisWorkbook.Close False
End Sub
Zavírám to, protože některá makra mi fungují jen 24h:
Application.Ontime TimeValue("21:59:00"), "OnTime"
Application.Ontime TimeValue("13:59:00"), "OnTime"
Application.Ontime TimeValue("05:59:00"), "OnTime"
kdyby fungovali neustále v tuto dobu, tak bych nemusel vypínat Sub RunEveryTwoMinutes(), neběželo by mi vícekráte.
A na otázku zda soubor narůstá je odpověď: z 800kb cca na 2MB za měsíc.citovat
(1.12.2017 22:40)#038565
K tomu svévolnému narůstání souboru XLSM, které je způsobeno tím, že Excel (přesněji: manažeři programátorů Excelu) vědomě po sobě neuklízí (a jen prasata po sobě neuklidí):
1. Otevři prázdný Excel, zvol menu Soubor / Možnosti a v okně možností zvol Centrum zabezpečení / Nastavení Centra zabezpečení. V jeho oknu zvol Nastavení maker a zakaž makra, vše potvrď (2x OK) a zavři Excel.
2. Otevři svůj sešit, otevři editor VBA a v něm dej příkaz k uložení (ctrl+S). Zavři editor i Excel a soubor bude výrazně menší.
3. Novým otevřením prázdného Excelu a postupem podle bodu 1 povol makra.citovat
1. Otevři prázdný Excel, zvol menu Soubor / Možnosti a v okně možností zvol Centrum zabezpečení / Nastavení Centra zabezpečení. V jeho oknu zvol Nastavení maker a zakaž makra, vše potvrď (2x OK) a zavři Excel.
2. Otevři svůj sešit, otevři editor VBA a v něm dej příkaz k uložení (ctrl+S). Zavři editor i Excel a soubor bude výrazně menší.
3. Novým otevřením prázdného Excelu a postupem podle bodu 1 povol makra.citovat
(1.12.2017 23:06)#038567
Jo, ještě toto: Abych uživatelům i sám sobě zabránil v ukládání uloženého sešitu (a tím jeho dalšímu nafukování), ošetřuji v modulu ThisWorkbook událost Workbook_BeforeSave:
bCanc = Saved And Not bSavAsKec IIf(bCanc, "Serroo nutto", "Hooklaadaam")End Sub)
Vysvětlivky:
1. bSavAs = zda je sešit ukládán pod novým jménem
bCanc = nastavením na True k uložení nedojde
2. Kec = má subrutina v hlavním modulu, která aktivuje speaker; užívám ji, protože na uživatele často potřebuji mluvit:
Application.Speech.Speak s, TrueEnd Sub)
3. Texty pro Kec musí být napsány tak, aby je anglicky mluvící speaker přečetl přibližně správně česky.citovat
Vysvětlivky:
1. bSavAs = zda je sešit ukládán pod novým jménem
bCanc = nastavením na True k uložení nedojde
2. Kec = má subrutina v hlavním modulu, která aktivuje speaker; užívám ji, protože na uživatele často potřebuji mluvit:
3. Texty pro Kec musí být napsány tak, aby je anglicky mluvící speaker přečetl přibližně správně česky.citovat
(1.12.2017 23:12)#038568
Promiň, nenapsaly se ty dvě subrutiny, zkouším je napsat znovu:
DefBool B
Private Sub Workbook_BeforeSave(ByVal bSavAs, bCanc)
bCanc = Saved And Not bSavAs
Kec IIf(bCanc, "Serroo nutto", "Hooklaadaam")
End Sub
Sub Kec(s$)
Application.Speech.Speak s, True
End Subcitovat
DefBool B
Private Sub Workbook_BeforeSave(ByVal bSavAs, bCanc)
bCanc = Saved And Not bSavAs
Kec IIf(bCanc, "Serroo nutto", "Hooklaadaam")
End Sub
Sub Kec(s$)
Application.Speech.Speak s, True
End Subcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články