api that finds which key is pressed Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Option Base 1
Option Explicit

Type POINTAPI16
    x As Integer
    y As Integer
End Type

Type MSG16
    hWnd As Integer
    message As Integer
    wParam As Integer
    lParam As Long
    time As Long
    pt As POINTAPI16
End Type

Declare Function FindWindow16 Lib "User" Alias "FindWindow" (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Integer

Declare Function PeekMessage16 Lib "User" Alias "PeekMessage" (lpMsg As MSG16, _
    ByVal hWnd As Integer, ByVal wMsgFilterMin As Integer, ByVal wMsgFilterMax As Integer, _
    ByVal wRemoveMsg As Integer) As Integer

Declare Function TranslateMessage16 Lib "User" Alias "TranslateMessage" (lpMsg As MSG16) As Integer

Type POINTAPI32
    x As Long
    y As Long
End Type

Type MSG32
    hWnd As Long
    message As Long
    wParam As Long
    lParam As Long
    time As Long
    pt As POINTAPI32
End Type

Declare Function FindWindow32 Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long

Declare Function PeekMessage32 Lib "USER32" Alias "PeekMessageA" (lpMsg As MSG32, _
    ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, _
    ByVal wRemoveMsg As Long) As Long

Declare Function TranslateMessage32 Lib "USER32" Alias "TranslateMessage" (lpMsg As MSG32) As Long
Sub procTestKey()
Dim iCount As Integer
Dim sKey As String

Application.DisplayStatusBar = True
iCount = 0
Do
    iCount = iCount + 1
    Application.StatusBar = "Loop: " & iCount & "  Press any key to stop."
    If InStr(1, Application.OperatingSystem, "32") = 0 Then
        sKey = funCheckKey16
    Else
        sKey = funCheckKey32
    End If
Loop Until sKey  ""
MsgBox "You pressed: " & sKey
Application.StatusBar = False
End Sub
Function funCheckKey16() As String
Dim msgMessage As MSG16
Dim iHwnd As Integer
Dim i As Integer

Const WM_CHAR As Integer = &H102
Const WM_KEYDOWN As Integer = &H100
Const PM_REMOVE As Integer = &H1
Const PM_NOYIELD As Integer = &H2

funCheckKey16 = ""
iHwnd = FindWindow16("XLMAIN", Application.Caption)
i = PeekMessage16(msgMessage, iHwnd, WM_KEYDOWN, WM_KEYDOWN, PM_REMOVE + PM_NOYIELD)
If i  0 Then
    i = TranslateMessage16(msgMessage)
    i = PeekMessage16(msgMessage, iHwnd, WM_CHAR, WM_CHAR, PM_REMOVE + PM_NOYIELD)
    funCheckKey16 = Chr(msgMessage.wParam)
End If
End Function
Function funCheckKey32() As String
Dim msgMessage As MSG32
Dim iHwnd As Long
Dim i As Long

Const WM_CHAR As Long = &H102
Const WM_KEYDOWN As Long = &H100
Const PM_REMOVE As Long = &H1
Const PM_NOYIELD As Long = &H2

funCheckKey32 = ""
iHwnd = FindWindow32("XLMAIN", Application.Caption)
i = PeekMessage32(msgMessage, iHwnd, WM_KEYDOWN, WM_KEYDOWN, PM_REMOVE + PM_NOYIELD)
If i  0 Then
    i = TranslateMessage32(msgMessage)
    i = PeekMessage32(msgMessage, iHwnd, WM_CHAR, WM_CHAR, PM_REMOVE + PM_NOYIELD)
    funCheckKey32 = Chr(msgMessage.wParam)
End If
End Function

No	Macro Name
1	api that finds which key is pressed
2	know which key is pressed
3	excel operators hk
4	Calculate the duration of the mp3 file (type the file path and select that cell)
5	still inputbox
6	informs which button is pressed (commandbutton)
7	macro that finds the IP number
8	Create your own extensions and functions in excel
9	calculator on / off
10	return one or more values in a macro
11	copy-paste blocking
12	just entering numbers in the textbox
13	assign protection to sheet / page tabs
14	Codes that prevent and open the vba window and access codes
15	get information from the registry
16	cut cancel & open copy
17	cut cancel & open copy
18	automatic opening and operation of the macro
19	Create a user-defined menu / Create your own menu and assign a macro to them in the "Extensions" section
20	sorts data and finds name

Excel Free Macros (VBA)

Api That Finds Which Key İs Pressed

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords