Capslock ve Numlock Tuşu

[walabi]

Merhaba,

Excelde makro kullanırken bazı durumlarda Numlock ve Capslock Tuşları kapalı oluyor.

Bu tuşlar kapalı olduğu zaman Eğer Kapalı ise Aç şeklinde bir kod düzeni nasıl olmalıdır.

Aşağıdaki konu bununla ilgili ama tam net cevabı ben üremetim sanırım.

Num Lock tuşu kapalı kalıyor

Merhaba hayırlı geceler. Forumdaki arkadaşların yardımları sayesinde bir excel programı yaptım, ancak sayfayı her kapattığımda num lock tuşu kapanıyor. Sadece bu programı kapatırken yapıyor bunu. Benim istediğim sayfayı kapatırken veya açarken makro, num lock tuşunu kontrol edip, açıksa açık...

www.excel.web.tr

Örneğin aşağıdakini denedim ama sağlıklı değil yanlış değilsem.

Amacım işlem yaparken kapalı hale gelen tuş özelliğini aktif hale getirmek.

Sub Numlock_Aktif()
If numlock = False Then
Application.SendKeys "{NumLock}"
End If
End Sub

 

[Zeki Gürsoy]

#If Win64 Then
    Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As KeyResult
#Else
    Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As KeyResult
#End If

Public Type KeyResult
    Low  As Byte
    High As Byte
End Type

Sub Test()
    'Zeki Gürsoy - 26.10.2024
    '
    Dim t As KeyResult
    
    LSet t = GetKeyState(KeyCodeConstants.vbKeyNumlock)
    
    If t.Low = 0 Then SendKeys "{NUMLOCK}"
End Sub

Microsoft der ki;



.

 

[walabi]

Teşekkürler Zeki bey