Spustni seznam in hiperpovezave

[pero978]

Pozdravljeni,

Je možno narediti spustni seznam, kjer bi po izbiri elementa z dodano hiperpovezavo se premaknil na določeno spletno stran, delovni list...itd.

Recimo v A1=Opel, A2=Fiat, A3=Ford..vsi imajo hiperpovezavo do uradne spl.strani podjetji. Je mozno naredisti spustni seznam, kjer bi te po izbiri podjetja (A1,A2,A3) prav tako
premaknilo na spletno stran , na primer podjetja Opel? Ker ce sedaj naredim seznam lahko samo izbiram podjetja s teh celic, vendar me ne premakne na njihovo spl. stran.

hvala vnaprej za pomoč

Lp,

[pero978]

Sem ze ugotovil en nacin,

Se naredi seznam spl. strani. Nato se uporabi funkcija HYPERLINK(celica z spustnim seznamom) in to je to.

Mogoce se kaj drug nacin?

Lp

[admin]

Da, seveda je načinov še veliko... Kaj pa vam ni všeč pri načinu, ki ste ga predlagali?

[pero978]

Živjo,

Zdi se mi, da je ta rešitev "okoli vogala", ne preveč elegantna. Je možno, da bi s klikm elementa spustnega seznama se premaknil na spl.str.?
Pa tudi pri tej funkciji HYPERLINK moras imeti napisane celotne stpletne strani v celici www.x.com. Če vpišeš samo x in dodas hiperpovezavo ne dela.
Napiše, da je povezava prekinjena.

Lp,

[admin]

V tem primeru morate pač narediti vse v kodi. Najprej recimo napolnite seznam:

Koda: Izberi vse

Sub test()
  ListBox1.AddItem ("microsoft")
  ListBox1.AddItem ("google")
  ListBox1.AddItem ("opera")
End Sub

Nato pa ob kliku nanj izboru dodate še spredaj "http://www." in zadaj npr. ".com" in skočite tja:

Koda: Izberi vse

Private Sub ListBox1_Click()
  Dim wwwNaslov As String
  
  wwwNaslov = ListBox1.Text
  If (Trim(wwwNaslov) = "") Then Exit Sub
  
  ActiveWorkbook.FollowHyperlink "http://www." & wwwNaslov & ".com"
End Sub

[pero978]

Hvala

lp