Microsoft Office Excel
uređuje Dragan Grbić

Promena vrednosti konstanti

Nivo:
NIVO 2 - Među ovim prilozima se nalaze preporuke koje se uglavnom odnose na bolje snalaženje i efikasniji rad: dodatni trikovi koji će biti svakom od pomoći i koji upućuju na prag napredne upotrebe programa.

Dovoljno je da jednom prođete iskustvo dosadnog posla, pa da već sledeći put poželite da ga nekako automatizujete. Kada jednom vidite da to nije teško, rad u Excelu će vam biti mnogo lakši...

Pre izvesnog vremena, obratila su mi se dvojica kolega, nazavisno jedan od drugog, tražeći savet u izradi alata koji bi im dosta značio: treba označiti više ćelija u kojima su konstantni brojevi, a potom im odjednom promeniti vrednost za istu veličinu. Kroz kratku prepisku, došli smo do skupa prostih makroa koji rade ovaj posao, verovatno na najlakši mogući način.

Jezgro alatke čini skup metoda događaja OnKey, koje aktiviraju makroe dodeljene odabranim tasterskim kombinacijama; metode se iniciraju automatski, prilikom otvaranja radne sveske (makro Auto_Open). Pripremljeno je pet makroa: uvećanje brojeva u odabranim ćelijama za jedan i deset, umanjenje za jedan i deset i, konačno, unos proizvoljnog broja koji se dodaje (negativnog broja ako se oduzima). U poslednjem slučaju se ne koristi dijalog (UserForm), nego prosti metod InputBox, jer je to daleko lakše za realizaciju. Odabrane ćelije ne moraju biti susedne, već možete označiti bilo koji broj ćelija označavajući ih mišem dok držite pritisnut taster CTRL.

Evo i listinga rešenja. Obratite pažnju na prefikse koji označavaju tastere CTRL, ALT i SHIFT. Ovaj recept možete koristiti u bilo kojoj prilici kada želite da dodelite tastersku kombinaciju svom makrou. Usput, pogledajte i prilog o tehnici kontrole tasterskih kombinacija u VBA.

Sub Auto_Open()
'
' aktiviranje tastera na tastaturi
' Prefiksi:
' ^ = CTRL, + = SHIFT, % = ALT
'
' CRTL + ALT + SHIFT + P
Application.OnKey "+^%P", "promeni"

' CTRL + RIGHT
Application.OnKey "^{RIGHT}", "plusjedan"

' CTRL + SHIFT + RIGHT
Application.OnKey "+^{RIGHT}", "plusdeset"

' CTRL + LEFT
Application.OnKey "^{LEFT}", "minusjedan"

' CTRL + SHIFT + LEFT
Application.OnKey "+^{LEFT}", "minusdeset"

End Sub


' ======================
Sub promeni()

' unosi se pozitivna ili negativna vrednost
' koja se dodeljuje ćeliji

vrednost = _
   InputBox("Unesite vrednost koju dodajete:", _
   "PROMENA VREDNOSTI")

On Error GoTo gotovo

For Each celija In Selection.Cells

   celija.Value = celija.Value + vrednost

Next

gotovo:

End Sub


' ======================
Sub plusjedan()
' dodaj jedan

On Error GoTo gotovo

For Each celija In Selection.Cells
   celija.Value = celija.Value + 1
Next

gotovo:

End Sub


' ======================
Sub plusdeset()
' dodaj deset

On Error GoTo gotovo

For Each celija In Selection.Cells
   celija.Value = celija.Value + 10
Next

gotovo:

End Sub


' ======================
Sub minusjedan()
' oduzmi jedan

On Error GoTo gotovo

For Each celija In Selection.Cells
   celija.Value = celija.Value - 1
Next

gotovo:

End Sub


' ======================
Sub minusdeset()
' oduzmi deset

On Error GoTo gotovo

For Each celija In Selection.Cells
   celija.Value = celija.Value - 10
Next

gotovo:

End Sub