MS Excel

mám dotaz

V sloupci H7 - H30 čísla.

1234567891
1231231233
1010203010

Potřeboval bych při kliknutí na buňku s číslem spustit makro, které spustí http odkaz a zároveň do id odkazu dosadí číslo z buňky na kterou jsem klikl, ale bez posledních dvou čísel.:

např:

http://08.15.40.22:0603/tralala/get_doc.pl?doc_id=12345678

Výsledek by se měl Zobrazit v IE.

Děkuju za pomoc.
Marek

Zaslat odpověď >

Palooo(2.2.2015 11:28)#023397

to staci urobit jednoduchy hyperlink kde:
nazov: 1234567891
cesta: http://08.15.40.22:0603/tralala/get_doc.pl?doc_id=1234567891citovat

Marekkoc(2.2.2015 12:29)#023400

Jestli to chápu dobře tak to nepůjde, protože ty řádky jsou součástí KT a počet řádků se může měnit v rozmezí od H7-H30.citovat

Palooo(2.2.2015 12:36)#023403

pardon zle som napisal priklad:
nazov: 1234567891
cesta: http://08.15.40.22:0603/tralala/get_doc.pl?doc_id=12345678

nazov hyperlinku a cesta hyperlinku nemusia byt rovnake

prikladam prilohu kde som dal nazov hyperlinku test a adresa je google.com

Příloha: zip

23403_test.zip (7kB, staženo 50x)

citovat

Poki(2.2.2015 13:00)#023404

Nezkoumal jsem detaily, jen jsem zkusil napsat kod, ktery resi zprvu pozadovane:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Path As String, s As String

'první část odkazu
Path = "http://08.15.40.22:0603/tralala/get_doc.pl?doc_id="

If Not Intersect(Target, Range("H7:H30")) Is Nothing And Target.Count = 1 Then
If IsNumeric(Target) And Len(Target) > 0 Then
'druhá část odkazu
s = Left(Target, Len(Target) - 2)

'otevrit odkaz
ActiveWorkbook.FollowHyperlink Path & s
End If
End If
End Sub

Tento kod je nutne vlozit do modulu listu, kde ma byt ona oblast...citovat

Marekkoc(2.2.2015 14:37)#023410

Děkuju je to super. Existuje něco ve vba co by zobrazilo výsledek toho odkazu, ať nemusím používá t IE.citovat

Téma: Makro na otevření http

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje