Microsoft Office Excel
uređuje Dragan Grbić

Dinamički naslov grafikona

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.

Kako bude raslo vaše iskustvo u radu sa Excelom, tako ćete sve ređe smeti da kažete "nemoguće je". Evo jednog sjajnog postupka za koji je vaš urednik tvrdio da je neizvodljiv: obezbedite dinamičku vezu između sadržaja ćelije na radnom listu i naslova grafikona...

Nedavno je jedan iskusni kolega postavio vrlo interesantno pitanje na SezamProu: da li je moguće definisati da naslov grafikona u Excelu bude preuzet iz neke ćelije na radnom listu? Po inerciji sam pokušao nešto što je verovatno pokušao i kolega, da bih doživeo neuspeh: očekivao sam da ću u trećem koraku Chart Wizarda, u kome se inače definišu naslovi i labele, moći da uredno upišem npr. =A1, referencirajući ćeliju u kojoj se već nalazi željeni naslov. No, na moje veliko iznenađenje, ovo je prošlo bez uspeha. Kao i uvek kada je reč o nekom problemu u Excelu, mašio sam se makroa u VBA; uključio sam snimanje, prepisao naslov napravljenog grafikona, pa se malo poigrao rezultujućim makroom. Rezultat je glasio:

Sub Celija_Naslov()

ActiveChart.ChartTitle.Select
Selection.Characters.Text = Range("A1").Value

End Sub

Da bi makro radio, najpre je potrebno selektovati ceo grafikon, kako bi se prevazišlo ograničenje u imenu grafikona, koje može da se promeni. Ali, ovo rešenje nije optimalno, jer samo malo skraćuje put inače lakog posla prenosa sadržaja ćelije u naslov preko Clipboarda. Na kraju, moglo se reći da rešenje nije dostignuto.

Vrag mi nije dao mira, pa sam uputio pitanje u jednu diskusionu grupu; i naravno, odgovor je stigao posle samo nekoliko sati. Rešenje postoji i optimalno je, ali je takvo da ga se ne bih setio nikad, mada sam "pipao vrlo blizu". U trećem koraku Chart Wizarda treba uneti bilo kakav sadržaj u polje Chart title; po završetku izrade grafikona, treba označiti naslov, a potom u polju za editovanje (bela šlajfna za unos iznad radnog lista) uneti znak jednakosti, kao kad se počinje unos formule; potom samo treba kliknuti na ćeliju u kojoj se nalazi željeni sadržaj i pritiskom na ENTER potvrditi unos. Dobijena referenca je apsolutna i glasi

=Sheet1!$A$1

Sada je problem trajno rešen, jer izmenom sadržaja u ćeliji biće izmenjen i naslov grafikona. Zanimljivo je da verovatno nema drugog načina da se ova dinamička veza uspostavi - ako bi se u trećem koraku Chart Wizarda navela ista apsolutna referenca, rezultat bi bio prosti tekst te reference...