< návrat zpět

MS Excel

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

Zaslal/a zdena 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.
Palooo(30.5.2013 11:56)#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 Subcitovat
zdena(30.5.2013 15:41)#013540
zdena
Nefunguje to, tohle řešení jsem našla na NETu
Prosím o jiné řešení.
Děkuji 6citovat
Palooo(30.5.2013 15:53)#013541
avatar
musi fungovat 5 ale skusim naist aj inecitovat
Palooo(30.5.2013 16:05)#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 Subcitovat
icon eLCHa(31.5.2013 6:46)#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
Opičák(31.5.2013 10:30)#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
zdena(1.6.2013 21:33)#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 eLCHa(3.6.2013 4:48)#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 Subcitovat
zdena(5.6.2013 17:42)#013710
zdena
Jak jednoduché a funkční.
Děkuji 1citovat

Uživatelské menu

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

Menu

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.

On-line nástroje