- Magga: PLEX: multimédia az egész lakásban
- Szoszo94: Xiaomi Mi Router 3G - Padavanra fel!
- Lalikiraly: Mercis kalandok - Huszonnyolcadik rész - Az újrakezdés
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Óraátállítás
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Lalikiraly: Commodore The C64, Ultimate
- Real Racing 3 - Freemium csoda
- hcl: Könnyű légierő
-
LOGOUT
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
válasz
Fire/SOUL/CD
#8693
üzenetére
Szóval egy "kicsit" másabb lett a makrókód, így egy az egyben beillesztheted a PH-ra való hozzászólásod folyamán.
Function GetLinkAddress(MyCell As Range) As String
GetLinkAddress = "[L:" & _
MyCell.Hyperlinks(1).Address & _
"]" & _
MyCell.Value & _
"[/L]"
End FunctionA Function az visszaad valamilyen értéket, ez esetben STRING-et, azaz amelyik cellából meg van híva, annak a cellának a tartalma megváltozik, mint egy hagyományos pl SZUM esetén...
-
atesss
addikt
válasz
Fire/SOUL/CD
#8693
üzenetére
Köszi

A szűkítést nem autoszűrővel oldottam meg, hanem sorbarendezéssel (+hogy a Gold legyen az elején, beszúrtam egy "=HA(H2="GOLD";1;0)"-s oszlopot), hogy benne legyen a többi is egyben, csak a szükségesek legyenek az elején.
A makrótól elsőre féltem, de aztán egész könnyen meg tudtam oldani.Jó néhány éve használtam VB-t egész alap szinten.
De azóta csak C-t és (ebben a félévben) Assembly-t. Hát azért a C-hez képest eléggé más a szintaktika...
Az Excelben mindenképp rá kell menni a "Új makró rögzítése"-re ?
Illetve mi a különbség a "Sub" és a "Function" közt ?
Mert nekem furcsa hogy csak így megy, hogy a "Sub" le van zárva, és nem benne van a "Function":Sub GetLink()
End Sub
Function GetLinkAddress(MyCell As Range) As String
GetLinkAddress = MyCell.Hyperlinks(1).Address
End FunctionDe egymásba ágyazva nem engedi.
Új hozzászólás Aktív témák
- Szomjan halunk, míg az AI dolgozik
- Kormányok / autós szimulátorok topikja
- A fociról könnyedén, egy baráti társaságban
- Autós topik
- Kétezer eurós csomag lehet a Vivo X300 Ultra
- Macska topik
- Parfüm topik
- Xiaomi 15T Pro - a téma nincs lezárva
- Viccrovat
- Magga: PLEX: multimédia az egész lakásban
- További aktív témák...
- Xbox / Microsoft Store feltöltőkártya kód (digitális, HU) több címlet, több db, azonnal, olcsón
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Samsung Galaxy S21+ / 8/128GB / Kártyafüggetlen / 12Hó Garancia
- HIBÁTLAN iPhone 13 Pro 256GB Sierra Blue-1 ÉV GARANCIA - Kártyafüggetlen, MS4530, 100% Akkumulátor
- AKCIÓ! Sapphire Nitro+ RX 7900XT 20GB videokártya garanciával hibátlan működéssel
- Kezdő Gamer PC-Számítógép! Csere-Beszámítás! I7 6700 / 16GB DDR4 / GTX 1650 Super / 500 SSD
- ÚJ 16" Dell Precision 5690 - Intel Ultra 7, 16 mag, 32 GB RAM, 512 GB SSD, RTX A1000 6GB 27% ÁFÁS
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50