sporočilo - počakaj trenutek......
sporočilo - počakaj trenutek......
živio
imam narejeno formo čez cel ekran ki mi odpira,preračunava in
tako dalje.včasih deluje(melje) zadeva bolj počasi,zato bi rad
vnesel nakakšno sporočilo,ki bi se aktiviralo z napisom,recimo:
podatki se obdelujejo,počakaj trenutek....
vesel bom vašega odgovora
imam narejeno formo čez cel ekran ki mi odpira,preračunava in
tako dalje.včasih deluje(melje) zadeva bolj počasi,zato bi rad
vnesel nakakšno sporočilo,ki bi se aktiviralo z napisom,recimo:
podatki se obdelujejo,počakaj trenutek....
vesel bom vašega odgovora
Pozdravljeni,
Najbolje je sporočila pisati v statusno vrstico, saj je slednja temu tudi namenjena. Na začetku kode preprosto zapišite:
Toda na koncu ne pozabite zapisati:
Saj s to programsko vrstico, statusno vrstico vrnete nazaj v upravljanje Excelu. Če na koncu ne zapišete '... = false', bo v statusni vrstici, do ponovnega zagona, zapisano vaše sporočilo.
Najbolje je sporočila pisati v statusno vrstico, saj je slednja temu tudi namenjena. Na začetku kode preprosto zapišite:
Koda: Izberi vse
Application.StatusBar = "počakajte trenutek..."
Koda: Izberi vse
Application.StatusBar = false
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
-
- Prispevkov: 17
- Pridružen: To Jul 26, 2005 9:55 am
- Kontakt:
1)
Ena zelo enostavna varianta bi bila tako da kreirate eno formo in jo pred začetkom premlevanja pokličete (seveda oblikovana forma nakateri piše "počakajte trenutek,,,," in jo pred koncem programa zaprete.
forma = ime forme
PRIMER:
Sub premlevanje()
forma.Show
*
*
*
izvajanje programa
*
*
*
forma.Hide
End Sub
2.
Ena varjanta je da kličete statusno vrstico in v njo vpišete željeni tekst in ga na koncu izpraznite (to uporabniki verjetno ne bodo niti opazili)
3.) Da bi se poigrali s timerjem in bi uporabnik natanko vedel koliko časa mora počakati do konca premlevanja.
lp
Sebastijan
Ena zelo enostavna varianta bi bila tako da kreirate eno formo in jo pred začetkom premlevanja pokličete (seveda oblikovana forma nakateri piše "počakajte trenutek,,,," in jo pred koncem programa zaprete.
forma = ime forme
PRIMER:
Sub premlevanje()
forma.Show
*
*
*
izvajanje programa
*
*
*
forma.Hide
End Sub
2.
Ena varjanta je da kličete statusno vrstico in v njo vpišete željeni tekst in ga na koncu izpraznite (to uporabniki verjetno ne bodo niti opazili)
3.) Da bi se poigrali s timerjem in bi uporabnik natanko vedel koliko časa mora počakati do konca premlevanja.
lp
Sebastijan
živio
hvala za vajina nasveta.no mala težava je v tem ,da imam formo čez
celi ekran,tako da je statusna vrstica neopazna.ne bi rad sreminjal forme
ker oblikovno lepo izgleda.
v drugem nasvetu pa ne razumem,ko vključim novo formo,ki jo je predlagal kolega,pa se makro izvaja le ko sem to novo formo na "križcu"
izklopil,kar je tudi logično.prosil bi dodatno razlago za ta vaš primer,
kako vključiti ,da se bo forma samodejno pojavila in skrila medtem,ko se bo makro izvedel.
za odgovor se vam zahvaljujem.
hvala za vajina nasveta.no mala težava je v tem ,da imam formo čez
celi ekran,tako da je statusna vrstica neopazna.ne bi rad sreminjal forme
ker oblikovno lepo izgleda.
v drugem nasvetu pa ne razumem,ko vključim novo formo,ki jo je predlagal kolega,pa se makro izvaja le ko sem to novo formo na "križcu"
izklopil,kar je tudi logično.prosil bi dodatno razlago za ta vaš primer,
kako vključiti ,da se bo forma samodejno pojavila in skrila medtem,ko se bo makro izvedel.
za odgovor se vam zahvaljujem.
-
- Prispevkov: 17
- Pridružen: To Jul 26, 2005 9:55 am
- Kontakt:
Pozdravljeni,
mene zanima rešitev na vprašanje Petra:
Boštjan
mene zanima rešitev na vprašanje Petra:
Hvala in LPv drugem nasvetu pa ne razumem,ko vključim novo formo,ki jo je predlagal kolega,pa se makro izvaja le ko sem to novo formo na "križcu"
izklopil,kar je tudi logično.prosil bi dodatno razlago za ta vaš primer,
kako vključiti ,da se bo forma samodejno pojavila in skrila medtem,ko se bo makro izvedel.
Boštjan
Pozdravljeni,
Če je nek obrazec modalen potem, dokler se izvaja koda v njem, ostali del programa "stoji", če pa je obrazec nemodalen, pa ga lahko prikažete, izvajate kodo dalje in nato zaprete.
Kodo z nemodalnim obrazcem imate prikazano spodaj. Nemodali obrazec odprete z .Show 0 in v tem primeru se obrazec odpre, koda pa se izvaja dalje. V tem konkretnem primeru se na obrazcu vsako sekundo številka poveča za 1.
Da bo primer tekel, v VBA-ju dodajte nov obrazec, kodo pa prekopirajte v urejevalnik ter poženite.
Če je nek obrazec modalen potem, dokler se izvaja koda v njem, ostali del programa "stoji", če pa je obrazec nemodalen, pa ga lahko prikažete, izvajate kodo dalje in nato zaprete.
Kodo z nemodalnim obrazcem imate prikazano spodaj. Nemodali obrazec odprete z .Show 0 in v tem primeru se obrazec odpre, koda pa se izvaja dalje. V tem konkretnem primeru se na obrazcu vsako sekundo številka poveča za 1.
Da bo primer tekel, v VBA-ju dodajte nov obrazec, kodo pa prekopirajte v urejevalnik ter poženite.
Koda: Izberi vse
' www.matjazev.net
' 01.03.2006
Sub NemodalniObrazec()
UserForm1.Show 0
For i = 1 To 10
UserForm1.Caption = i
UserForm1.Repaint
Application.Wait Now() + TimeValue("0:00:01")
Next
UserForm1.Hide
End Sub
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator