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,
Spustni seznam in hiperpovezave
Re: Spustni seznam in hiperpovezave
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
Se naredi seznam spl. strani. Nato se uporabi funkcija HYPERLINK(celica z spustnim seznamom) in to je to.
Mogoce se kaj drug nacin?
Lp
Re: Spustni seznam in hiperpovezave
Da, seveda je načinov še veliko... Kaj pa vam ni všeč pri načinu, ki ste ga predlagali?
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Spustni seznam in hiperpovezave
Ž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,
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,
Re: Spustni seznam in hiperpovezave
V tem primeru morate pač narediti vse v kodi. Najprej recimo napolnite seznam:
Nato pa ob kliku nanj izboru dodate še spredaj "http://www." in zadaj npr. ".com" in skočite tja:
Koda: Izberi vse
Sub test()
ListBox1.AddItem ("microsoft")
ListBox1.AddItem ("google")
ListBox1.AddItem ("opera")
End Sub
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
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Spustni seznam in hiperpovezave
Hvala
lp
lp