• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: hyperlink cez makro

Zaslal/a Noco 13.8.2012 11:35

Zdravím potreboval by som spraviť hromadne viac hypertextových prepojení cez makro. mám makro ktoré mi generuje obsah najradšej by som bol keby som len to prepísal len neviem aký je príkazový kód na to, lebo čo som našiel na nete tak mi to furt dade havarovalo. tu je to makro. Ak by niekto vedel tak budem veľmi vďačný, kontaktovať ma môžte na adrese mato.nociar@gmail.com
Sub SeznamSouboru()

Dim Cesta As String, Soubor As String

Dim i As Long, Sloupec As Long

Cesta = "C:\Documents and Settings\admin\Desktop\veci pre rada\" 'Musí končit zpětným lomítkem

Soubor = Dir(Cesta & "*.*") 'lze nastavit jen určité soubory, např. "*.doc"

Sloupec = 1

'smazani puvodnich hodnot ve Sloupci

Columns(Sloupec).ClearContents

'doplneni novych souboru do Sloupce

i = 2

Do While Soubor <> ""

Cells(i, Sloupec) = Soubor

Soubor = Dir

i = i + 1

Loop

End Sub

Uzamčeno - nelze přidávat nové příspěvky.

---

Poki(13.8.2012 12:31)#009222

co takto?
Sub SeznamSouboru()
Dim Cesta As String, Soubor As String
Dim i As Long, Sloupec As Long

Cesta = "C:\Documents and Settings\admin\Desktop\veci pre rada" 'Musí končit zpětným lomítkem

Soubor = Dir(Cesta & "*.*") 'lze nastavit jen určité soubory, např. "*.doc"
Sloupec = 1

'smazani puvodnich hodnot ve Sloupci
Columns(Sloupec).ClearContents

'doplneni novych souboru do Sloupce
i = 1
Do While Soubor <> ""
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, Sloupec), Address:=Cesta & Soubor, TextToDisplay:=Soubor
Soubor = Dir
i = i + 1
Loop

End Subcitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse