א' שואל:
שלום.
ש לי עמודה באקסל עם עשרות היפר קישורים (כלומר מלל ידידותי שמאחוריו קישור) ושלוחצים על המלל מופנים לקישור.אני רוצה לחלץ מעמודה זו את הקישורים באמצעות נוסחא או בדרך אחרת שיופיעו לי בעמודה נוספת הקישור לאותה שורה האם אפשרי?
תודה רבה
תשובה:
ניתן לבצע זאת באקסל על ידי הגדרת פונקציה ב-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