Düğmeye farklı tıklama

[merakli_72]

Merhaba arkadaşlar
Excel sayfasına yerleştirilmiş bir düğmeye Ctrl,Alt veya Shift tuşu basılı iken tıklandığını anlayabilirmiyiz.

Teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki kodu kullanabilirsiniz.

Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
 
Sub tusdurumu()
If GetKeyState(16) < 0 Then MsgBox "shift tu&#351;u bas&#305;l&#305;d&#305;r."
If GetKeyState(17) < 0 Then MsgBox "ctrl tu&#351;u bas&#305;l&#305;d&#305;r."
If GetKeyState(18) < 0 Then MsgBox "alt tu&#351;u bas&#305;l&#305;d&#305;r."
End Sub

 

[merakli_72]

Sayın Levent Bey cevabınız için çok teşekkür ederim. Fakat Sanırım Ctrl tuşunun Exceldeki özel misyonundan dolayı Ctrl ile tıklama yapılamıyor. Ctrl ile düğmeye tıkladığınzda tasarım moduna geçiyor düğme. Bunu aşmanın bir yolu olabilirmi
Tekrar teşekkürler...

 

[Levent Menteşoğlu]

Bu sorunu denetim araç kutusundan bir commandbutton kullanarak çözebilirsiniz. Ekli dosyayı inceleyin.