< návrat zpět

MS Excel


Téma: Nestandardní využití numerické klávesnice rss

Zaslal/a 24.10.2017 10:09

Pro grafickou aplikaci bych chtěl využít číselných kláves numerické klávesnice pro směrovou růžici včetně šikmých pohybů na klávesách 1,3,7 a 9.
Application.OnKey "1", "Proc1" ale reaguje pouze na jedničku z horní řady základní klávesnice. Hodnotu vbKeyNumpad1 (pro jedničku z numerické klávesnice) zase neumím zadat do syntaxe pro Application.OnKey. Lze požadovaného chování (tj. reakce OnKey na numerickou klávesnici) nějak dosáhnout?

Zaslat odpověď >

#038121
elninoslov
Skúste toto:
Sub Nastav()
Application.OnKey "{105}", "devina"
Application.OnKey "{103}", "sedma"
...
End Sub

Kódy by mali byť :
vbKeyNumpad0 96 0
vbKeyNumpad1 97 1
vbKeyNumpad2 98 2
vbKeyNumpad3 99 3
vbKeyNumpad4 100 4
vbKeyNumpad5 101 5
vbKeyNumpad6 102 6
vbKeyNumpad7 103 7
vbKeyNumpad8 104 8
vbKeyNumpad9 105 9
vbKeyMultiply 106 *
vbKeyAdd 107 +
vbKeySeparator 108 ENTER
vbKeySubtract 109 -
vbKeyDecimal 110 .
vbKeyDivide 111 /
citovat
#038125
avatar
To vypadá zajímavě, tenhle způsob zápisu mne nenapadl. Samozřejmě vyzkouším. Dík za inspiraci!
Vyzkoušel jsem a funguje to!
Když umím odpovědět jiným, rád sám poradím. Velmi si naopak vážím toho, když na můj dotaz jiní poradí mně. Z té vzájemnosti mám nelíčenou radost!citovat

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

export xls - konkrétní sloupce a pořadí

Alfan • 30.9. 15:11

open book

elninoslov • 30.9. 13:36

Podmíněné formátování - kopírování

elninoslov • 30.9. 13:30

export xls - konkrétní sloupce a pořadí

elninoslov • 30.9. 13:17

spustit makro změnou hodnoty v buňce a svyhledat

PavDD • 30.9. 10:10

Podmíněné formátování - kopírování

mikar • 30.9. 9:58

open book

PavDD • 30.9. 9:23