NUM-Lock-Taste



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: NUM-Lock-Taste
von: Achim
Geschrieben am: 14.06.2002 - 09:55:05

Hallo Excel-Profi's
Gibt es in Excel eine möglichkeit, dass die NUM-lock Taste
immer eingeschaltet bleibt.
Habe nämlich ein Programm, das ich mit der NUM-Lock Taste
abfragen machen muss und daher immer hin und her wechsle.
Danke im vorraus
Achim

nach oben   nach unten

Re: NUM-Lock-Taste
von: Andreas
Geschrieben am: 14.06.2002 - 10:04:13

Hallo Achim,

schau mal hier nach:
https://www.herber.de/mailing/144901h.htm

Viel Spaß,
Andreas

nach oben   nach unten

Re: NUM-Lock-Taste
von: Hajo
Geschrieben am: 14.06.2002 - 10:11:10

Hallo Achim

27. [VBA] Numlock ein-/ausschalten
versuch's mal mit folgendem API (muß am Anfang eines Moduls stehen):


Const VK_NUMLOCK = &H90
Private Type KeyboardBytes
    kbByte(0 To 255) As Byte
End Type
Private kbArray As KeyboardBytes
Private Declare Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Private Declare Function SetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long

Sub Numlock_ein()
    GetKeyboardState kbArray
    kbArray.kbByte(VK_NUMLOCK) = 1
    SetKeyboardState kbArray
End Sub

Sub Numlock_aus()
    GetKeyboardState kbArray
    kbArray.kbByte(VK_NUMLOCK) = 0
    SetKeyboardState kbArray
End Sub

Sub Numlock_umkehren()
    GetKeyboardState kbArray
    kbArray.kbByte(VK_NUMLOCK) = IIf(kbArray.kbByte(VK_NUMLOCK) = 1, 0, 1)
    SetKeyboardState kbArray
End Sub


von Jörg Lorenz


Gruß Hajo

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Workbook speichern"