Userform'daki Command button F fonksiyon Tuşları yönetme Yardım!!

[anthraxx02]

merhabalar;

mevcut bir userform var içerisinde Command buttonlar mevcut kodları falan sorunsuz çalışmakta isteğim butonlara F4-F5-F6 gibi fonksiyon tuşlarının basıldığında o buton basılsın istiyorum yardımınız için şimdiden teşekkürler.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kod ile yapılabilir.
Ancak form üzerindeki bütün kontrollerin "_KeyDown" olayını aynı şekilde yapmalısınız. Fonksiyon tuşlarına basıldığında hangi kontrol aktif olursa olsun o kontrolün "_KeyDown" olayı tetiklenip kodlar çalışacaktır.

Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    F_Tuslari KeyCode
End Sub

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    F_Tuslari KeyCode
End Sub

Sub F_Tuslari(Tus As MSForms.ReturnInteger)
    Select Case Tus
        Case 112
            MsgBox "f1"
        Case 113
            MsgBox "f2"
        Case 114
            MsgBox "f3"
    End Select
End Sub

 

[anthraxx02]

Merhaba.

Aşağıdaki kod ile yapılabilir.
Ancak form üzerindeki bütün kontrollerin "_KeyDown" olayını aynı şekilde yapmalısınız. Fonksiyon tuşlarına basıldığında hangi kontrol aktif olursa olsun o kontrolün "_KeyDown" olayı tetiklenip kodlar çalışacaktır.

Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    F_Tuslari KeyCode
End Sub

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    F_Tuslari KeyCode
End Sub

Sub F_Tuslari(Tus As MSForms.ReturnInteger)
    Select Case Tus
        Case 112
            MsgBox "f1"
        Case 113
            MsgBox "f2"
        Case 114
            MsgBox "f3"
    End Select
End Sub

kod kısmını anlattığınız gibi aptım lakin çalıştıramadım başka yöntemi yok mu ?

 

[Muzaffer Ali]

Dosyanız ekleyin bakalım.

 

[Korhan Ayhan]

Linkte bazı bilgiler paylaşılmış.

Userformu F tuşları ile kontrol etmek

Merhaba, Dosyanın açılışına yazılan Application.OnKey "{F11}", "GÖSTER" şeklinde bir kod ile F11 tuşu GÖSTER makrosunu çalıştırıyor. Bu kodu userformun İnitialize olayına yazdım ama etkili olmadı. Userformda F tuşlarını kullanmanın bir yolu var mıdır? Umarım vardır..:) İlgilenen arkadaşlara...

www.excel.web.tr