MS Excel

Zdravím. prosím jak vyladit formulář a kod.
Chci , před otevřením sešitu zobrazit okno, kde jede odpočet, který odpočítá 5sec a pak spustí další proceduru. A pokud do této doby stisknu tl Storno, tak aby se tento form.HNED uzavřel a jen otevřel sešit.

Nyní , když stisknu Storno, stejně to čeká ...na pozadí až to odpočítá temch 5 sec.
Jde to nějak?...okamžitě všechny makra přerušit
Možná by pomohlo obecně vysvětlit, jak funguje v obecném formuláři tlačítko Storno, a tl Přerušit. Přerušit taky ukonší chod makra?

A ještě jeden dotaz, lze schovat křížek v pravém rohu formuláře?

Chci při startu zobrazit okno s informacemi o produktu, a vyžaduji třeba těch 5 sec.aby to uživatel viděl a nemohl to vykřížkovat. Má to prakticky každý program , když startuje.

Díky za tipy

Díky

Zaslat odpověď >

Začátečník(24.3.2024 15:40)#056364

...Nyní , když stisknu Storno, stejně to čeká ...na pozadí až to odpočítá temch 5 sec....

Protože není stisk tlačítka ošetřen tak, aby přerušil cyklus odpočtu. Zkuste si kód krokovat a uvidíte i příčinu toho, proč se cyklus nepřeruší.

...Možná by pomohlo obecně vysvětlit, jak funguje v obecném formuláři tlačítko Storno, a tl Přerušit. Přerušit taky ukonší chod makra?...

Obecně tlačítka fungují tak, jak je programátor naprogramuje.

Co myslíte tlačítkem Storno a co tlačítkem Přerušit?

...A ještě jeden dotaz, lze schovat křížek v pravém rohu formuláře?...

Jednodušší je zakázat stisk ikony zavření formuláře pomocí metody Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
Cancel = 1
End If
End SubCloseMode určuje příčinu vyvolání - 0=> zavření form z nabídky (křížek)
Cancel nastavením na jinou hodnotu než 0 zastaví událost QueryClose.citovat

PavDD(25.3.2024 9:51)#056367

...Protože není stisk tlačítka ošetřen tak, aby přerušil cyklus odpočtu. Zkuste si kód krokovat a uvidíte i příčinu toho, proč se cyklus nepřeruší.

..stačí dát do kodu tl."storno" EXIT DO ?

Private Sub Storno_Click()
Exit Do
'Start.Hide
Unload Me
End
End Subcitovat

Začátečník(25.3.2024 15:09)#056368

Ne to nestačí a navíc by to skončilo chybou.

Příloha: zip

56368_start-odpocet-a-storno.zip (18kB, staženo 3x)

citovat

elninoslov(25.3.2024 22:34)#056369

Tak?

Příloha: zip

56369_start-odpocet-a-storno-2.zip (20kB, staženo 3x)

citovat

PavDD(26.3.2024 7:26)#056370

add Elnino
Ano ,tak . jen dotaz,v tom OptionExplicit , to je k čemu prosím? Je to teda dost komplikované,ale to asi musí být.
Ten Now + TimeSerial(0, 0, 1) , co je to za parametry ?..umí to jen vteřiny, nebo i menší čas?
Děkuji
--------------------------------------------------------
add Začátečník
Když stisknu Storno, přeskočí se sice odpočet, ale až v dalším kroku next i, a makro,co se má spustit po odpočtu se stejně spustí, ikdyž jsem ho Stornem chtěl přerušit.

If konecForm Then 'MsgBox "zmačknul jsi storno"
Exit For
GoTo konec
End If

Mohl by jste to ještě upravit?...tedy jestli se nakonec nedostaneme do řešení kolegy Elnino.
Odskok GoTo konec, by měl přeskočit odpočet , ale on ještě jeden Next i načte, a zase spustí to co je v jeho bloku.citovat

elninoslov(26.3.2024 7:50)#056371

Option Explicit
To slúži na to, aby debuger kontroloval, či máte definované všetky premenné. Aby ste nepoužil nedefinovanú premennú.

TimeValue("00:00:01")
TimeSerial(0, 0, 1)
je to isté, len jedno dá sekundu času z textového času, a druhé čísel jednotlivých zložiek času (hod, min, sek)

Menej ako sekunda? To je informačné okno, načo tam potrebujete desatiny, to nie sú stopky. Ak požadujete presnejší timer, tak treba použiť ďalšie API a systémový timer, ale s tým je problematická práca. Nesmiete pri ňom debugovať alebo pozastaviť makro, spadne Excel.citovat

PavDD(26.3.2024 10:22)#056372

Děkuju !

Začátečník(26.3.2024 14:39)#056373

PavDD napsal/a:

If konecForm Then 'MsgBox "zmačknul jsi storno"
Exit For
GoTo konec
End If

If konecForm Then
Exit For
GoTo konec
End If

nechal jsem záměrně dvě možnosti jak vyskočit z cyklu
Exit for vyskočí za konec cyklu (Next i)
GoTo konec skočí na návěští konec, tedy přeskočí vše mezi Next i a návěští.
Stačí jen zakomentovat, nebo vynechat, nechtěné ukončení, v tomto případě Exit For

Jinak vynucení deklarace proměnných velice doporučuji včetně deklarace jejich datových typů. https://wall.cz/excel-navod/deklarace-promennych-a-prehled-datovych-typu-vba

Příloha: zip