[es] - Tab Key in Excel-VBA

vampslayer
fsr
Charlotte

Član broj: 282983
Poruke: 42
*.CARNet.hr.

Profil

^{21.04.2011. u 00:55 - pre 158 meseci}

Donekle realiziran tab key:

Code:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 9 Then
TextBox2.Activate
End If
End Sub

Problem je sto mi stavi kursor na kraj rijeci ili podatka(pa mi se prilikom unosa novog podatka stari ne brise) tako da u biti nije pravi tab key ,a tab key u biti omogucava da odma zadas novi podatak(u biti ti kao odma selektira sve u drugom textboxu-tako da pri upisu novog podatka odmah brise stari)

Jel se moze napravit kakav vba koji selektira pritom cijeli text ili podatak(broj) u onom textboxu koji je tek postao aktivan

Odgovor na temu

neptuncokg
Predrag M
racunovodja
Kragujevac

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

+9 Profil

Re: Tab Key in Excel-VBA

^{26.04.2011. u 15:04 - pre 158 meseci}

Ne znam kako uopste tvoj makro radi, kad u njemu imas nepostojece svojstvo za textbox - "TextBox2.Activate". Kad se umesto ovoga stavi "TextBox2.SetFocus" dobija se to sto si hteo. Pogledaj u primeru. Pozdrav

_{[Ovu poruku je menjao neptuncokg dana 26.04.2011. u 16:30 GMT+1]}

Prikačeni fajlovi

TabKey.xls - 29k

Odgovor na temu

vampslayer
fsr
Charlotte

Član broj: 282983
Poruke: 42
*.CARNet.hr.

Profil

Re: Tab Key in Excel-VBA

^{26.04.2011. u 22:41 - pre 158 meseci}

Ah,da tvoj primjer radi sa form kontrolama,gdje nema metoda Activate,a u activexKontrola(moj slucaj) nema SetFocus
:P,smijesno.

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
194.106.170.*

Sajt: www.gowi.rs

+109 Profil

Re: Tab Key in Excel-VBA

^{27.04.2011. u 10:35 - pre 158 meseci}

Bez obzira da li se radi o formi ili ne aktivacija textbox controle (Set Focus) ne utiče na selekciju. Da bi tekst unutar kućice bio selektovan koriste se svojstava
TextBox.SelStart i TextBox.SelLength

Code:
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 9 Then
        TextBox2.Activate
        TextBox2.SelStart = 0
        TextBox2.SelLength = Len(TextBox2.Text)
End If
End Sub

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Prikačeni fajlovi

TabKeyTest.xlsm - 20.6k

Odgovor na temu

vampslayer
fsr
Charlotte

Član broj: 282983
Poruke: 42
*.CARNet.hr.

Profil

Re: Tab Key in Excel-VBA

^{27.04.2011. u 15:40 - pre 158 meseci}

Citat:

Jpeca: Bez obzira da li se radi o formi ili ne aktivacija textbox controle (Set Focus) ne utiče na selekciju. Da bi tekst unutar kućice bio selektovan koriste se svojstava
TextBox.SelStart i TextBox.SelLength

Hvala ti Jpeca,to je to sto sam trazio,zahvaljujem.

Odgovor na temu

vampslayer
fsr
Charlotte

Član broj: 282983
Poruke: 42
*.CARNet.hr.

Profil

Re: Tab Key in Excel-VBA

^{10.05.2011. u 08:05 - pre 157 meseci}

A jel moguce jos dodati ovo:
Vidi,imam tri grupe textboxova:
I sad pomocu ovog koda gore navedenog setam po textboxovima u krug(naravno pritiskom nam tab key)->ali sve to u jednoj grupi.I to je bas sto hocu,ne zelim da
mi pritiskom na tab key ode kurzor na textbox iz druge ili trece grupe.A kad misa pozicioniram nam neki od textboxova unutar druge ili trece grupe onda setam samo po njima.
To je sve uredu,ali jel se moze napravit da umjesto da misa pozicioniram na drugu grupu,da dva puta kliknem tab key ili tab key+npr x
i onda da mi skoci na sljedecu grupu.Znaci ne bi zelio misa koristit??
Vjerojatno moze da se napravi macro i da se aktivira iduca grupa preko ctrl+nesto,ali jel moze preko tab key-a.

I jos jedna stvar:
Buduci da imam podosta macroa koje aktiviram sa ctrl+nesto,kako mogu provjerit koje slovo mi je slobodno za macro,ne zelim koristit ctrl+a za macro nego neko slovo koje nema nikakvu funkciju.
Jel se moze vidit lista slobodnih ili pak zauzetih slova.

Ovako sam ja to realiziro preko space tipke,ali je problem sto nakon sto kliknem na space on mi pobrise i sadrzaj onog textboxa u kojem se nalazim,u mom slucaju textbox1

Code:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = 9 Then
        TextBox3.Activate
        TextBox3.SelStart = 0
        TextBox3.SelLength = Len(TextBox3.Text)
ElseIf KeyCode = 32 Then
        TextBox2.Activate
        TextBox2.SelStart = 0
        TextBox2.SelLength = Len(TextBox2.Text)
        End If
End Sub

_{[Ovu poruku je menjao vampslayer dana 10.05.2011. u 09:40 GMT+1]}

Odgovor na temu