• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Makro uložit a zavřít, jak přidat další čas

Zaslal/a Bougee 25.1.2015 4:37

Zdravím.
Mám makro které mi automaticky uloží a zavře excel od 0:12 - 0:14
teď bych tam ale potřeboval přidat podmínku "nebo" aby mi to uložilo a zavřelo excel i ve 2:12 - 2:14

nějaké Tipy nebo nápady jak to udělat?

Děkuji za rady.
Bougee makro viz níže
Sub SaveThis()
' Ukladani se spousti po 1 minute, tedy pro jistotu aby se podarilo
' trefit pozadovany cas, je tam rozmezi 0:12-0:14 (maximalne dojde k ulozeni 2x
If ((TimeValue("00:12:00") < TimeValue(Now)) And (TimeValue(Now) < TimeValue("00:14:00"))) Then






'MsgBox "Ok"
Application.DisplayAlerts = False
ThisWorkbook.Save
ThisWorkbook.Saved = True
Application.DisplayAlerts = True
Application.Quit
End If



Application.OnTime Now + TimeValue("00:01:00"), "SaveThis"
End Sub

Zaslat odpověď >

---

Pavlus(25.1.2015 8:16)#023264

Nezkoumal jsem to nějak podrobně, ale pokud ti to takto funguje, tak stačí přidat pouze další podmínku.
Každopádně mi tam nesedí ten tvůj vytvořený interval, první "menší než" by mělo být "větší než"? ...
P.

Př.:
If ((TimeValue("00:12:00") > TimeValue(Now)) And (TimeValue(Now) < TimeValue("00:14:00"))) Or ((TimeValue("02:12:00") > TimeValue(Now)) And (TimeValue(Now) < TimeValue("02:14:00"))) Thencitovat

kp57(25.1.2015 17:48)#023266

Předpokládám, že:Private Sub Workbook_Open()
Application.OnTime Date + 1 + TimeValue("00:12:00"), "SaveThis"
End Sub

Pak pokud není systém zaneprázdněný, spustí proceduru.
Ta podle nastavených parametrů proběhne, k opakování po minutě nevidím důvod.
V případě, že podle nastavených parametrů neproběhne, nastaví nový čas spuštění.Sub SaveThis()
If TimeValue(Now) <= TimeValue("00:14:00") Or TimeValue(Now) >= TimeValue("02:12:00") Then
Application.DisplayAlerts = False
Dim WB As Workbook
For Each WB In Workbooks
WB.Save
Next WB
ThisWorkbook.Saved = True
Application.DisplayAlerts = True
Application.Quit
Else
Application.OnTime Date + TimeValue("02:12:00"), "SaveThis"
End If
End Sub
citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse