כיצד להסיר גיליונות ב- Excel (הכל בפעם אחת)

צפה בסרטון - כיצד ניתן להסתיר את כל הגיליונות ב- Excel

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

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

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

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

אז בואו נתחיל!

גיליונות מסתירים באופן ידני

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

נניח שיש לך חוברת עבודה של Excel הכוללת 10 דפי עבודה מוסתרים.

להלן השלבים לביטול הסתרה ידנית של גליונות עבודה (אחד בכל פעם):

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

השלבים שלעיל יבטל את הסתרת גליון העבודה הנבחר.

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

אתה יכול להסתיר גליונות עבודה בכמות גדולה, אך לא להסתיר בכמות גדולה

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

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

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

הסר את כל הגיליונות בבת אחת

עם VBA, תוכל לבטל בקלות את גליונות העבודה בכמויות גדולות.

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

הערה: השיטות הנלמדות במדריך זה אינן מחייבות אותך לשמור חוברת עבודה של Excel בפורמט מאופרו מאקרו (.XLSM) כדי להשתמש בקוד VBA.

שימוש בחלון מיידי

לעורך VB ב- Excel יש חלון מיידי שבו תוכל להקליד שורת קוד ולבצע אותו מיידית.

להלן השלבים לשימוש בשורת קוד זו לעיל לביטול הסתרת גיליונות דרך החלון המיידי:

1. לחץ לחיצה ימנית על כל אחד מהגיליונות הגלויים בחוברת העבודה
2. לחץ על הצג קוד. פעולה זו תפתח את עורך VB.
3. לחץ על האפשרות תצוגה בתפריט ולאחר מכן לחץ על החלון המיידי. פעולה זו תגרום לחלון המיידי להופיע בעורך VB (אם לא קיים כבר).
4. בחלון המיידי, העתק והדבק את שורת הקוד הבאה: עבור כל גיליון בחוברת עבודה זו.גיליונות: Sheet.Visible = True: Sheet הבא
5. מקם את הסמן בסוף השורה
6. הקש על מקש Enter

זהו זה!

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

לאחר שתסיים, תוכל לסגור את עורך VB.

החלק הטוב ביותר בנושא זה שאתה יכול לעשות זאת בכל חוברת עבודה. אינך צריך לדאוג לשמירת חוברת העבודה בפורמט המאופשר למקרו. פשוט בצע שורת קוד ובטל את הסרת המבט של כל הגיליונות בחוברת העבודה.

תן לי גם להסביר במהירות את קוד ה- VBA שלהלן שבו השתמשנו בחלון המיידי כדי לבטל את הסתרת הגיליונות:

עבור כל גיליון בחוברת עבודה זו.גיליונות: Sheet.Visible = True: Sheet הבא

הקוד לעיל משתמש בלולאת For Next VBA כדי לעבור בין כל הגיליונות בחוברת העבודה ולהגדיר את המאפיין הנראה כ- TRUE. לאחר שינוי המאפיין הגלוי של כל הגיליונות, הקוד יסתיים.

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

אם אתה מעוניין ללמוד יותר על החלון המיידי וכמה דברים מדהימים שאתה יכול לעשות איתו, הנה הדרכה מפורטת בנושא.

על ידי הוספת מאקרו ל- QAT (בלחיצה אחת)

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

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

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

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

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

להלן הקוד שאתה צריך להוסיף לחוברת העבודה של המאקרו האישי:

Sub UnhideAllSheets () לכל גיליון בגיליונות Sheets.Visible = True Sub Sheet End Sub Sub

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

1. לחץ על כפתור מאקרו ההקלטה (הוא בפינה השמאלית התחתונה של יישום חוברת העבודה של Excel)
2. בתיבת הדו -שיח הקלטת מאקרו, שנה את מאקרו החנות בהגדרה ל - חוברת עבודה מאקרו אישית.
3. לחץ על אישור. פעולה זו תתחיל להקליט את המאקרו
4. לחץ על סמל עצירת הקלטת המאקרו (בפינה השמאלית התחתונה של חוברת העבודה). פעולה זו תעצור את הקלטת המאקרו
5. לחץ לחיצה ימנית על כל כרטיסיית גיליונות ולאחר מכן לחץ על 'הצג קוד'
6. בעורך VB, לחץ פעמיים על אובייקט המודול בחוברת העבודה Personal.XLSB
7. הסר כל קוד קיים והעתק והדבק את הקוד לעיל.
8. לחץ על הסמל שמור בסרגל הכלים
9. סגור את עורך Vb

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

כל שעליך לעשות הוא להוסיף את הקוד הזה לסרגל הכלים לגישה מהירה, כך שתוכל להשתמש בו בכל עת מכל חוברת עבודה.

להלן השלבים להוספת קוד זה לסרגל הכלים לגישה מהירה:

1. לחץ על הסמל התאמה אישית של סרגל הכלים לגישה מהירה.
2. לחץ על פקודות נוספות.
3. בתיבת הדו-שיח אפשרויות Excel, לחץ על התפריט הנפתח 'בחר פקודות מתוך'
4. לחץ על מאקרו. זה יראה לך רשימה של כל המאקרו בחוברת העבודה (כולל אלה ב- PERSONAL.XLSB)
5. בחר את קוד המאקרו כדי לבטל את הסתרת הגיליונות
6. לחץ על כפתור הוסף
7. לחץ על אישור.

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

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

