Cheryl یک کاربرگ دارد که حاوی لینک های زیادی است. متن نمایشی برای هر هایپرلینک با هدف هایپرلینک متفاوت است. این هایپرلینک ها همه در ستون A هستند. شریل مایل است متن نمایشگر را در ستون A بگذارد، URL مورد نظر را به ستون B منتقل کند، و لینک را در ستون A حذف کند. چیزی که او باید به آن پایان دهد، متن نمایشگر در ستون A است. ، URL در ستون B، و هیچ پیوند فعال در کاربرگ وجود ندارد.
پردازش و استخراج اطلاعات از هایپرلینک ها به این روش مستلزم استفاده از یک ماکرو است. در زیر نمونهای از یک ماکرو انعطافپذیر است که تمام پیوندهای موجود در محدوده انتخاب شده سلولها را بررسی میکند. اگر یک هایپرلینک پیدا شود، URL مربوط به هایپرلینک در سمت راست هایپرلینک وارد می شود و سپس خود هایپرلینک حذف می شود. با این کار، متن نمایشگر در سلولی باقی میماند که پیوند قبلی در آن قرار داشت.
Sub GetHLInfo()
Dim c As Range
For Each c In Selection
If c.Hyperlinks.Count > 0 Then
c.Offset(0, 1) = c.Hyperlinks(1).Address
c.Hyperlinks(1).Delete
End If
Next
End Sub
