MS Excel

Mě se to otevírá do výchozího prohlížeče, takže jednou možností je nastavit tento jinak ;-)...
P.citovat

Trochu univerzálnejšie (v prvom príklade by si totiž vždy musel dopredu určiť umiestnenie *.exe súboru príslušného prehliadača, ktoré sa logicky na rôznych počítačoch môže líšiť).
Nebude sa jednať o hyperlink, ale o bunku(bunky), v ktorých budú webové adresy (môžeš naformátovať tak, aby na prvý pohľad vyzerali ako hyperlink, že to hyperlink fakticky nebude, snáď nevadí).
Príklad pre bunku B25 v ktorej bude napísané (presne, ako vidíš, t.j. bez úvodzoviek) napr.:
wall.cz
(v prípade ďalších buniek si jednoduchým spôsobom dotvoríš časť kódu uloženú v kódovom okne listu:Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$25" Then Call test(Target.Value)
End Sub.
Do modulu vložíš:Option Explicit

Private Declare Function SearchTreeForFile _
Lib "imagehlp" (ByVal RootPath As String, _
ByVal InputPathName As String, _
ByVal OutputPathBuffer As String) As Long

Const Adresare = 100

Sub test(Site As String)
Dim strS As String
Dim lngL As Long
Dim Prehliadac As String
Prehliadac = "chrome.exe"
strS = String(Adresare, 0)
lngL = SearchTreeForFile("C:\", Prehliadac, strS)
If lngL <> 0 Then
Shell strS & "exe " & Site, vbNormalFocus
Else
MsgBox "Prehliadaè nebol nájdený!", _
vbCritical
Exit Sub
End If
End Sub
Pripravené pre otvorenie v Google chrome, v prípade iného prehliadača dáš do kódu miesto google.exe príslušný *.exe daného prehliadača. Po kliknutí do príslušnej bunky (v uvedenom príklade bunky B25) by sa malo stať to, čo potrebuješ.citovat

Aha. Pár poznámok teda. Kód, ktorý som dával, je funkčný na XP. Od minulého týždňa mám Win7 a kód som musel malinko upraviť. Časť sub test by vyzerala nasledovne:Sub test(Site As String)
Dim strS As String
Dim lngL As Long
Dim Prehliadac As String
'Prehliadac = "chrome.exe" 'pre chrome
Prehliadac = "TOTALCMD.EXE" 'pre Total Commander, Altab Salamander nemam, ale bude to analogicke
strS = String(Adresare, 0)
lngL = SearchTreeForFile("C:\", Prehliadac, strS)
If lngL <> 0 Then
Shell WorksheetFunction.Substitute(strS, Chr(32), "") & " " & Site, vbNormalFocus
Else
MsgBox "Prehliadac nebol najdeny!", vbCritical
Exit Sub
End If
End SubOstatné sa nemení, t.j. platí môj pôvodný príspevok. Som zvedavý, s čím prídeš za 3 týždne.citovat

Klikni na B25 alebo B26 a povedz mi, či sa otvorí Total Commander, alebo nie.. Na mojom ntb sa totiž otvorí citovat

Funguje mi to, poté, co jsem vynechal různé tanečky okolo zjištění cesty k souboru, kterým se má otevírat odkaz. Tanečky sú tam kvôli tomu, že cesta k súboru sa môže na rôznych počítačoch líšiť Písal som hneď na začiatku: Trochu univerzálnejšie (v prvom príklade by si totiž vždy musel dopredu určiť umiestnenie *.exe súboru príslušného prehliadača, ktoré sa logicky na rôznych počítačoch môže líšiť). Krom toho, môže sa líšiť i verzia prehliadača, v Tvojom prípade napr. 64bit. Holt, všetky eventuality neodchytím, poskytnem základ a adresát sa musí snažiť trochu sám, aby zistil, v čom je problém. Som trochu unavený z odpovedí v zmysle: "Nefunguje to, skús to znovu, keď ťa to baví, ja sa snažiť sám nebudem."citovat