הסתר גיליונות עם טקסט ספציפי בשם

בעזרת VBA, תוכל גם לבטל את הסתרת הגיליונות המבוססים על השם.

לדוגמה, נניח שיש לך חוברת עבודה המכילה גיליונות עם שנים בשם ואתה רוצה לבטל את הסרת כל אלה שבהם השנה היא 2020-2022.

תוכל להשתמש בקוד שלהלן כדי לבטל את הסתרת כל הגיליונות עם הטקסט 2021-2022:

Sub UnhideSheetsWithSpecificText () לכל ws ב- ThisWorkbook.Worksheets If InStr (ws.Name, "2020")> 0 ואז ws.Visible = xlSheetVisible סוף אם הבא ws סוף תת

האמור לעיל משתמש בלולאת For Next כדי לעבור על כל גליון עבודה בחוברת העבודה. התנאי IF Then בודק את שם גליון העבודה ואם הוא מכיל את הטקסט שצוין (שהוא2021-2022 בקוד זה), הוא ישנה את המאפיין הגלוי כדי שיהיה גלוי.

ואם השם אינו מכיל את הטקסט שצוין, הוא ישאיר אותו כפי שהוא.

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

לדוגמה, אם ברצונך להסתיר במהירות את כל דפי העבודה שבהם השם מכיל את הטקסט '2020', תוכל להשתמש בקוד שלהלן:

Sub HideSheetsWithSpecificText () לכל ws ב- ThisWorkbook.Worksheets If InStr (ws.Name, "2020")> 0 ואז ws.Visible = xlHidden End If הבא ws End Sub

הערה: אתה יכול לשמור קוד זה במודול רגיל בתוך עורך VB או שתוכל לשמור אותו בחוברת העבודה המאקרו האישית. במקרה שתשמור אותו במודול רגיל ותצטרך להשתמש בו שוב מאוחר יותר, עליך לשמור את חוברת העבודה כחוברת עבודה המאפשרת מאקרו (פורמט .XLSM).

בטל הסתרה של גיליונות נבחרים (מבוסס על בחירת משתמשים)

אתה יכול גם להשתמש ב- VBA כדי לתת למשתמש את הגמישות לבחור אם לבטל את הסתרת הגיליון או לא.

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

להלן הקוד שיעשה זאת:

Sub UnhideSheetsUserSelection () עבור כל sh ב- ThisWorkbook.Sheets If sh.Visible True Then Result = MsgBox ("האם ברצונך להסתיר" & sh.Name, vbYesNo) אם Result = vbYes ואז sh.Visible = True End אם סוף sh הבא תַת

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

כמשתמש, כעת תוכל להחליט אם ברצונך להשאיר את הגיליון הזה מוסתר או להסתיר אותו.

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

הערה: אתה יכול לשמור קוד זה במודול רגיל בתוך עורך VB או שתוכל לשמור אותו בחוברת העבודה המאקרו האישית. במקרה שתשמור אותו במודול רגיל ותצטרך להשתמש בו שוב מאוחר יותר, עליך לשמור את חוברת העבודה כחוברת עבודה מאקרו המאפשרת (פורמט .XLSM).

להלן הדרכה שבה אני מראה כיצד לשמור את הקוד במודול הרגיל ב- Excel (חפש את הקטע 'היכן לשים קוד זה' במאמר זה)

בטל את הסתר כל או גיליונות נבחרים באמצעות תצוגה מותאמת אישית

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

'תצוגה מותאמת אישית' היא פונקציונליות ב- Excel המאפשרת לך ליצור ולשמור תצוגות שתוכל לפנות אליהן במהירות בלחיצת כפתור.

לדוגמה, נניח שיש לך חוברת עבודה של Excel עם 10 גליונות עבודה. אתה יכול ליצור תצוגה שבה כל 10 הגיליונות האלה גלויים. בעתיד, אם יש לך כמה גיליונות מוסתרים ואתה רוצה לחזור לתצוגה שבה כל הגליונות היו גלויים, תוכל לעשות זאת על ידי בחירה בתצוגה המותאמת אישית שכבר נשמרה.

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

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

להלן השלבים ליצירת תצוגה מותאמת אישית ב- Excel:

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

לאחר יצירת התצוגה, תוכל בכל עת לבקש מ- Excel להפעיל תצוגה זו (מה שיהפוך את כל הגיליונות הנראים לראויים בעת יצירת התצוגה).

להלן השלבים להצגה/הפעלה של תצוגה מותאמת אישית:

1. לחץ על הכרטיסייה תצוגה
2. לחץ על תצוגות מותאמות אישית
3. בתיבת הדו -שיח תצוגות מותאמות אישית, בחר את התצוגה שברצונך להציג
4. לחץ על כפתור הצג

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

גיליונות חסרי מסתור שהם 'מוסתרים מאוד'

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

זה יכול להיות בגלל שגיליונות אלה אינם מוסתרים רק - אלה 'מוסתרים מאוד'.

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

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

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

עבור כל גיליון בחוברת עבודה זו.גיליונות: Sheet.Visible = True: Sheet הבא

יש לי גם הדרכה מלאה כיצד להסתיר גיליונות ולהסתיר אותם מאוד (למקרה שאתה מעוניין ללמוד)