Legfrissebb anyagok
IT café témák
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- Újabb robottaxis balesetekre derült fény
- Rengeteg áram kell az adatközpontoknak, erre válasz a geotermikus energia
- Betelik a pohár: nagy igény lenne a gyorshajtás-ellenes technológiára
- AI-alapú, mobilos lopásgátlót tesztel a Google
- OpenWRT topic
- Microsoft Office és Office 365 topic
- Az AI megmondja, hogy van-e fájdalma a macskának
- QNAP hálózati adattárolók (NAS)
- Felhő alapú adattárolás (Dropbox, stb.)
PROHARDVER! témák
Mobilarena témák
GAMEPOD.hu témák
-
IT café
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
-
spe88
senior tag
Megvan:
[/Option Explicit
Function HyperLinkText(rg As Range)
Dim sFormula As String, S As String
Dim L As Long
Dim H As Hyperlink, HS As Hyperlinks
sFormula = rg.Formula
L = InStr(1, sFormula, "HYPERLINK(""", vbBinaryCompare)
If L > 0 Then
S = Mid(sFormula, L + 11)
S = Left(S, InStr(S, """") - 1)
Else
Set HS = rg.Worksheet.Hyperlinks
For Each H In HS
If H.Range = rg Then
S = H.Address
End If
Next H
End If
HyperLinkText = S
End FunctionM]Spóroljunk! Kerül, amibe kerül!
Új hozzászólás Aktív témák
Topikgazda
Aktív témák
- gban: Ingyen kellene, de tegnapra
- Sorozatok
- Politika
- Garmin Instinct – küldetés teljesítve
- Kerékpárosok, bringások ide!
- Nők, nőügyek (18+)
- Hardcore café
- Computex 2024: jóvágású Gigabyte alaplap Threadripperek alá
- T Phone 2 5G - kétszer olyan jó
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- További aktív témák...
Új prémium hirdetések
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office