كيفية تحويل عناوين بريد إلكتروني متعددة إلى ارتباطات تشعبية في إكسيل؟ 

إذا كان لديك قائمة بعناوين البريد الإلكتروني النصية العادية في Excel وترغب في تحويلها إلى ارتباطات تشعبية قابلة للنقر لإرسال رسائل البريد الإلكتروني، فقد يستغرق القيام بذلك يدويًا لإدخالات متعددة وقتًا طويلاً. يوضح هذا الدليل طريقتين فعالتين: استخدام صيغة HYPERLINK أو ماكرو VBA.

تحويل عناوين بريد إلكتروني متعددة إلى ارتباطات تشعبية باستخدام الصيغة

تحويل عناوين بريد إلكتروني متعددة إلى ارتباطات تشعبية برمز VBA

تحويل عناوين بريد إلكتروني متعددة إلى ارتباطات تشعبية باستخدام الصيغة

مع الارتباط التشعبي وظيفة ، يمكنك تحويل عناوين البريد الإلكتروني للعمود بسرعة إلى عناوين ذات ارتباطات تشعبية مرة واحدة.

1. أدخل هذه الصيغة = ارتباط تشعبي ("mailto:" & A2) في خلية فارغة حيث تريد وضع النتيجة ، انظر لقطة الشاشة:

2. ثم اسحب مقبض التعبئة لأسفل إلى الخلايا التي تريد أن تحتوي على هذه الصيغة ، وأصبحت جميع عناوين البريد الإلكتروني روابط تشعبية قابلة للنقر كما هو موضح في لقطة الشاشة التالية:

تحويل عناوين بريد إلكتروني متعددة إلى ارتباطات تشعبية برمز VBA

كما ترى ، باستخدام الصيغة أعلاه ، ستتم إضافة سلسلة "mailto:" أمام كل عناوين بريد إلكتروني ، إذا كنت لا تريد mailto: داخل العناوين ، قد يكون لك رمز VBA التالي خدمة.

1. اضغط باستمرار على ALT + F11 في Excel ، ويفتح ملف ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، ولصق الماكرو التالي في ملف وحدة نافذة او شباك.

كود فبا: تحويل عدة عناوين بريد إلكتروني إلى ارتباطات تشعبية

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. ثم انقر فوق OK، تم تحويل جميع عناوين البريد الإلكتروني المحددة إلى عناوين ذات ارتباطات تشعبية ، انظر الصورة: