Excel Hyperlink

Alex

Fizikalc
21. jul 2007
956
93
28
Ljubljana
Živjo.

Imam težavo v Excelu, ki mi je nikakor ne uspe rešiti.

V tabeli vstavljam povezave s funkcijo Hyperlink, ki daje v redu rezultate, manjka mi le ti. screentip, ki se prikaže, ko se z miško postavim nad link. Sedaj se prikaže http://trgovina.com?search=3000, želen prikaz pa je Artikel 3, torej vsebina C4. Iskal sem že po celem netu, vendar nisem našel rešitve. Verjetno bi potreboval kakšen makro, ki bi v obstoječe linke vstavil še screentip.
Naj povem še, da stran nato shranim kot mhtml in tabelo nato vstavim v drupal.

excel-hyperlink.png
 

Leska

Pripravnik
8. sep 2007
268
0
16
Postavi se na celico, klikni Ctrl+K (Urejanje hiperpovezave) in nato gumb [Zaslonski namig].
V VB pa:
ActiveCell.Hyperlinks(1).ScreenTip = ActiveCell.Value
 

Alex

Fizikalc
21. jul 2007
956
93
28
Ljubljana
Hm, sem sedaj poskusil, pa mi ne dela.

1. Ker so povezave vpisane s formulo =Hyperlink(...) je CTRL K onemogočen. oz. je meni Hiperpovezava.... siva!
2. VB ukaz pa mi ne dela, ali pa ga ne znam prav vnesti!
sprasujem se.gif
 

Leska

Pripravnik
8. sep 2007
268
0
16
Ups, res ne dela. Zakaj je Ctrl+K onemogočen, ve samo Microsoft
wink-1.gif

Obvozi bi lahko bili naslednji:
1. ne uporabljaš funkcije Hyperlink, ampak dodajaš povezavo, kot sem ti opisal zgoraj
2. najprej v prazni celici določiš, da je hiperpovezava, šele *nato* pa vanjo vpišeš =Hyperlink ... S tem ti bo ctrl+K delal in lahko določiš ScreenTip
3. V celico, kjer že imaš funkcijo =Hyperlink, povezavo vneseš z makrom, npr.
ActiveCell.Hyperlinks.Add Anchor:=ActiveCell.Range("A1"), Address:="http://trgovina.com", ScreenTip:=ActiveCell.Value, TextToDisplay:=ActiveCell.Value
 

Alex

Fizikalc
21. jul 2007
956
93
28
Ljubljana
Hvala za pomoč. Nekaj mi še ne gre v "lajšto":
Citat:
3. V celico, kjer že imaš funkcijo =Hyperlink, povezavo vneseš z makrom, npr.
ActiveCell.Hyperlinks.Add Anchor:=ActiveCell.Range("A1"), Address:="http://trgovina.com", ScreenTip:=ActiveCell.Value, TextToDisplay:=ActiveCell.Value
Tole sem uporabil in dela, vendar mi "uniči" povezavo v http://trgovina.com, rad pa bi da povezava ostane takšna kot je bila prej, oz. da je povezava sestavljena iz $D$1&B4, screentip pa je iz C4!
 

Leska

Pripravnik
8. sep 2007
268
0
16
Ja, to je bil samo primer. V argument Address moraš dat ustrezen izraz, npr:
Address:="http://trgovina.com?search=" + ActiveCell.Range("B1").Text