Excel מצויד בשיטות שונות לאיתור תאים לפי מאפיינים. כבר הזכרנו בעבר את "מעבר אל" (Ctrl+G או F5). אבל אין שיטה מובנית ב-Excel לאיתור/בחירה של תאים המכילים היפר-קישורים (Hyperlinks).
אפשר לבצע את המשימה בעזרת מקרו פשוט:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | Sub select_hyperlink() Sub select_hyperlink() Dim rngCell As Range, strCells As String strCells = "" For Each rngCell In Selection If rngCell.Hyperlinks.Count = 1 Then strCells = strCells & rngCell.Address & "," End If Next rngCell If Len(strCells) < 2 Then Exit Sub strCells = Left(strCells, Len(strCells) - 1) Range(strCells).Select End Sub |
המקרו יבחר בפעולה אחת את כל התאים המכילים היפר-קישור.
את קוד המקרו יש להעתיק למודול רגיל בעורך ה-Vba. מומלץ להעתיק את הקוד בחוברת מקרו אישית (Personal.xlsb ב-Excel 2007; Personal.xls ב-Excel 2003) כך שיהיה זמין לכל החוברות הפתוחים.
בכל הגרסאות של Excel אפשר לפתוח את עורך ה-Vba בהקשה על צירוף Alt+F11. ב-Excel 2007 אפשר גם להשתמש בכפתור Visual Basic בטאב "מפתחים"
אם הטאב לא מופיע ברצועה צריך להפעיל אותו דרך "אפשרויות Excel-נפוץ"
ב-Excel 97/2003 אפשר דרך התפריט "כלים-מקרו-עורך Vb".
להלן סרטון קצר המדגים את ההעתקה של הקוד לחוברת מקרו אישית ויצירת קיצור מקשים להפעלת המקרו
