كيفية استخراج عناوين الويب في إكسيل؟

لنفترض أنك تلقيت مصنف Excel من زميلك والذي لديك فيه قائمة بالارتباطات التشعبية في عمود واحد. الآن، من هذه القائمة، تريد استخراج كافة عناوين URL للارتباطات التشعبية.

الطريقة اليدوية تمثل صداعًا حقيقيًا، حيث يتعين عليك نسخ ولصق كل عنوان URL واحدًا تلو الآخر. لذا فإن أفضل طريقة هي إنشاء UDF في VBA . واليوم أود أن أشارككم رمزًا بسيطًا لـ UDF هذا.

رمز VBA لاستخراج عناوين URL للارتباط التشعبي

 Function GiveMeURL(rng As Range) As String On Error Resume Next GiveMeURL = rng.Hyperlinks(1).Address End Function

كيفية استخدام هذا الرمز

لاستخدام UDF هذا، يجب عليك اتباع الخطوات التالية:

1. افتح محرر Visual Basic من علامة التبويب “المطور” أو استخدم اختصار لوحة المفاتيح ALT+F11.
2. أدخل وحدة نمطية جديدة، والصق الكود أعلاه فيها وأغلقها.
3. الآن، في جدول البيانات الخاص بك، أدخل الوظيفة =GiveMeURL(A1) واضغط على Enter.