א' שואל:
שלום.
ש לי עמודה באקסל עם עשרות היפר קישורים (כלומר מלל ידידותי שמאחוריו קישור) ושלוחצים על המלל מופנים לקישור.תודה רבה
תשובה:
ניתן לבצע זאת באקסל על ידי הגדרת פונקציה ב-VBA שתחלץ את הכתובת מהקישור.מצ"ב הצעה לפתרון על ידי שימוש בקוד VBA -
1. בגיליון אקסל בתא A3 נגדיר היפר קישור בשם AnyFit שיפנה לכתובת AnyFit.biz
2. נפתח את עורך VBA של אקסל על ידי לחיצה על Alt+F11, נסמן את Microsoft Excel Objects ונבחר ב-Insert Module.
3. נסמן את Module1 ונבחר ב-View Code.
4. נעתיק ונדביק את הקוד הבא לאקסל -
Public Function GetURL(rng As Range) As String
On Error Resume Next
GetURL = rng.Hyperlinks(1).Address
End Function
5. בתא B3 נגדיר את הנוסחה geturl(A3) והתוצאה תהיה הכתובת של ההיפר קישור - AnyFit.biz
6. על מנת שהקוד יישמר יש לשמור את קובץ האקסל בפורמט XLSM באופן הבא -
צוות AnyFit