Microsoft Office Excel
uređuje Dragan Grbić

Kontrola tasterskih kombinacija

Nivo:
NIVO 3 - Prilozi na ovom nivou su namenjeni naprednim korisnicima, onima koji se već dobro snalaze u programima i onima koji već imaju iskustva u naprednim tehnikama. Ovom nivou pripadaju preporuke i trikovi koje bi trebalo da savlada svako ko teži dugotrajnom i efikasnom radu u Office programima.

Bilo koji događaj u Office aplikaciji se može programirati. Jedna od tehnika kontrole rada korisnika je svođenje tasterskih kombinacija u programu na nužni skup prečica.

Kada pravite aplikaciju u Excelu, možete dodati nove tasterske kombinacije makroima ili čak sprečiti neke od standardnih kombinacija; na taj način ćete uspostaviti veću kontrolu nad akcijama korisnika i sprečiti moguće neželjene akcije. Ovo se postiže dodeljivanjem metode događaja OnKey nekom tasteru ili kombinaciji. Kada dodeljujete novu kombinaciju tastera, poštujte standard: nemojte svom makrou dodeljivati neku od standardnih kombinacija, prethodno rezervisanu za funkcije programa.

Ako već činite tako nešto, onda neka tako pozvana procedura obavlja istu vrstu posla (poput prve kombinacije u primeru). Takođe, vodite računa da nove kombinacije ostaju aktivne u programu do njegovog zatvaranja ili do promene stanja. Ako se zatvori datoteka koja sadrži makro pozvan tasterskom kombinacijom, može doći do greške. Zbog toga je dobra praksa da prilikom zatvaranja radne sveske sve vratite u prethodno stanje. U priloženom listingu se nalazi primer koji vam može poslužiti kao uzorak za dalju nadgradnju.

Naravno, iako je primer dat za Excel, možete ga primeniti i u drugim programima, ako u njima upotrebite odgovarajuće automatske makroe.

' značenja prefiksa:
' ^ = Control
' % = Alt
' + = Shift
' tasterske kombinacije se aktiviraju 
' pri otvaranju radne sveske

Sub Auto_Open

' promenjena funkcija snimanja sa Ctrl+S
Application.OnKey "^s", "SpecijalniSave"

' poziv procedure sa Alt+C
Application.OnKey "%c", "MojaProcedura"

' poziv procedure sa Ctrl+Alt+Shift+F5
' procedura sa argumentom se stavlja u apostrofe
Application.OnKey "^%+{F5}", "'DeLuxeProc 25'"

' spreči dijalog Find (Shift+F5)
' drugi argument je prazan
Application.OnKey "+{F5}", ""

' vrati osnovnu funkciju tasteru Ctrl+V (Paste)
' izostavi drugi argument
Application.OnKey "^v"

Exit Sub

Evo još jednog valjanog primera upottrebe tasterskih kombinacija iz makroa: metoda SendKeys šalje programu simulirane pritiske na tastere.

Ako u Office aplikacijama razvijate i kod za ponašanje u slučaju greške, to je znak da ste pažljiv i promišljen programer. Međutim, nemojte dozvoliti da vam nehotična akcija korisnika sruši ceo kod za obradu greške. Naime, ako je korisnik u Excelovom dijalogu Tools/Options uključio opciju Break On All Errors, greška se neće proslediti vašem kodu, već će doći do prekida izvršenja.

Iako se na pomenutu opciju ne može direktno uticati iz VBA, postoji posredan način za isključenje kroz sistemsku metodu SendKeys, koja simulira pritiske na tastere. Postavite sledeći kod u makro Auto_Open i rešite se brige:

' opcija za Excel 5/95
Application.SendKeys ("%TOVM%B-~"), True

' opcija za Excel 97 (mora da se uđe u VBE)
Application.SendKeys _
  ("%{F11}%TO+{TAB}{RIGHT}{RIGHT}%E~%{F4}"), True