excel logo

ترفند اکسل : چگونه آدرس لینک را در اکسل پیدا کنیم؟

خیلی وقت ها پیش آمده که یک سری لینک را از صفحات وب کپی می کنیم و می خواهیم که آدرس لینک ها را بدست بیاوریم.

به عبارت دیگر ما میخواهیم آدرس متن هایی که دارای لینک هستند را را بدست بیاوریم.

برای مثال متن لینک هست آدرس دانلود و آدرس لینک هست https://ww.saeedriahi.ir  و قصد ما پیداکردن و جداکردن آدرس لینک هست.

ما می توانیم در اکسل متن هایی که دارای لینک هستند را وارد کنیم و با استفاده از تابع زیر که باید در قسمت Module نوشته شود ، لینک را ها با یک فرمول بدست بیاوریم.

مثلا یک سری متن لینک دار مشابه زیر وجود دارد .

ما قصد داریم که این لیست لینک دار را در اکسل وارد کنیم و در ستون کنار آنها آدرس لینک ها را داشته باشیم .

 ترفند اکسل : چگونه آدرس لینک را در اکسل پیدا کنیم

برای یافتن آدرس لینک متن ها باید به صورت زیر اقدام کنیم.

اگر تجربه کارکردن با VBA را ندارید، نگران نباشید خیلی ساده است .کافیه مراحل زیر را دنبال کنید:

  1. یک اکسل جدید باز کنید
  2. با فشردن کلیدهای ALT + F11  پنجره VBA را باز کنید.
  3. به منوی Insert برید و بر روی Module کلیک کنید
  4. کد زیر را کپی کنید و در پنجره Module قرار دهید.
  5. با فشردن کلیدهای ALT + Q از VBA خارج شوید.
  6. از تابع  GetURL برای پیدا کردن لینک سلول مورد نظر استفاده کنید. مثلا در یک سلول بنویسید :=GetURL(A1)
  7. آدرس لینک در داخل سلول نمایش داده می شود. به همین راحتی.

کد زیر را کپی کنید و در پنجره Module قرار دهید.

Function GetURL(cell As range, Optional default_value As Variant)
 'Lists the Hyperlink Address for a Given Cell
 'If cell does not contain a hyperlink, return default_value
      If (cell.range("A1").Hyperlinks.Count <> 1) Then
          GetURL = default_value
      Else
          GetURL = cell.range("A1").Hyperlinks(1).Address
      End If
End Function
 ترفند اکسل : چگونه آدرس لینک را در اکسل پیدا کنیم
 ترفند اکسل : چگونه آدرس لینک را در اکسل پیدا کنیم

در صورتی که موفق نشدید با راهنمایی بالا آدرس لینک را بدست بیاورید لطفا در قسمت نظرات مشکل خود را مطرح کنید تا مشکل شما بررسی و مرتفع گردد.

دیدگاه‌ خود را بنویسید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *