كيف يمكن تحويل عناوين بريد إلكتروني متعددة إلى روابط تشعبية في 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. ثم انقر فوقموافق، وسيتم تحويل جميع عناوين البريد الإلكتروني المحددة إلى روابط تشعبية. انظر لقطة الشاشة:
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل