MS Excel

Ospravdelňujem sa, že sa do toho pletiem, ale nebola náhodou marjankajova reakcia na tvoje vyjadrenie: to není žádná proměnná, ale klíčové slovo pro událost VBA ? Kľúčové slovo (resp. rezervované slovo) je terminus technicus, nemôže im byť niečo, čo ním proste nie je, páč, ako už zmienili viacerí predo mnou, žiadny keypressed proste VBA nepozná, pokiaľ to teda nie je nejaký názov premennej apod., a to je jasné z kontextu, že tento prípad to nie je. Tak sa nediv, že sa niekto pozastaví nad tým, keď sa vyjadruješ ledabylo.citovat

Dobře, prosím o pochopení, že tady odpovídám na dva názory. Takže konkrétně: s uživatelem marjankaj vedu debatu o "keypressed", z mého pohledu o ničem-uznal jsem, že to slovo je blbost a doufám, že tím to končí.
S uživatelem eLCHa vedu konkrétní debatu o mém problému, za což mu děkuji. Pokud se kódu týká, je to opravdu jen :
-------
Do
DoEvents
Call XXX - procedura pro načtení dat z karty
Loop
MsgBox(.....sem už to nikdy nedojde)
End Sub
---------
Na stisknutí klávesy- třeba mezera - se cyklus opravdu ukončí, ale bohužel s tím celé makro, takže na ten MsgBox prostě nedojde. to je celý problém - ukončit korektně cyklus stiskem klávesycitovat

No hlavní problém je, že stiskem některých kláves se dostaneš do editačního módu a tím pádem procedura skončí. Lze to ale řešit buď příkazovým tlačítkem, nebo změnou "selection". Oba způsoby máš v příloze.citovat

@mike55
zkoušel jsem ten kód, ale laicky si stále myslím, že DoEvents prostě zareaguje na událost - stisknutí třeba mezerníku - a ukončí makro
Ne, tak to není a v následujících příspěvcích se Vám (a nejen Vám) to pokusím objasnit

1) - upravil jsem si Váš kód taktoSub test()
Dim i As Long, iMax As Long
i = 0
iMax = 100000

Do
i = i + 1
DoEvents
If Keypressed Or i >= iMax Then
Exit Do
End If
Debug.Print i
Loop
MsgBox "(.....sem už to nikdy nedojde)"
End Suba k MsgBoxu jsem se dostal. Je to proto, že jsem mu zadal alternativní konec cyklu.
Pokud stisknete klávesu na listu bez spuštěného kódu, co se stane? Začne editace buňky.
Pokud spustíte jakýkoliv kód, to se nestane, dokud kód neskončí.
Dal jsem tam DoEvents, čímž jste umožnil systému zpracovat jiné události (stisk klávesy) a tak dál už nepokračuje a ještě k tomu skočí zpět do EXCELU do editace buňky. Už vidíte tu logiku? V tuto chvíli běh kódu neskončil - on běží dál, ale mezitím se Vám excel přepnul do editace buňky. Problém je v tom keypressed - máte ho nedefinované a tak je to proměnná typu Variant a hlavně - nikde mu nepřiřazujete žádnou hodnotu a přitom testujete, zda se rovná True.If Keypressed then Exit DoAle hodnota je Empty a tak se Vám ten kód nikdy nezastaví.citovat

3)

Toto jsem samozřejmě četl, ale trvalo mi dlouho, než jsem to skutečně pochopil.
Kód, který tu dal marjankaj (kp57 jsem nestudoval, ale bude to podobné) bude fungovat pro směrové šipky a na některých (většině) počítačích i pro klávesu ENTER - je to logické - DoEvents umožní systému zpracovat informaci o stisku směrové klávesy a tak posune kurzor - takové řešení mně samozřejmě taky napadlo a v podstatě to může být nejsnazší řešení pro Vás. Když už jsem se tím ale zabýval, chtěl jsem obecné řešení pro stisk jakékoliv klávesy, což se mi povedlo. Stačí jen dořešit zrušení stavu editace buňky a je možné si vybrat jakoukoliv klávesu či kombinaci kláves. Jsou tam ale ještě ale, které, jak už jsem psal dříve, kdybych to chtěl dotáhnout, tak to dotáhnu (Např. musí se zajistit, aby proběhlo UnhookWindowsHookEx hHook, jinak bude procedura fncKeyboardProc volána, i když samotný cyklus už dávno skončí.)

Osobně bych ale opravdu využil .NET, který má určitě objekt Klávesnice a v něm testuje, zda je stisknutá klávesa a která to je a tak ten kód bude jednodušší (VB6 je sice blíže VBA, ale editor je placený a když už bych se začal v něčem hrabat, tak v něčem modernějším - pro nás obyčejné laiky mi jako ideální přijde C#).citovat