F1 F2 F3 gibi tuşlara komut eklemek.

[ahbey]

Bir userform üzerinde çalışırken F2 tuşuna basınca, command button5'deki işlevi yaptırabilirmiyiz.
Birde bu tuşlara nasıl komut ekleyebiliriz.

Þimdiden tşk.


:hihoho: :hihoho: :hihoho:

 

[Levent Menteşoğlu]

Aşağıdaki kodda msgbox yazan satır yerine çalışacak kodları yazmanız yeterlidir.

[vb:1:eb4a3fb22a]Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 113 Then
MsgBox "merhaba"
End If
End Sub[/vb:1:eb4a3fb22a]

Not:F3 keycode=114, F4 keycode=115 tir.

 

[ahbey]

sayın leventm,
verdiğiniz kodu userforma ekledim. Ama herhangi bir sonuç elde edemedim.
Ama userform çalıştığında textbox aktif hale geliyor. Çalışmamasına bunlar neden olabilir mi?

 

[danersin]

Evet.

Aynı kodları textbox'ın keydown olayına bağlayıp kullanabilirsiniz.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 113 Then
MsgBox "merhaba"
End If
End Sub

 

[ahbey]

tşk.
size bir soru daha sorabilir miyim?
benim bu işlemi userformda işlem yaparken herhangi bir textbox veya herhangi bir combobox üzerinde iken tek bir komut ile yaptırmam mümkün mü? her textbox un özelliğine veya comboboxun özelliğine yazmadan tek bir komutla yazmam mümkün mü?



:hihoho: :hihoho: :hihoho:

 

[tevfikseremet]

selam
ara butonunda "F5 tuşuna kısayol atamak" başlığını aratınız ..
link atmayı bilmiyorum da...
iyi çalışmalar ...

 

[dumanibo]

Aşağıdaki şekilde de bu tuşlara kolayca görev atayabilirsiniz.

Application.OnKey "{ESC}", "Makro1"
Application.OnKey "{F2}", "Makro2"

 

[enginbagci]

merhaba
bende 6 tane texbox 4 tane combobox olan formum var butun textox ve comboboxların uzerınde kullanabilmek icin bir kod varmı

 

[enginbagci]

:hey:

 

[enginbagci]

:yardim: :yardim:

 

[Levent Menteşoğlu]

Sn engin

Sorunuzdan ne kasdettiğinizi biraz daha açarmısınız.

 

[enginbagci]

f1

userformun her yerinde kullanabilmek icin söyledim.... verilen kodda sadece texbox1 de kullanabiliyorum.

 

[Levent Menteşoğlu]

Sanıyorum bunun için class module kullanmak gerekiyor, fakat bu konudada bilgi sahibi değilim. Bu durumda her nesnenin keydown olayına ilgili kodları yazmalısınız.

 

[enginbagci]

anlıyorum teşekkürler peki nesnenin icine iki yada üc ayrı kod yazabilirmiyim

 

[Levent Menteşoğlu]

Elbette nesnenin her olayına ayrı ayrı kod yazabilirsiniz.

 

[ali semerci]

tam olarak, F4 tuşuna basınca tarih atsın diye uğraştım uzun yoldan makro kaydettim. kısa yolu nasıl acaba?

 

[ali semerci]

Sub tarihat()
'
' tarihat Makro
' Makro ccc tarafından 26.10.2005 tarihinde kaydedildi.
'
' Klavye Kısayolu: Ctrl+ç
'
ActiveCell.FormulaR1C1 = Date
Application.OnKey "{F4}", "tarihat"
End Sub

vay be ben de yaptım sonunda...... kendimi tebrik ediyorum.
ex(el web tr yi tebrik etmemek olur mu?

 

[eyüppsen]

Merhaba
Daha önce kullandığım Class modüleli çalışmama kısayolları uyarladım ekte gönderiyorum yalınız TextBoxlarda çalışıyor.