Hiperlink szerkesztő makró [Megoldva]

Makró készítés, parancsfájl írás és az API használata
brandboy
Hozzászólások: 3
Csatlakozott: 2011. december 1., csütörtök 8:45

Hiperlink szerkesztő makró [Megoldva]

Hozzászólás Szerző: brandboy »

A témát leválasztottam az "egy probléma - egy téma" fórumszabály alapján.
Zizi64 glob.mod.


Az alábi excelben megtalálható makró open megfelelőjét keresem:

Function GetAddress(HyperlinkCell As Range)
addr = “”
If (HyperlinkCell.Hyperlinks.Count > 0) Then
addr = HyperlinkCell.Hyperlinks(1).Address
End If
GetAddress = addr
End Function

Igazából annyit szeretnék csak,hogy egy URL linkeket tartalmazó listából kinyerni a link szövegét. A fenti makró kódot találtam, és sikeresen alkalmaztam rá excelben.
OOO-ban elvileg a Hyperlink függvény erre van, de azt kipróbálva a link úgynevezett "kedves nevét"(excel súgóból vett terminus) a "hivatkozás szövegét" kapom eredményül a tényleges link helyett.(Amennyiben cellahivatkozákánt adom meg az ominózus adatot).
Segítsen valaki, migrálni a makrót, vagy felhomályosítani,hogy mit csinálok rosszul a hiperhivatkozás függvénnyel ! :knock:
próba.ods
A példa
(60.05 KiB) Letöltve 371 alkalommal.
A hozzászólást 4 alkalommal szerkesztették, utoljára brandboy 2013. február 12., kedd 11:39-kor.
Libreoffice 3.4.4 a Windows XP-n / Openoffice az Ubuntu-n
Avatar
Zizi64
Globális moderátorok
Hozzászólások: 4034
Csatlakozott: 2008. november 12., szerda 21:22
Tartózkodási hely: Budapest

Hiperlink szerkesztő makró

Hozzászólás Szerző: Zizi64 »

Üdv!

Légy szíves egy mintafájlt feltölteni ide.
(Demonstrálva, hogy milyen a struktúrája a bemenő adatoknak, - pl.: egy cellában egy hiperlink van? - és mi az a rész pontosan, amit ebből szeretnél kinyerni...)
Sokkal könnyebb az alapján segíteni.
Sok sikert!
Kovács Tibor (W10x64Pro/W7x64P: 7.5.8;
winPenPack/PortableApps: LO3.3.1-7.6.2, AOO4.1.14
Ha megoldódott a probléma, jelöld a témaindító hozzászólásod címének szerkesztésével. Írd elé: [Megoldva].
Avatar
Zizi64
Globális moderátorok
Hozzászólások: 4034
Csatlakozott: 2008. november 12., szerda 21:22
Tartózkodási hely: Budapest

Re: Hiperlink szerkesztő makró

Hozzászólás Szerző: Zizi64 »

Innen származó makró kódot tettem a fájlodba és - szerintem - működik:

http://user.services.openoffice.org/en/ ... =21&t=2762
próba2.ods
(65.13 KiB) Letöltve 382 alkalommal.
Sok sikert!
Kovács Tibor (W10x64Pro/W7x64P: 7.5.8;
winPenPack/PortableApps: LO3.3.1-7.6.2, AOO4.1.14
Ha megoldódott a probléma, jelöld a témaindító hozzászólásod címének szerkesztésével. Írd elé: [Megoldva].
brandboy
Hozzászólások: 3
Csatlakozott: 2011. december 1., csütörtök 8:45

Re: Hiperlink szerkesztő makró

Hozzászólás Szerző: brandboy »

Nagyon szépen köszönöm, valóban működik ! :bravo:
De másik munkalapon ill másik állományban már nem !
Libreoffice 3.4.4 a Windows XP-n / Openoffice az Ubuntu-n
Avatar
Zizi64
Globális moderátorok
Hozzászólások: 4034
Csatlakozott: 2008. november 12., szerda 21:22
Tartózkodási hely: Budapest

Re: Hiperlink szerkesztő makró

Hozzászólás Szerző: Zizi64 »

Másik munkalapon (de ugyanabban a fájlban) nekem működik gond nélkül (LibO3.4.4).

Másik fájlban természetesen csak akkor működik, ha a makrót is átviszed a másik fájlba, illetve (kipróbáltam) akkor is működni fog, ha az OOo vagy Libo program makrókönyvtárába átemeled (Saját makrók)
Sok sikert!
Kovács Tibor (W10x64Pro/W7x64P: 7.5.8;
winPenPack/PortableApps: LO3.3.1-7.6.2, AOO4.1.14
Ha megoldódott a probléma, jelöld a témaindító hozzászólásod címének szerkesztésével. Írd elé: [Megoldva].
brandboy
Hozzászólások: 3
Csatlakozott: 2011. december 1., csütörtök 8:45

Re: Hiperlink szerkesztő makró

Hozzászólás Szerző: brandboy »

Áh, az elrejtett oszlopok megzavartak,így hiába vártam a helyes eredményt a megfelelő helyen,mivel a rejtett mezők meg üresen maradtak. Így hibaüzenet nem volt,csak üres cellák. Egyből én is arra gyanakodtam,hogy a makró biztonsági szinttel,vagy a szervezéssel van a gond, de még banálisabb volt a probléma. :lol:
Libreoffice 3.4.4 a Windows XP-n / Openoffice az Ubuntu-n
Válasz küldése