MS Excel

Téma: SendKeys "^{HOME}"

Zaslal/a zdena 30.5.2013 11:29

Pokud 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

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

Palooo(30.5.2013 11:56)#013526

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

zdena(30.5.2013 15:41)#013540

Nefunguje to, tohle řešení jsem našla na NETu
Prosím o jiné řešení.
Děkuji

Palooo(30.5.2013 15:53)#013541

musi fungovat

ale skusim naist aj ine

Palooo(30.5.2013 16:05)#013543

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

eLCHa(31.5.2013 6:46)#013562

Opravdu musíte měnit stav NumLock?
Možná, kdybyste řekla, proč chcete stav měnit, bychom byli schopní vymyslet elegantnější řešení ;)

Opičák(31.5.2013 10:30)#013571

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: zip

13571_tridyklavesnice.zip (28kB, staženo 34x)

zdena(1.6.2013 21:33)#013601

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

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ělivost

eLCHa(3.6.2013 4:48)#013616

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

zdena(5.6.2013 17:42)#013710

Jak jednoduché a funkční.
Děkuji

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.