Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

postavljenje eventa na vise kontrola u userformu

[es] :: Office :: Excel :: postavljenje eventa na vise kontrola u userformu

[ Pregleda: 1658 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

anakin14

Član broj: 73683
Poruke: 862
*.dynamic.sbb.rs.



+136 Profil

icon postavljenje eventa na vise kontrola u userformu20.10.2010. u 04:33 - pre 164 meseci
da li je moguce postaviti isti kod na keydown event na sve kontrole u jednoj formi?

npr - da na pritisnut taster esc izlazi iz forme ali da se ne pise posebno na keydown event svake kontrole nego da se odjednom dodeli svim kontrolama...

nesto na primer

for each control in userform2
on keydown...
if keycode =vbkeyescape then...

hvala puno
 
Odgovor na temu

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
*.dynamic.isp.telekom.rs.



+9 Profil

icon Re: postavljenje eventa na vise kontrola u userformu20.10.2010. u 10:43 - pre 164 meseci
Pogledaj resenje koje je JPeca svojevremeno postavio na tu temu.
http://www.elitesecurity.org/t394565-0#2549782
 
Odgovor na temu

anakin14

Član broj: 73683
Poruke: 862
*.mbb.telenor.rs.



+136 Profil

icon Re: postavljenje eventa na vise kontrola u userformu20.10.2010. u 15:50 - pre 164 meseci
nazalost to nije resenje.
http://www.ozgrid.com/VBA/validate-numbers.htm

Code:

Private Sub TextBox1_Change() 

    OnlyNumbers 

End Sub 

 

Private Sub TextBox2_Change() 

    OnlyNumbers 

End Sub 

 

Private Sub TextBox3_Change() 

    OnlyNumbers 

End Sub 


kao sto vidite opet mora u svakom textboxu da se kuca kod.
ja trazim nesto ovako:

for each textbox in userform
OnlyNumbers

da li je ovo moguce?
 
Odgovor na temu

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
*.dynamic.isp.telekom.rs.



+9 Profil

icon Re: postavljenje eventa na vise kontrola u userformu20.10.2010. u 20:59 - pre 164 meseci
Je si li stavio na pocetku procedure u "General" UserForm (kao sto je u primeru)

Private Sub SamoBroj() ' SAMO BROJ

If TypeName(Me.ActiveControl) = "TextBox" Then
With Me.ActiveControl
If Not IsNumeric(.Value) And .Value <> vbNullString Then
MsgBox "Dozvoljen je samo numericki unos !", vbOKOnly, "Greska"
.Value = vbNullString
End If

End With
End If

End Sub
 
Odgovor na temu

anakin14

Član broj: 73683
Poruke: 862
*.mbb.telenor.rs.



+136 Profil

icon Re: postavljenje eventa na vise kontrola u userformu20.10.2010. u 22:24 - pre 164 meseci
ne razumes, jesam stavio i ovo pomaze samo da umesto u svaki textbox pises kod ti pozoves ovaj makro. Meni ne treba to, jer ja i dalje moram na textboxove u keycode event recimo da posebno zovem makro. Ja hocu da odjednom na 50 textboxova postavim iste evente na keydown, keyup i keypress.
 
Odgovor na temu

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
*.dynamic.isp.telekom.rs.



+9 Profil

icon Re: postavljenje eventa na vise kontrola u userformu21.10.2010. u 01:10 - pre 164 meseci
E, pa sad razumem. Ti imas isti problem kao i ja, kad sam postavio temu "Zajednicka naredba za vise txt" (link iz mog prvog odgovora). Resenje koje je postavlo JPeca je i mene samo delimicno zadovoljilo, ali sam shvatio da je to maksimum. Posle toga sam jos malo tragao, ali u VBA - nema resenja. Zaista je naporno u 50-ak kontrola zadati isti kod (npr. "samo broj"). Sta je tu je. A bilo bi lepo to - "For each..." Pa sve u jedan kod... Pozdrav.
 
Odgovor na temu

[es] :: Office :: Excel :: postavljenje eventa na vise kontrola u userformu

[ Pregleda: 1658 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.