Note: The other languages of the website are Google-translated. Back to English

Hogyan lehet konvertálni több e-mail címet hiperlinkekké az Excelben? 

Ha van egy munkalapon egyszerű szöveges e-mail címek listája, most ezeket a e-mail címeket hiperhivatkozásokká kívánja konvertálni, amelyekre e-maileket küldhet, miközben a címekre kattint. Természetesen átalakíthatja hiperhivatkozású e-mail címekké, de ez a módszer unalmas lesz, ha több címre van szükség konvertálásra. Ebben a cikkben néhány jó trükkről fogok beszélni, amellyel ezt a feladatot kezelhetjük.

Konvertáljon több e-mail címet hiperhivatkozássá a Formula segítségével

Konvertáljon több e-mail címet hiperlinkekké VBA kóddal


nyíl kék jobb buborék Konvertáljon több e-mail címet hiperhivatkozássá a Formula segítségével

Aktivitáskövető Hiperhivatkozás funkcióval gyorsan konvertálhatja az oszlop e-mail címét egyszerre hiperhivatkozássá.

1. Írja be ezt a képletet = hiperhivatkozás ("mailto:" & A2) egy üres cellába, ahová az eredményt fel akarja tenni, lásd a képernyőképet:

doc konvertálja a címeket hiperlinkekké 1

2. Ezután húzza le a kitöltő fogantyút azokra a cellákra, amelyekben ezt a képletet kívánja tartalmazni, és az összes e-mail cím kattintható hiperhivatkozássá vált, az alábbi képernyőkép szerint:

doc konvertálja a címeket hiperlinkekké 2


nyíl kék jobb buborék Konvertáljon több e-mail címet hiperlinkekké VBA kóddal

Amint láthatja, a fenti képlet használatával minden e-mail cím elé egy „mailto:” karakterlánc kerül, ha nem szeretné a mailto-t: a címeken belül a következő VBA-kód tehet szívességet.

1. Tartsa lenyomva a Alt + F11 kulcsokat az Excelben, és megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő makrót a Modulok Ablak.

VBA kód: Több e-mail cím konvertálása hiperhivatkozássá

Sub EmailHylink()
'updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xCell.Hyperlinks.Add Anchor:=xCell, Address:="mailto:" & xCell.Value
    Next
    Application.ScreenUpdating = xUpdate
End Sub

3. A kód beillesztése után nyomja meg a gombot F5 kulcs ehhez a kódhoz, és megjelenik egy felszólító mező, amely emlékezteti Önt a használni kívánt adattartomány kiválasztására, lásd a képernyőképet:

doc konvertálja a címeket hiperlinkekké 3

4. Kattintson a gombra OK, az összes kiválasztott e-mail címet átalakították hiperhivatkozott címekké, lásd a képernyőképet:

doc konvertálja a címeket hiperlinkekké 4


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (7)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Nem találom a cellákat hiperhivatkozásokká konvertáló leletet.
A weboldal moderátora ezt a megjegyzést minimalizálta
sztár vagy, tökéletesen működött. Millió köszönet
A weboldal moderátora ezt a megjegyzést minimalizálta
MAC környezetben vagyok, ezért nincs ALT kulcsom. Valami más módszer?
A weboldal moderátora ezt a megjegyzést minimalizálta
Az ALT billentyű megfelelője a parancsbillentyű (az Option Key bal oldalán található).

Mindkét billentyű a szóköz bal oldalán található.
A weboldal moderátora ezt a megjegyzést minimalizálta
Excel 2003-ban tökéletesen működik! Köszi szépen!
A weboldal moderátora ezt a megjegyzést minimalizálta
Ich suche eine Formel mit der ich e-mail-Adressen in URLs umwandeln kann...

Beispiel: test@test.de > http://www.test.de

Tud valaki segíteni?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia kk.operátor

A probléma megoldásához használja a következő kódot:

Sub EmailHylink()
'updateby Extendoffice
    Dim xRg As Range
    Dim yRg As Range
    Dim xCell As Range
    Dim xCell2 As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    Dim xRegEx As Object
    Dim arrSplit() As String
    
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xAddress, , , , , 8)
    Set yRg = Application.InputBox("Please select the save range", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If yRg Is Nothing Then Exit Sub
    Set yRg = yRg.Range("A1").Resize(xRg.Rows.Count, xRg.Columns.Count)

    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    
    Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
    With xRegEx
        .Pattern = "^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$"
        .Global = True
        .IgnoreCase = True
    End With
    
    For I = 1 To xRg.Rows.Count
        For J = 1 To xRg.Columns.Count
            Set xCell = xRg.Cells(I, J)
            Set xCell2 = yRg.Cells(I, J)
            If xRegEx.test(xCell.Value) Then
                arrSplit = Split(xCell.Value, "@")
                 If UBound(arrSplit, 1) = 1 Then
                    xCell2.Value = "http://www." & arrSplit(1)
                    xCell2.Hyperlinks.Add Anchor:=xCell2, Address:=xCell2.Value
                 End If
            End If
        Next
    Next
    Application.ScreenUpdating = xUpdate
End Sub


Kérem, próbálja ki, remélem tud segíteni!
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi