< návrat zpět

MS Excel


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

Zaslal/a 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ěď >

#054417
elninoslov
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
#054426
avatar
Dík za odpověď. Pomohla mi, zbytek už jsem dořešil.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09