< návrat zpět

MS Excel


Téma: SendKeys "^{HOME}" rss

Zaslal/a 30.5.2013 11:29

zdenaPokud zadám ve VBA funkci SendKeys "^{HOME}",
tak se vypne NUMLOCK, opakovaná funkce SendKeys "^{HOME}" následné zapne NUMLOCK a tak dokola.
Potřebuji, aby po vykonání funkce zůstal NUMLOCK aktivní.
Děkuji za pomoc 6

stop Uzamčeno - nelze přidávat nové příspěvky.

#013526
avatar
skus toto:
Public Const VK_NUMLOCK = &H90
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long

Sub Makro1()
NumStatus = GetKeyState(VK_NUMLOCK)
End Sub
citovat
#013540
zdena
Nefunguje to, tohle řešení jsem našla na NETu
Prosím o jiné řešení.
Děkuji 6citovat
#013541
avatar
musi fungovat 5 ale skusim naist aj inecitovat
#013543
avatar
ok tak nasiel som aj inu moznost :)))

skus:
Sub test()
Dim wsh As Object
Set wsh = CreateObject("WScript.Shell")
wsh.SendKeys "{NUMLOCK}", True
Set wsh = Nothing
End Sub
citovat
icon #013562
eLCHa
Opravdu musíte měnit stav NumLock?
Možná, kdybyste řekla, proč chcete stav měnit, bychom byli schopní vymyslet elegantnější řešení ;)citovat
#013571
Opičák
Mě fce SendKeys "^{HOME}" NUMLOCK nemění.
Jak psal eLCHa proč měnit či neměnit ?
Když už mění, zkuste něco z tohoto příkladu.
Příloha: zip13571_tridyklavesnice.zip (28kB, staženo 31x)
citovat
#013601
zdena
Promiňte mi, nebyla jsem na NETu.
Pro vysvětlení:
při stránkování v listu jsem chtěla přejít na 1.pozici viz CTRL+HOME, ale po akci VBA S 6 endKeys... se mi přepne NUMLOCK Off, pokud následně opakuji ten příkaz, opět se přepne NUMLOCK On a stále dokola.
Přála bych si využít ve VBA zmíněný CTRL+HOME, ale zároveň, aby zůstal NUMLOCK stále zapnutý.
Děkuji za trpělivostcitovat
icon #013616
eLCHa
při stránkování v listu jsem chtěla přejít na 1.pozici viz CTRL+HOME

Vyzkoušejte

Sub subCtrlHome()
With ActiveWindow
.ScrollRow = 1
.ScrollColumn = 1
.VisibleRange.Cells(1).Select
End With 'ActiveWindow
End Sub
citovat
#013710
zdena
Jak jednoduché a funkční.
Děkuji 1citovat

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