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
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:
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:
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:
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:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz 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!