Microsoft Office Excel
uređuje Dragan Grbić

Forsirana velika slova

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.

Kažu da se pisanje velikim slovima ponekad doživljava kao vikanje; tako je barem u konvenciji pisanja e-mail poruka i u sličnim prepiskama. Ali, ponekad neka interna konvencija traži pisanje velikim slovima pri unosu u bazu ili u tabelu radnog lista u Excelu.

Obratimo pažnju na nekoliko principa koji vam mogu pomoći u takvom pisanju. Prvi slučaj je ako je neki sadržaj već unet u ćelije radnog lista, ali ne strogo velikim slovima. Jedan od načina da usaglasite pisanje je ručni, pomoću formule i kopiranja. U neku ćeliju slobodnog dela radnog lista (recimo, desno od tabele) napišite formulu =UPPER(A1); ovde se A1 smatra gornjom levom ćelijom reference koju treba promeniti, pa podesite to prema potrebi. Sada povucite fill handle ćelije sa tom formulom (mali crni kvadratić u donjem desnom uglu ćelije) nadole i nadesno dotle dok se ne prenesu sve relativne reference, kako biste dobili sva velika slova. Označite ceo blok rezultata, pritisnite Copy, pa se smestite u A1; sad pozovite komandu Edit / Paste Special i odaberite opciju Values. Ćelije će primiti konstante sa velikim slovima. Na kraju obrišite sve ćelije sa funkcijom UPPER, jer više nisu potrebne.

Obratite pažnju da ovako istretirate samo ćelije sa konstantama; budete li "zakačili" neku formulu, izgubićete je i ona će biti zamenjena konstantom. Da biste izbegli takav rizik, poslužite se sledećim VBA makroom:

' prevodi sav tekst u velika slova
Sub prevedi()

Set selekcija = Range("A1", ActiveCell.SpecialCells(xlLastCell))

For Each cell In selekcija
    If Not cell.HasFormula Then
       cell.Value = UCase(cell.Value)
    End If
Next

End Sub

Ovaj kod će automatski prevesti sve konstante u velika slova, bez potrebe za kopiranjem i bez bojazni po formule. Klauzulu Set selekcija možete promeniti tako da ukazuje na željeni blok podataka, npr Range("A1:B15").

Drugi makro rešava problem održanja velikih slova unapred: napravite proceduru događaja koja će bilo svaki tekst, kako god ga vi uneli, odmah prevesti u velika slova. Otvorite VBE (Alt+F11), pa duplim klikom na ime željenog radnog lista otvorite njegov prozor procedura događaja; tamo prepišite sledeći makro:

' automatsko očuvanje velikih slova
Private Sub Worksheet_Change(ByVal Target As Range)

With Target
    If Not .HasFormula Then
      .Value = UCase(.Value)
    End If
End With

End Sub

Ovo je metoda nalik onoj iz Excel VBA makroa u prilogu Označavanje duplim klikom, gde je opisano kako se programira dupli klik na radnom listu. U makrou u tom prilogu možete videti kako se domen događaja ograničava na skup ćelija, pa ako želite da očuvanje velikih slova radi nad samo jednim blokom umesto na celom radnom listu, napravite prikladnu kombinaciju koda.