כיצד להמיר כתובות דוא"ל מרובות לקישורים היפרטקסט ב-Excel?

אם יש לך רשימת כתובות דוא"ל בטקסט רגיל ב-Excel וברצונך להמיר אותן לקישורים היפרטקסט לשליחת דוא"ל, ביצוע פעולה זו ידנית עבור מספר רב של רשומות יכול להיות מייגע. מדריך זה מדגים שתי שיטות יעילות: שימוש בנוסחת HYPERLINK או במאקרו VBA.

המרת כתובות דוא"ל מרובות לקישורים עם נוסחה

המרת כתובות דוא"ל מרובות לקישורים עם קוד VBA

המרת כתובות דוא"ל מרובות לקישורים עם נוסחה

עם פונקציית הקישור, תוכל במהירות להמיר את כתובות הדוא"ל בעמודה לכתובות עם קישורים פעילים בבת אחת.

1. הזן את הנוסחה =hyperlink("mailto:"&A2) לתוך תא ריק שבו תרצה להכניס את התוצאה, ראה צילום מסך:

2. לאחר מכן גרור את הידית למלא עד לתאים שבהם ברצונך לכלול נוסחה זו, וכל כתובות הדוא"ל הפכו לקישורים היפרטקסט ניתנים ללחיצה כפי שמוצג בתמונה הבאה:

המרת כתובות דוא"ל מרובות לקישורים עם קוד VBA

כמו שאתה יכול לראות, על ידי שימוש בנוסחה לעיל, המחרוזת “mailto:” תתווסף לפני כל כתובות הדוא"ל, אם אינך רוצה את mailto: בתוך הכתובות, הקוד הבא של VBA עשוי לעזור.

1. החזק את המקשים Alt + F11 ב-Excel, וזה יפתח את חלון Microsoft Visual Basic for Applications.

2. לחץ על הוסף > מודול והדבק את המאקרו הבא בחלון המודול.

קוד VBA: המרת כתובות דוא"ל מרובות לקישורים

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. לאחר הדבקת הקוד, אנא לחץ על מקש F5 כדי להריץ את הקוד. תיבת אזהרה תופיע, וביקשה ממך לבחור את טווח הנתונים לעיבוד, ראה צילום מסך:

4. ולאחר מכן לחץ אישור, כל כתובות הדוא"ל שנבחרו הומרו לכתובות עם קישורים פעילים, ראה צילום מסך: