MS Excel

Téma: Test aktuálního stavu klávesy CapsLock

Zaslal/a Vovka 11.2.2023 15:28

V Excelu jsem nenašel obdobu vlastnosti Wordu Application.CapsLock, kde True znamená sepnutý CapsLock. Excel tuto vlastnost k mému překvapení nezná. Testovat ten stav zkusmým zadáním znaku s následným zkoumáním výsledku a případným vložením CapsLock pomocí SendKeys mi připadá velmi neohrabané. Znáte pro Excel chytřejší řešení pro automatické nastavení stavu klávesy CapsLock?

Zaslat odpověď >

elninoslov(11.2.2023 16:19)#054417

API, 1. odkaz cez Google, odskúšal som na E2019x64 Pro SK:
Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Const kCapital = 20
Private Const kNumlock = 144

Public Function CapsLock() As Boolean
CapsLock = KeyState(kCapital)
End Function

Public Function NumLock() As Boolean
NumLock = KeyState(kNumlock)
End Function

Private Function KeyState(lKey As Long) As Boolean
KeyState = CBool(GetKeyState(lKey))
End Function

Sub pokus()
MsgBox "CL : " & CapsLock & vbNewLine & _
"NL : " & NumLock
End Sub
EDIT: Jaj aha, Vy to chcete nastaviť, nielen prečítať...citovat

Vovka(11.2.2023 22:12)#054426

Dík za odpověď. Pomohla mi, zbytek už jsem dořešil.citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.