Tab Key in Excel-VBA

Tab Key in Excel-VBA 21.04.2011. u 01:55 · pre 189 meseci #1

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

Re: Tab Key in Excel-VBA 26.04.2011. u 16:04 · pre 188 meseci #2

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

TabKey.xls29k

Re: Tab Key in Excel-VBA 26.04.2011. u 23:41 · pre 188 meseci #3

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

Re: Tab Key in Excel-VBA 27.04.2011. u 11:35 · pre 188 meseci #4

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

Potpis

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

TabKeyTest.xlsm20.6k

Re: Tab Key in Excel-VBA 27.04.2011. u 16:40 · pre 188 meseci #5

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

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

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

Re: Tab Key in Excel-VBA 10.05.2011. u 09:05 · pre 188 meseci #6

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

Forum kao aplikacija na telefonu

Srodne teme