VBA sprendimas: kaip nustatyti savo sparčiuosius klavišus

Turinys

Apibrėžkite klavišų kombinacijas „Excel“ ir priskirkite funkcijas

Šiame pavyzdyje klavišų kombinacija Ctrl + ü skaičiuotuvą galima iškviesti iš „Windows“ priedų.

Norėdami nustatyti sparčiuosius klavišus, atlikite šiuos veiksmus:

Papildomos klaviatūros nuorodų sąranka ()

Application.OnKey "ü", "CallCalculator"

Pabaiga Sub

Išsaugota makrokomanda atrodo taip:

Sub callCalculator ()

Dim x kaip variantas

x = apvalkalas ("calc.exe")

Pabaiga Sub

Jei klavišų kombinacija nebenaudojama, pradėkite šią procedūrą:

Papildomas klavišų derinys Atšaukti ()

Application.OnKey "ü"

Pabaiga Sub

Pastaba:

Dažnai spartieji klavišai nustatomi atidarant tam tikrą darbaknygę. Norėdami tai padaryti, kūrimo aplinkoje dukart spustelėkite įrašą Ši darbo knyga projekto naršyklėje ir išsaugokite šį įvykį:

Privati antrinė darbo knyga_Atidaryti ()

Sąrankos spartusis klavišas

Pabaiga Sub

„Workbook_Open“ įvykis automatiškai vykdomas (jei jis nustatytas), kai atidaroma darbaknygė. Mūsų atveju čia vadinama klavišų derinio sąrankos procedūra.

Tai naudinga, jei uždarę šį aplanką ištrinate anksčiau nustatytą klavišų derinį. „Workbook_BeforeClose“ įvykis automatiškai vykdomas uždarius aplanką. Tokiu atveju procedūros atrakinimo raktas vadinamas:

Privati antrinė darbo knyga_BeforeClose (Atšaukti kaip loginis)

Klavišų kombinacija Atšaukti

Pabaiga Sub

Tai reiškia, kad „Excel“ visada galite valdyti sparčiuosius klavišus.

Padėsite svetainės plėtrą, dalintis puslapį su draugais

wave wave wave wave wave