< návrat zpět

MS Excel


Téma: makro - msbox po 5 min. - uložiť rss

Zaslal/a 2.2.2018 15:06

kabakaExcel 2003

Potrebovala by som msbox,ktorý by po 5 min. vyskočil na obrazovku s textom ULOŽ MA!!! a uložil by aktívny zošit po kliknutí na OK!

Taký to mám msbox.
Private Sub CommandButton10_Click()
i = MsgBox("ULOZ MA!!!")
End Sub


Toto je makro
Sub ulož()
ActiveWorkbook.Save
End Sub


Neviem to ale načasovať a spojiť dokopy.
Ďakujem za pomoc.

Příloha: xls39300_uloz.xls (44kB, staženo 32x)
Zaslat odpověď >

Strana:  1 2   další »
#039301
elninoslov
+- autobus ...

EDIT 2 (19:41): Opäť vymenená príloha. To snáď nieje možné :)
Příloha: xls39301_39300_uloz.xls (46kB, staženo 48x)
citovat
#039314
avatar
Použij API funkce SetTimer, KillTimer.citovat
#039316
kabaka

elninoslov napsal/a:

+- autobus ...

EDIT 2 (19:41): Opäť vymenená príloha. To snáď nieje možné :)Příloha: 39301_39300_uloz.xls (46kB, staženo 9x)


Ďakujem veľmi pekne. Funguje.citovat
#039319
elninoslov
Nemyslím, že to funguje. Na mojom novom, aktualizovanom Office 2016 Pro SK x64, Win10 x64 SK, sa OnTime spúšťa absolútne divoko a netypicky. Excel si akoby prestal pamätať, kedy načasoval akciu. Vyvolá ju, aj keď ju zruším (presne daný uchovaný čas a Schedule:=False), aj keď zavriem súbor, otvorí ho. Děs-běs... Skúsil som dokonca nie nadeklarovať Dim alebo Public globálnu premennú, ale keďže sa mi zdalo, že zabúda pri BeforeClose danú premennú, tak som vytvoril aj Triedu, kde to bolo uchované. Aj tak ale keď nechám zošit dlhšie otvorený, tak spustí OnTime 2x. Akoby makro po nejakej dobre pokračovalo za MsgBox-om, bez potvrdenia MsgBoxu. ako vravím - Děs-běs...citovat
#040183
kabaka

elninoslov napsal/a:

Nemyslím, že to funguje.

Máš pravdu s msboxom aj bez to funguje zvláštne.citovat
#040193
avatar
Pokud je smyslem celé akce pojistka proti ztrátě provedených změn za období delší pěti minut v důsledku nechtěného přerušení práce se sešitem, mohlo by pomoci nastavení času pro automatické obnovení:
Application.AutoRecover.Time = 5
Při novém otevření sešitu po výpadku se nabídne stav sešitu, který není starší než pět minut před výpadkem. Toto nastavení je možné provést také pomocí Soubor/Možnosti/Uložit/Ukládat informace pro automatické uloženícitovat
#040196
kabaka

Vovka napsal/a:

Pokud je smyslem celé akce pojistka proti ztrátě provedených změn za období delší pěti minut v důsledku nechtěného přerušení práce se sešitem, mohlo by pomoci nastavení času pro automatické obnovení:
Application.AutoRecover.Time = 5
Při novém otevření sešitu po výpadku se nabídne stav sešitu, který není starší než pět minut před výpadkem. Toto nastavení je možné provést také pomocí Soubor/Možnosti/Uložit/Ukládat informace pro automatické uložení


Soubor/Možnosti/Uložit/Ukládat informace pro automatické uložení - áno túto možnosť poznám a mám ju nastavenú na 1 min... lenže toto sa spustí, len pri spadnutí systému. Mne ide o priebežné ukladanie súboru.

Automatické uloženie pre obnovu nie je tá istá funkcia ako"disketka".citovat
#040197
avatar
Popsal jsem jednu možnost, jak se chránit. Když nevyhovuje, lze to řešit jinak. Kdysi jsem např. řešil provádění inventury pomocí snímačů čárového kódu, kde to snímání bylo zdrojem četných chyb. Po diskusích se zadavatelem jsem začal jistit sběr dat ukládáním sešitu po každé zdařené transakci se sejmutím bar kódu. V tomto režimu byl sběr dat zadavatelem vyhodnocen jako stabilní a vyhovující.
Z vašeho zadání není patrné, proč hledáte postup právě pro své popsané řešení s MsgBoxem. Jeho smysl jsem moc nepochopil. Podivné chování OnTime v E-2016 je pro mne novinka, už léta jsem ten obrat nepoužil.citovat
#040198
kabaka

Vovka napsal/a:


Z vašeho zadání není patrné, proč hledáte postup právě pro své popsané řešení s MsgBoxem. Jeho smysl jsem moc nepochopil. Podivné chování OnTime v E-2016 je pro mne novinka, už léta jsem ten obrat nepoužil.


Zámer bol: pomôcť kolegyni, aby nemusela dookola písať tie isté informácie, ktoré si "disketkou" neuložila. Cieľom bolo, aby na ňu aspoň po 5 min. na ňu vyskočilo upozornenie, ktoré by neprehliadla. (A hore som písala, že používame excel 2003)citovat
#040199
avatar

kabaka napsal/a:


Zámer bol: pomôcť kolegyni, aby nemusela dookola písať tie isté informácie, ktoré si "disketkou" neuložila. Cieľom bolo, aby na ňu aspoň po 5 min. na ňu vyskočilo upozornenie, ktoré by neprehliadla. (A hore som písala, že používame excel 2003)
To je nejaké "sofistikované" zadanie. Teda ak kolegyňa vybehne napríklad na obed, teda nič sa s tým nebude robiť, tak sa to má ukladať každých 5 minút?citovat

Strana:  1 2   další »

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