Giúp code phân biệt trạng thái của CAPSLOCK (1 người xem)

[congnguyen88]

Ví dụ khi đèn báo Caps Lock sáng thì Range("A1").value = 1
Ví dụ khi đèn báo Caps Lock Không sáng thì Range("A1").value = 0

Mong các bạn giúp mình. Thank

 

[lacbuidoi]

Hy vọng trúng ý bạn:

 

[ndu96081631]

Ví dụ khi đèn báo Caps Lock sáng thì Range("A1").value = 1
Ví dụ khi đèn báo Caps Lock Không sáng thì Range("A1").value = 0

Mong các bạn giúp mình. Thank

Tặng bạn hàm tổng quát luôn:

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Function KeyState(ByVal lKey As Long) As Boolean
  Application.Volatile
  KeyState = CBool(GetKeyState(lKey))
End Function

Để lấy trạng thái của phím CAPSLOCK ta làm như sau:
- Trên bảng tính, gõ công thức =KeyState(20) ---> Hàm trả về kết quả dạng TRUE, FALSE
- Muốn kết quả là 0 và 1 thì gõ =1*KeyState(20)
- Khi bạn thay đổi trạng thái phím CAPSLOCK, hãy bấm F9 để hàm cập nhật kết quả
Vấn đề là con số 20 này ở đâu mà có?
Bạn vào cửa sổ VBA, bấm F1, gõ từ khóa Keycode Constants ---> Sẽ có cả đống
File đính kèm dưới đây tôi đã ghi luôn nguyên danh sách giá trị các phím tại sheet 2 rồi đấy

 

[congnguyen88]

Tặng bạn hàm tổng quát luôn:

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Function KeyState(ByVal lKey As Long) As Boolean
  Application.Volatile
  KeyState = CBool(GetKeyState(lKey))
End Function

Để lấy trạng thái của phím CAPSLOCK ta làm như sau:
- Trên bảng tính, gõ công thức =KeyState(20) ---> Hàm trả về kết quả dạng TRUE, FALSE
- Muốn kết quả là 0 và 1 thì gõ =1*KeyState(20)
- Khi bạn thay đổi trạng thái phím CAPSLOCK, hãy bấm F9 để hàm cập nhật kết quả
Vấn đề là con số 20 này ở đâu mà có?
Bạn vào cửa sổ VBA, bấm F1, gõ từ khóa Keycode Constants ---> Sẽ có cả đống
File đính kèm dưới đây tôi đã ghi luôn nguyên danh sách giá trị các phím tại sheet 2 rồi đấy

Thank anh nhiều, Quá giỏi khâm phục anh

 

[phongkiemtinh]

Tặng bạn hàm tổng quát luôn:

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Function KeyState(ByVal lKey As Long) As Boolean
  Application.Volatile
  KeyState = CBool(GetKeyState(lKey))
End Function

Để lấy trạng thái của phím CAPSLOCK ta làm như sau:
- Trên bảng tính, gõ công thức =KeyState(20) ---> Hàm trả về kết quả dạng TRUE, FALSE
- Muốn kết quả là 0 và 1 thì gõ =1*KeyState(20)
- Khi bạn thay đổi trạng thái phím CAPSLOCK, hãy bấm F9 để hàm cập nhật kết quả
Vấn đề là con số 20 này ở đâu mà có?
Bạn vào cửa sổ VBA, bấm F1, gõ từ khóa Keycode Constants ---> Sẽ có cả đống
File đính kèm dưới đây tôi đã ghi luôn nguyên danh sách giá trị các phím tại sheet 2 rồi đấy

Thế bác cho em hỏi chút?
Muốn khi mở form excell lên thì auto bật CAPSLOCK thì code như thế nào ah?

 

[nmhung49]

Thế bác cho em hỏi chút?
Muốn khi mở form excell lên thì auto bật CAPSLOCK thì code như thế nào ah?

Sử dụng code này dựa trên function code anh Ndu

Sub Auto_open()
If KeyState(20) = False Then
Application.SendKeys ("{CAPSLOCK}")
End If
End Sub