UserForm açılır açılmaz focus yapmak

[pisisler]

Merhabalar.

Böyle basit bir şeyi Excel'de yapamamış olmak çok tuhafıma gidiyor şu anda. Hem yabancı forumlarda hem de yerli forumlarda aradım bulamadım.

UserForm'u açmak için bir butonum var. Butona tıklayıp form açıldığı anda TextBox1'in focus olmasını ve böylece direkt yazmaya başlmayı istiyorum.

Formu açtığım buton koduna formu aç komutundan sonra "TextBox1.SetFocus" yazdım işe yaramadı (Object required hatası verdi). Bu kodu UserForm kod sayfasına yazdım, aynı şey..

Nasıl yapabileceğimize ilişkin fikri olan var mı?

Bir de aynı TextBox1'in değeri yazılıp enter'a basıldığında belli bir tuşun tıklanmasını istiyorum. Şu anda enter'a basıldığında istediğim tuş focus oluyor ama nasıl tıklatabiliriz onu?

 

[serqet]

Kodu bu şekilde ekleyiniz.

Private Sub UserForm_Initialize()
TextBox1.SetFocus
End Sub

 

[ExcelF1]

Tuştan kastınız CommandButton nesnesi sanırım. Aşağıdaki şekilde deneyebilirsiniz.

Private Sub CommandButton1_Click()
MsgBox "Merhaba"
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CommandButton1_Click
End Sub

Private Sub UserForm_Activate()
TextBox1.SetFocus
End Sub

 

[Levent Menteşoğlu]

Açılışta setfocus için kod yazmanıza gerek yok. İlgili nesnenin properties penceresindeki tabindex değerini 0 (sıfır) yaparsanız, imleç direk bu nesnede görünecektir.

 

[pisisler]

İlgilenen arkadaşlara teşekkür ederim. Tabindex'i uygulamak aklıma geldi ama bunun direk focus yapacağını hiç düşünmediğim için denemedim. En etkili yöntem bu, Levent hocanın verdiği.

İkinci soruya kimse değinmemiş Onu da butonun Default değerini true yaparak çözdüm az önce.

 

[ExcelF1]

2.sorunuz neydi ki ?
Biz 2.soru diye 3.mesajda cevap vermeye çalışmıştık.