Xin hỗ trợ gọi lệnh Phím Windows + H bằng vba trong excel

[maiban1986]

Xin chào các anh các chị. Cho em hỏi có cách nào gọi lệnh Phím Windows + H bằng vba không ạ

 

[huhumalu]

#If Win64 Then
Public Declare PtrSafe Sub keybd_event Lib "user32" ( _
  ByVal bVk As Byte, _
  ByVal bScan As Byte, _
  ByVal dwFlags As Long, _
  ByVal dwExtraInfo As Long)
#Else
Public Declare Sub keybd_event Lib "user32" ( _
  ByVal bVk As Byte, _
  ByVal bScan As Byte, _
  ByVal dwFlags As Long, _
  ByVal dwExtraInfo As Long)
#End If

Sub an_phim_win_h()
  keybd_event 91, 0, 0, 0 'Nhan phim Window'
  keybd_event vbKeyH, 0, 0, 0 'Nhan phim H'
 
  keybd_event 91, 0, 2, 0 'Nha phim Window'
  keybd_event vbKeyH, 0, 2, 0 'Nha phim H'
End Sub

Mình xem ở đây Link