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

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

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

برای مثال متن لینک هست آدرس دانلود و آدرس لینک هست 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

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