Stránka 1 z 1
Excel VBA - opakující se hypertextový odkaz
Napsal: 08 črc 2014 12:29
od Yves
Zdravím a prosím o pomoc. Ve VBA jsem totální začátečník, ale poslední dobou se v tom šťourám (i když třeba nerozumím úplně všemu, tak se aspoň snažím - na msgboxy už jsem machr
).
Ale dalo by se udělat makro, které by fungovalo tak:
Na Listu 1 mám ve sloupci B seznam hodnot, a potřebuju, aby se mi kliknutí na buňku B2 odkázalo na buňku B2 v Listu 2, z B3 na listu 1 na B3 v listu 2 atd.
Vím, že to jde udělat přes klasický hypertextový odkaz, jenže těch hodnot jsou tisíce, a dělat to s každou zvlášť..
nebo pokud to jde udělat bez makra, budu taky ráda.
Díky předem za pomoc.
Re: Excel VBA - opakující se hypertextový odkaz
Napsal: 09 črc 2014 07:56
od cmuch
Bez makra by to šlo taky, ale byl by to opruz.
Tady je makro co vybere bunku na nasledujícím listu.
Pokud je list posledni tak se vybere buka na prvnim listu.
V tech bunkach nemej HTodkazy.
Kód: Vybrat vše
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim rVyber As Variant
'je vyber ve sl. B (A=1)
If Target.Column = 2 Then
Application.EnableEvents = False
'vybere se bunka na nasledujicim listu
'pokud je aktivni posledni list tak se vybere bunka na prvnim listu
If Sh.Index + 1 <= Sheets.Count Then
rVyber = Target.Address
Sheets(Sh.Index + 1).Select
Range(rVyber).Select
Else
rVyber = Target.Address
Sheets(1).Select
Range(rVyber).Select
End If
Application.EnableEvents = True
End If
End Subnebo pokud chceš HT tak by se muselo udělat jine makro které by přidalo HT po změně v sl. B
Re: Excel VBA - opakující se hypertextový odkaz
Napsal: 09 črc 2014 16:56
od Yves
Bohužel, v některých je už mám, a už se mi nechtějí mazat.. ale i tak děkuju. Nic takovýho bych nevymyslela ani za sto let
Re: Excel VBA - opakující se hypertextový odkaz
Napsal: 09 črc 2014 17:58
od cmuch
Jeste jsem zapomel uvestt, ze to makro prijde do modulu ThisWorkbook.
Jinak ty HT odkazy tam byt mohou, vadit to nebude.
Nebo jak jsem psal, slo by po zmene bunky sl.B tam zapisovat HT automaticky.
A klidne i makro co by doplnilo HT i do jiz obsazenych bunek.
Staci si vybrat popripade sem dam obe varianty.
Re: Excel VBA - opakující se hypertextový odkaz
Napsal: 15 črc 2014 12:37
od guest
A proč makro??? Ono by chtělo vědět, že existuje i funkce pro hypertextové odkazy, že...
Od boku pro B2 a roztáhnout dolů:
=HYPERTEXTOVÝ.ODKAZ("#'List2'!"&ODKAZ(ŘÁDEK();2;4);ODKAZ(ŘÁDEK();2;4))
Re: Excel VBA - opakující se hypertextový odkaz
Napsal: 22 srp 2014 14:23
od cmuch
xlnc píše:A proč makro??? Ono by chtělo vědět, že existuje i funkce pro hypertextové odkazy, že...
No to sice ano, ale pokud v buňkách jsou již hodnoty tak pak jak s fci?
Re: Excel VBA - opakující se hypertextový odkaz
Napsal: 25 srp 2014 22:19
od guest
No a je těžké to předělat, poslepovat do podoby:
=HYPERTEXTOVÝ.ODKAZ("#'List2'!"&ODKAZ(ŘÁDEK();2;4);"původní hodnota")
Nebo nevím, v čem je problém.
Re: Excel VBA - opakující se hypertextový odkaz
Napsal: 26 srp 2014 07:08
od cmuch
To ano, ale pokud nechci použít pomocný sloupec tak bych musel původní hodnotu psát do fce ručně.
A když je hodnot spousty....
Re: Excel VBA - opakující se hypertextový odkaz
Napsal: 26 srp 2014 13:34
od guest
Ale nemusel, i když je to trochu pracné. Udělat ze vzorce slepenec ve smyslu ="první část vzorce" & odkaz & "druhá část vzorce" (je potřeba správně naložit s uvozovkami podle pravidla "za každé viditelné jedny navíc"). Rozkopírovat vzorec dolů, převést vzorce na hodnoty a nahradit HYP za =HYP. Následně výsledkem nahradit původní hodnoty ve sloupci B.
Re: Excel VBA - opakující se hypertextový odkaz
Napsal: 27 srp 2014 05:56
od cmuch
To je dobré
