"opozorilo"
"opozorilo"
Zdravo.
Je v VBA možno naredit nekakšno "opozorilo" v smislu Loading + kakšne črtice (primer:http://www.google.si/search?hl=sl&tbm=i ... 80&bih=925). Za čas poteka makroja imam Screen.Updating na OFF in v tem času, ko se nekaj dogaja v ozadju bi želel imet na zaslonu podoben znak.
Upam, da sem dovolj jasno razložil, kaj želim (in ne znam naredit)...
Hvala in lep pozdrav
Gregor
Je v VBA možno naredit nekakšno "opozorilo" v smislu Loading + kakšne črtice (primer:http://www.google.si/search?hl=sl&tbm=i ... 80&bih=925). Za čas poteka makroja imam Screen.Updating na OFF in v tem času, ko se nekaj dogaja v ozadju bi želel imet na zaslonu podoben znak.
Upam, da sem dovolj jasno razložil, kaj želim (in ne znam naredit)...
Hvala in lep pozdrav
Gregor
Re: "opozorilo"
Risati ga morate sami in to znotraj makra. Ko se makro izvaja (verjetno v kakšni zanki), daste v zanko (na vsakih X korakov) neko kodo, ki :
- postavi ScreenUpdating na TRUE,
- doriše nekaj črtic /pikic /znakov in
- postavi ScreenUpdating na FALSE
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: "opozorilo"
Kaj pa če bi s kodo vklopil neko sliko.gif za čas izvajanja makroja?
Re: "opozorilo"
Slike ne morete kar "vklopiti", ker je nimate kam postaviti. Narediti morate nov obrazec (UserForm) in nanjo "obesiti" sliko in v kodi odpreti ter prikazati obrazec, izvesti makro ter nato zapreti obrazec.
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: "opozorilo"
Ali pa recimo napišeš nek Msgbox v kodi, tam kjer želiš da uporabnik počaka in da ti ne klika po nepotrebnem.
Omogočiš screen_update in na koncu ponovno onemogočiš.
Vsaj tako jaz rešujem zadevo za tiste, ki postanejo nestrpni ob izvajanju makrojev.
Moje skromno mnenje.![Embarassed :oops:](./images/smilies/icon_redface.gif)
Omogočiš screen_update in na koncu ponovno onemogočiš.
Vsaj tako jaz rešujem zadevo za tiste, ki postanejo nestrpni ob izvajanju makrojev.
![Cool 8)](./images/smilies/icon_cool.gif)
Moje skromno mnenje.
![Embarassed :oops:](./images/smilies/icon_redface.gif)
Re: "opozorilo"
Sem malo poskušal, pa mi nekak te rešitve ne uspe spravit v tako obliko kot bi rad. Makro "Uredi" uredi dokument (tega urejanja ne bi rad gledal).
Del moje kode bi izgledal tako:
Kje tukaj uvrstim tisti Msgbox?
Lp, Gregor
Del moje kode bi izgledal tako:
Koda: Izberi vse
Sub list()
Application.ScreenUpdating = False
Call Uredi
Application.ScreenUpdating = True
End Sub
Lp, Gregor
Re: "opozorilo"
MSGBox nikamor, saj bi vam slednji ustavil izvajanje makra, dokler bi uporabnik ne pritisnil tipke OK.... Tega pa verjetno ne želite ![Wink ;)](./images/smilies/icon_wink.gif)
![Wink ;)](./images/smilies/icon_wink.gif)
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: "opozorilo"
To mi je jasno. Poskušal sem uporabiti rešitev od uporabnika "bluespeed", pa mi ni uspelo... ![Sad :(](./images/smilies/icon_sad.gif)
![Sad :(](./images/smilies/icon_sad.gif)
Re: "opozorilo"
Čakajte; če vam je jasno, da bo ta rešitev ustavila izvajanje makra pa ste jo vseeno poskusili implementirati? Zakaj? No saj implementacija je dokaj trivialna. V vas makro 'Uredi' pač na poljubno mesto dajte:
Koda: Izberi vse
MsgBox "To je neko opozorilo!"
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: "opozorilo"
Lahko pa poizkusite opozorilo rešiti s "Statusbarom", t.j. vrstica levo spodaj, kjer ponavadi piše "Pripravljen"
Če imate npr. neko zanko, ki se zavrti recimo 1000 x, potem lahko zapišete nekako tako:
na koncu pa morate "Statusbar" sprostiti:
Statusbar se namreč spreminja tudi, če imate prej v kodi preprečeno osveževanje ekrana.
Ne vem pa, če vam moj predlog ustreza...
Če imate npr. neko zanko, ki se zavrti recimo 1000 x, potem lahko zapišete nekako tako:
Koda: Izberi vse
For x = 1 To 1000
Application.StatusBar = "Opravljeno " & x & _
" dejanj od " & 1000
'''''zanka se nadaljuje
'......
Koda: Izberi vse
Application.StatusBar = False
Ne vem pa, če vam moj predlog ustreza...
lp,
cedra
cedra
Re: "opozorilo"
![Embarassed :oops:](./images/smilies/icon_redface.gif)
![Smile :-)](./images/smilies/icon_smile.gif)
Pri predlogu cedre pa stvar deluje, bo treba uporabnika pač opozorit, da lahko v statusni vrstici spremlja kaj se dogaja in koliko še manjka do konca.
Še enkrat več hvala za pomoč.
Lep dan