כיצד מחלצים כתובת URL מרשימת היפרלינקים באקסל?

כיצד מחלצים מגיליון אקסל את כתובות ה-Url מלינקים עם טקסט עוגן?
יש לי רשימה של היפרלינקים באקסל, כאשר היפרלינקים עם טקסט עוגן כלשהו ואני מעוניין להפשיט את כתובות האינטרנט מהיפרלינקים הללו.
כיצד אני עושה זאת באקסל?


להלן דוגמא המתארת את המצב

היפרלינק באקסל
היפרלינק בגיליון אקסל

תשובה באקסל 2007

מאת: יורם בן אבו
לשם כך יש ליצור פונקציה מותאמת באופן אישי, להלן פונקציה מתאימה:

Function HyperLinkText(pRange As Range) As String

Dim ST1 As String
Dim ST2 As String

If pRange.Hyperlinks.Count = 0 Then
Exit Function
End If

ST1 = pRange.Hyperlinks(1).Address
ST2 = pRange.Hyperlinks(1).SubAddress

If ST2 <> "" Then
ST1 = "[" & ST1 & "]" & ST2
End If

HyperLinkText = ST1

End Function

יש לשמור את הפונקציה הזו בפונקציות המוגדרות ע"י המשתמש.

הדרך לשמור את הפונקציה היא באופן הבא:

בגיליון האקסל שבו אתם מעוניינים להכניס את הפונקציה

לחצו Alt+F11 ויפתח לכם חלון של מודולים באקסל.

בתפריט העליון בחרו  Insert ולאחר מכן בחרו  .Module.

יפתח לכם חלון שבו תדביקו את הקוד שציינתי למעלה.

לאחר מכן לחצו Alt+Q לשמירה ולמעבר לגיליון שבו נמצאים הנתונים שלכם.

כעת יש לקרוא לפונקציה.

נכנסים לחלון הפונקציות ובוחרים פונקציה המוגדרת ע"י המשתמש. ראו תמונה.

פונקציה באקסל
פונקציה באקסל

שמה של הפונקציה הוא >> HyperLinkText.

מכניסים כמשתנה של הפונקציה את התא שממנו רוצים לחלץ את כתובת האינטרנט, והפונקציה מחזריה את הכתובת בתא שציינתם.

חילוץ כתובת URL מהיפרלינק באקסל
חילוץ כתובת URL מהיפרלינק באקסל

לאחר שביצעתם את הפעולה עבור תא אחד, כוונו את העכבר לקצה השמאלי התחתון (רואים קוביה שחורה קטנה מודגשת) של מסגרת הבחירה שמקיפה את התא שאליו הכנסתם את הפונקציה וגררו אותה לאורך כל התאים שבהם אתם מעוניינים להכניס את הפונקציה.

בסיום העבודה וכאשר תרצו לסגור את קובץ האקסל, תקבלו הודעה כי לא ניתן לשמור את קובץ האקסל במצב הנוכחי וכי יש צורך לבחור בשמירה בסוג קובץ המאפשר מקרו.

בברכה, יורם בן אבו

מקורות:

קישור 1.

קישור 2.

 

כתיבת תגובה

האימייל לא יוצג באתר. שדות החובה מסומנים *