MS Excel

Dingo, ja som hneď v prvom príspevku napísal kostru. Základ je skutočne v príkaze Shell. Bohužiaľ, pod Explorerom som rozumel IE nie Windows Explorer. K tomuto: asi by mělo být:
Shell strS & " " & Site, vbNormalFocus Ja napr. v ceste k .exe súboru prázdne znaky nemám, API call ich vo Win7 ale ponecháva na konci, proste strS ponecháva v dĺžke danej konštantou Adresare (100 znakov). Na XP to nerobilo, robí mi to na Win7, tak som potreboval ten reťazec prečistiť, bohužiaľ Trim nezafungoval, tak som použil Brutal Force cez Substitute. To samozrejme nefunguje v prípade, kedy v ceste k *.exe (v reťazci), sú prázdne znaky. Takže je potrebné to upraviť inak, čo samozrejme ide, napr. kombináciou Left a Instr. Úplné triviality ale riešiť nehodlám, to sa na mňa nikto hnevať nemôže, že si vyberám, čo a do akej miery doťahujem do konca, konieckoncov, radíme tu zadarmo
edit: kupodivu, teraz to funguje i takto: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 strS & " " & Site, vbNormalFocus
Else
MsgBox "Prehliadac nebol najdeny!", vbCritical
Exit Sub
End If
End Sub Fakt netuším, v čom bol predtým problém, že to tam nechávalo 100 znakov v tej ceste...

edit2: Aha, tak tých 100 znakov to ponecháva v prípade, že použijem ako prehliadač napr. chrome.exe, no to je fakt divné ale...
Záver: v prípade Total Commander príslušný riadok kódu má byť:
Shell strS & " " & Site, vbNormalFocus
,
v prípade chrome ale:
Shell Left(strS, InStr(strS, ".exe") + 3) & " " & Site, vbNormalFocuscitovat

Dingo len zjednodušil môj postup; to, že ti to nefunguje, je spôsobené nepochopením môjho kódu (viacmenej). K hyperlinkom - existuje dôvod prečo ich nemôžeš odstrániť / prečo na liste musia byť?
a pokud ano,pak se musí definovat konkrétní buňky ve vba - len na tomto fóre bolo uvedených bezpočet príkladov, ako udalosť Worksheet_SelectionChange aplikovať na konkrétny rozsah buniek.
Problém je v tom, že sa púšťaš (podobne ako mnoho ďalších tázateľov z poslednej doby) do vecí, k riešeniu ktorých vám chýbajú základné znalosti. Takže ste potom frustrovaní z toho, že "to nefunguje". Ste v tom totiž úplne stratení a trpíte romantickou predstavou, že skopírovanie nejakého kódu zaručí funkčnosť riešenia úlohy, s ktorou sa trápite. Začínajúceho lyžiara by asi pri troche zdravého rozumu nenapadlo hneď prvý deň sa nechať vyviezť lanovkou na Mont Blanc, v otázke VBA sa pmn pár tunajších ľudí o niečo podobné snaží citovat

Nejde o to, že by si nejako špatne požiadal o pomoc. Problém je, že ja som síce ochotný ti pomôcť, ale úroveň našich znalostí je bohužiaľ niekde inde, takže si logicky nemôžeme rozumieť. Ja chybne predpokladám, že máš nejaké znalosti, ktoré evidentne nemáš, takže tu máme akýsi missing link (keď budem chcieť komunikovať s niekým o oblasti, o ktorej viem tušku, budem na tom podobne). Samozrejme, som potom rozčarovaný, keď napriek mojej snahe pomôcť toto končí akurát konštatovaním, že to nefunguje. Ja nemám talent na vysvetľovanie a tebe chýba znalosť.
Pokiaľ ti teda funguje aspoň to od Dinga (opakujem, je to zjednodušenie môjho riešenia), tak pokračuj v tom, čo pre teba pripravil Dingo. Hyperlinky buď odstráň, alebo do stĺpca vedľa zadaj vzorec, ktorý sa bude odkazovať na bunku vľavo. Worksheet_SelectionChange event potom aplikuj na tieto nové bunky. Kliknutím na hyperlink sa totiž otvorí Windows Explorer, ako si sám zistil, takže to musíš obísť (tým, že budeš klikať do bunky, v ktorej hyperlink nie je). Príklady na Worksheet_SelectionChange event si vygoogluješ a upravíš na svoj rozsah buniek. Môžeš žiadať o riešenie/pomoc, ale nepočítaj s tým, že pochopíš niečo za 5 minút, pokiaľ to vyžaduje mesiace štúdia (v lepšom prípade).citovat