צור במהירות דף עבודה סיכום עם היפר -קישורים ב- Excel

הרבה מעמיתי מבלים הרבה מזמנם ביצירת דף עבודה סיכום ב- Excel.

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

אז אתה יכול ללחוץ על תא עם שם גיליון (אומרים יאן, פברואר, מרס… ) וזה ייקח אותך לגליון העבודה. בנוסף, יש גם היפר -קישור בכל גליון עבודה המקשר לגליון העבודה הסיכום.

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

הטריק הוא ליצור מאקרו קצר שיעשה זאת עבורך.

לא משנה כמה גליונות עבודה יש ​​לך, הוא ייצור מיידית דף עבודה סיכום עם היפר -קישורים עובדים.

משהו כפי שמוצג להלן:

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

צור גיליון עבודה סיכום עם היפר -קישורים

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

הנה הקוד:

תת CreateSummary () 'נוצר על ידי Sumit Bansal של trumpexcel.com' ניתן להשתמש בקוד זה ליצירת גליון עבודה סיכום עם היפר -קישורים Dim x As גליון עבודה Dim Counter כמונה שלם = 0 עבור כל x בדלפק עבודה דלפק = מונה + 1 אם מונה = 1 ואז GoTo Donoting With ActiveCell .Value = x.Name .Hyperlinks.Add ActiveCell, "", x.Name & "! A1", TextToDisplay: = x.Name, ScreenTip: = "לחץ כאן כדי לעבור לדף העבודה" עם דפי עבודה (Counter) .Range ("A1"). Value = "Back to" & ActiveSheet.Name .Hyperlinks.Add Sheets (x.Name) .Range ("A1"), "", _ "'" & ActiveSheet.Name & "'" & "!" & ActiveCell.Address, _ ScreenTip: = "חזור אל" & ActiveSheet.Name סוף עם קצה עם ActiveCell.Offset (1, 0). בחר באפשרות Donothing: Next x End Sub 

היכן לשים את הקוד הזה?

בצע את השלבים שלהלן כדי למקם קוד זה בחוברת העבודה:

1. עבור לכרטיסייה מפתחים ולחץ על Visual Basic. תוכל גם להשתמש בקיצור המקשים - ALT F11.
   • אם אתה יכול למצוא את כרטיסיית המפתחים ברצועת הכלים ב- Excel, לחץ כאן כדי לדעת כיצד להשיג זאת.
2. אמורה להיות חלונית סייר פרויקטים בצד שמאל (אם היא לא נמצאת שם, השתמש ב- Control + R כדי להפוך אותה לגלויה).
3. עבור אל הכנס ולחץ על מודול. זה מוסיף מודול לחוברת העבודה. כמו כן, בצד ימין תראה חלון הקוד מופיע (עם סמן מהבהב).
4. בחלון קוד המודול, העתק והדבק את הקוד לעיל.

הפעלת הקוד

כדי להריץ את הקוד הזה:

• עבור לכרטיסייה מפתחים -> קוד -> פקודות מאקרו. פעולה זו תפתח את תיבת הדיאלוג המאקרו.
• בחר את Macro CreateSummary ולחץ על הפעלה.
• פעולה זו תפעיל את המאקרו ותיצור את ההיפר -קישורים בגיליון הפעיל.

דרך נוספת להריץ את המאקרו היא הכנסת כפתור/צורה והקצאת אליו של המאקרו. כדי לעשות זאת:

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

עכשיו, אתה יכול פשוט ללחוץ על הצורה כדי להריץ את המאקרו.

הורד את הקובץ מכאן

הערה:

1. קידדתי את התא A1 בכל גיליון, שמקושר לו היפר כדי להחזיר אותך לדף הסיכום. ודא שאתה משנה אותו בהתאם אם יש לך משהו בתא A1 בכל גיליון.
2. הסיכום אינו יוצר לעצמו היפר -קישור (וזה הגיוני מכיוון שכבר אתה נמצא בגיליון זה).
3. הפעל קוד זה כאשר גליון העבודה הסיכום הוא גליון העבודה הפעיל.
4. ייתכן שתרצה להוסיף עיצוב או סידור מחדש. אבל אני מקווה שהקוד הזה מטפל בחלק הקשה.
5. שמור חוברת עבודה זו כתוסף .xls או .xlsm, מכיוון שהיא מכילה מאקרו.

הדרכות אחרות של Excel VBA:

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