< návrat zpět

MS Excel


Téma: Makro na otevření http rss

Zaslal/a 2.2.2015 11:16

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ěď >

#023397
avatar
to staci urobit jednoduchy hyperlink kde:
nazov: 1234567891
cesta: http://08.15.40.22:0603/tralala/get_doc.pl?doc_id=1234567891citovat
#023400
avatar
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
#023403
avatar
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: zip23403_test.zip (7kB, staženo 50x)
citovat
icon #023404
Poki
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
#023410
avatar
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

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

náhled web stránek v Excelu

elninoslov • 23.2. 11:17

náhled web stránek v Excelu

zdena • 23.2. 10:01

Timeplan

CMM-Team • 23.2. 9:21

Nechci při importu odebírat prázdné řádky

elninoslov • 23.2. 9:19

náhled web stránek v Excelu

elninoslov • 23.2. 9:13

náhled web stránek v Excelu

zdena • 22.2. 17:08

náhled web stránek v Excelu

Nahled-WEB • 22.2. 13:12