Userformda Fonksiyon tuşları kullanılabilinirmi?

[turan1971]

Merhaba,
Aşağıda kodlarla excel çalışma kitabı aktif iken F10 tuşuna basıldığında "MyMacro" makrosu çalıştırılabilinmektedir. Fakat benim amacım Userform aktif iken fonksiyon tuşlarını kullanmak.
Userform aktif iken, userformda bulunan ileri tuşunu (commandbutton) fonksiyon tuşlarına nasıl atayabilirmiyim?
--------------
Private Sub Workbook_BeforeClose(Cancel As Boolean #41;
Application.OnKey "{F10}", ""
End Sub

Private Sub Workbook_Open()
Application.OnKey "{F10}", "MyMacro"
End Sub

Sub MyMacro
Activecell.Offset(0,1).Select
End Sub

 

[turan1971]

Her bir nesnenin KeyDown hareketine aşağıdaki kod yazılır ve Userform_Click olayına yönlendirilirse işlem gerçekleşiyor...

Örnek:
Public degisken as Integer
Private Sub textbox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
degisken= KeyCode
UserForm_Click
End Sub
Private Sub combobox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
degisken= KeyCode
UserForm_Click
End Sub
Private Sub commandbutton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
degisken= KeyCode
UserForm_Click
End Sub


Private Sub UserForm_Click()
KeyCode = degisken
Select Case KeyCode
Case vbKeyF1
Msgbox "F1"
Case vbKeyF2
Msgbox "F2"
Case vbKeyF3
Msgbox "F3"
Case Else
End Select
End Sub

 

[Korhan Ayhan]

Merhaba,

Userform üzerinde her bir nesnenin "KeyDown" olayına kod yazarak bu işlemi yapabilirsiniz. Tabi nesne sayınız arttıkça bu işlem sizin için çileye dönüşebilir. Bunun için aşağıdaki linkte class modüle ile hazırlanmış bir örnek var. İnceleyerek kendi çalışmanıza uyarlayabilirsiniz.

http://www.excelforum.com/excel-programming/654457-function-keys-with-userforms.html