< návrat zpět

MS Excel

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

Zaslal/a Bougee 25.1.2015 4:37

BougeeZdraví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
avatar
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
avatar
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)
avatar\n

Menu

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.

On-line nástroje