Microsoft Office Excel
uređuje Dragan Grbić

Označavanje duplim klikom

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.

Kao i mnogo puta ranije, VBA se pokazuje kao sredstvo dragocene pomoći u praktičnom radu. Evo priče o jednom rešenju koje je drastično ubrzalo izmene vrednosti u jednoj tabeli.

Pretpostavimo da imate razvijenu tabelu ili listu u Excelu u koju često unosite promene nekih stanja. Ukoliko jedno od polja liste treba da sadrži nekakav opis stanja sa unapred zadatim alternativama, možete se poslužiti sistemom validacije unosa u ćeliju. Najpre označite sve ćelije na kojima treba definisati validaciju; otvorite dijalog Data / Validation, pa u listi Allow odaberite opciju List i u polje Source unesite adresu bloka u kome se nalaze prototipovi mogućih odgovora. Možda niste znali da ovde možete slobodno uneti direktne vrednosti: napišite Pera;Mika;Laza ili sličan spisak, razdvojen separatorom liste (po našim lokalnim podešavanjima, to je tačka-zarez) i to će biti moguće vrednosti unosa.

Nedavno sam pravio jednu tabelu u kojoj evidentiram neke statuse podataka, pa mi vrag nije dao mira: hteo sam da napravim nešto efikasnije od padajuće liste. Grupa ćelija treba da ima tri stanja ("dobro-nije dobro-nevažno"), a ti podaci se često menjaju. Hteo sam da oznake stanja budu grafički upadljive, ali i da napravim nešto udobniji način ažuriranja. Rezultat te ideje vidite u listingu: izvedeno je da dupli klik na ćeliju u rasponu C5:C20 naizmenično upiše zeleni "check-in", crveni "X" ili isprazni sadržaj. Primenio sam font Wingdings, koji ima prikladne znakove:

znak za potvrdu	ü
znak za negiranje	û

Celo rešenje je zasnovano na metodi događaja (Event). Otvorite VBE (ALT+F11), u oknu Project duplo kliknite na ime željenog radnog lista, a kada se otvori okno modula, u listama na vrhu odaberite stavke Worksheet i BeforeDoubleClick; potom između početne i krajnje klauzule unesite ostatak koda.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
 Cancel As Boolean)

If Not _
  (Application.Intersect(Target, Range("C5:C20")) Is Nothing) Then

    If IsEmpty(Target) Then
      ' prva opcija: zeleno "OK"
      With Target
        .Value = Chr(252)
        .Font.ColorIndex = 10
        .Font.Name = "Wingdings"
        ' formatiranje
        .Font.Size = 14
        .HorizontalAlignment = xlCenter
      End With

    ElseIf Target.Value = Chr(252) Then
      ' druga opcija: crveni "X"
      Target.Value = Chr(251)
      Target.Font.ColorIndex = 3
    Else
      ' treća opcija: isprazni ćeliju
      Target.Value = ""
    End If
End If

' simulacija unosa
Application.SendKeys ("^{ENTER}")

End Sub

Obratite pažnju na dva podebljana reda ispod komentara "formatiranje": možete ih preskočiti ako ne želite da se font poveća i centrira. Naravno, ovo rešenje možete izmeniti tako da dupli klik ciklično menja neka imena ili brojeve; ako ima više vrednosti, biće bolje da upotrebite klauzulu Select Case, što je jedna od osnovnih struktura selekcije u VBA i mnogim drugim programskim jezicima.