Stránka 1 z 2

Excel - otvoreni odkazu za pomoci makra  Vyřešeno

Napsal: 06 kvě 2012 06:53
od danko6
Caute partia.

Takze potreboval by som pomoc.
Potrebujem aby sa otvoril odkaz na www v exceli za pomoci makra alebo nejak inak pomocou obrazka .
Jedna sa o to ze ten odkaz sa meni v zavislosti od generovaneho cisla. Pripajam aj prilohu.
Pomocou makra co som skusal tak vzdy excel kopiruje ten isty odkaz ale kedze sa meni cislo tak toto mi nepomoze.

Re: Excel - otvoreni odkazu za pomoci makra

Napsal: 06 kvě 2012 09:19
od cmuch
Ahoj, kam nebo kde se bude zobrazovat generované číslo.
To co si udělal v Z5 nestačí?

Re: Excel - otvoreni odkazu za pomoci makra

Napsal: 06 kvě 2012 17:58
od danko6
No odkaz ktory je v B16 je OK ale chcel by som aby sa odkaz otvoril pomocou obrazka vygeneruj kod. Generovany kod budem tlacit a nasledne pomocou citacky skenovat.

Re: Excel - otvoreni odkazu za pomoci makra

Napsal: 06 kvě 2012 18:01
od cmuch
Takže když se klikne na obrázek tak by se měl otevřít odkaz?
Kde budou data pro ten odkaz?

Re: Excel - otvoreni odkazu za pomoci makra

Napsal: 06 kvě 2012 18:15
od danko6
Je to link v B16

Re: Excel - otvoreni odkazu za pomoci makra

Napsal: 06 kvě 2012 18:35
od cmuch
Tady je makro jak dostat odkaz do obrázku a následně ho i spustit. Odkaz se načítá z buňky Z5

Kód: Vybrat vše

Sub Makro1()

Dim kod As Variant

' ulozeni kodu do promene
kod = Range("Z5").Text

' nastavi hyper odkaz
ActiveSheet.Shapes.Range(Array("Picture 8")).Item(1).Hyperlink.Address = kod

' otevøe hyper odkaz
ActiveSheet.Shapes.Range(Array("Picture 8")).Item(1).Hyperlink.Follow NewWindow:=False, AddHistory:=True

End Sub

Šlo by i udělat pokud se změní hodnota v AA4 aby se ten odkaz v tom obr. změnil taktéž.

Nebo jak to přesně bude probíhat.

Re: Excel - otvoreni odkazu za pomoci makra

Napsal: 07 kvě 2012 03:54
od danko6
Ahoj Cmuch.
Vdaka za pomoc ale asi som to zle vysvetlil takze este raz.
Na vygenerovanie ciaroveho kodu s cislom 123456789 je potrebny tento odkaz zo Z3:
http://www.bokai.com/Barcode.Net/Barcode.aspx?BarcodeType=CODE39&Data=123456789&ImageFormat=Jpeg&BarWidth=3&Height=400&FontName=Arial&FontSize=70&FontStyle=Bold

Aby som mohol menit cislo ciaroveho kodu rozdelil som odkaz na 2 casti Z4 a AB4. Medzi nimi je iba vzorec v AA kde nacitava hodnotu z C4.
Nasledne som nechal pomocou vzorca spojit bunky Z4,AA4,AB4 kde vznikne premenny odkaz :
http://www.bokai.com/Barcode.Net/Barcode.aspx?BarcodeType=CODE39&Data=5555&ImageFormat=Jpeg&BarWidth=3&Height=400&FontName=Arial&FontSize=70&FontStyle=Bold

Odkaz sa mani iba v hodnote =CODE39&Data=cislo ciaroveho kodu.

V bunke B16 je vzorec ktory potrebujem spravit ako odkaz do obrazka. Aby po kliknuti na obrazok generuj kod sa otvoril intenetovy prehliadac s odkazom z B16.

Vdaka.

Re: Excel - otvoreni odkazu za pomoci makra

Napsal: 07 kvě 2012 07:38
od cmuch
Ten kod byl dělán jen pro ukázku jak docílit toho aby se měnil i v obrázku.

Tak přiložím sešit kde je to udělané tak, že pokud se změní číslo v C4 ,
tak se změní automaticky i hypertextový odkaz toho obrázku a pak na něj stačí kliknout.
Nebo je tam v makru zakázané automatické spuštění odkazu.

V makru je nastaven kod takto:

Kód: Vybrat vše

' ulozeni kodu do promene
    ' cislo carovaho kodu
    cislokodu = Range("C4")
    ' cely kod
    kod = "http://www.bokai.com/Barcode.Net/Barcode.aspx?BarcodeType=CODE39&Data=" & cislokodu & "&ImageFormat=Jpeg&BarWidth=3&Height=400&FontName=Arial&FontSize=70&FontStyle=Bold"


Takže ostaní odkazy nejsou potřeba na listě.

Re: Excel - otvoreni odkazu za pomoci makra

Napsal: 07 kvě 2012 07:54
od karel.laska
Zdravím,

kdysi jsem řešil něco podobného, myslím tím tisk čárového kódu.
Vše jsem vyřešil instalací / přidáním fontu, který mi generoval přímo čárový kód.
V případě nedostupnosti webových stránek apod. Vám script nebude načítat čárový kód.
Čárové fonty jsou ke stažení na webu..

S pozdravem Karel Láska

Re: Excel - otvoreni odkazu za pomoci makra

Napsal: 07 kvě 2012 20:02
od danko6
No klobuk dole presne toto som potreboval. Dost casto potrebujem taketo vecicky tak uz viem kam sa obratim nabuduce : ) Vdaka.

--- Doplnění předchozího příspěvku (07 Kvě 2012 20:15) ---

Este jedna otazka ak mam predvoleny prehliadac firefox a chcem aby sa mi odkazy v excely otvarali v nom a nie v explorery ako na to ? Nasiel som v exceli moznosti nastavenia ale su tam iba verzie experora.

Re: Excel - otvoreni odkazu za pomoci makra

Napsal: 08 kvě 2012 19:16
od cmuch
Tak jsem si s tím teď chvíli hrál a zjistil jsem následující.
Pokud vytvořím nějaký jiný hypertextový odkaz třeba http://www.pc-help.cz tak se my otevře v implicitním (výchozím) prohlížeči.
A pokud zadám jen http://www.bokai.com/Barcode.Net/ tak se otevře také ve výchozím prohlížeči.
Když se ale zadá celý odkaz tak se otevře v IE :-(

Jak se to chová u tebe?

Re: Excel - otvoreni odkazu za pomoci makra

Napsal: 08 kvě 2012 19:22
od danko6
No mne to robi presne tak ako Tebe. To je zaujimave ze to takto otvara : )