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 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.
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!
