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

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

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

כדי להתחיל, הקש Alt + F11 כדי לפתוח את העורך Microsoft Visual Basic for Applications (VBA). לאחר מכן, עבור אל הוסף> מודול.

העתק והדבק את המאקרו הבא מ- Microsoft לחלון המודול המוצג.

תת Sort_Active_Book () החלש אני כמו j שלם דים כפי שלם דים iAnswer כפי VbMsgBoxResult "הצג בפני המשתמש כמו לאיזה כיוון שהם רוצים 'למיין את גיליונות עבודה.' IAnswer = MsgBox (" גיליונות מיין בסדר עולה?" & Chr (10) _ "לחץ על לא ימוין בסדר יורד", _ vbYesNoCancel + vbQuestion + vbDefaultButton1, "Sort Worksets" עבור i = 1 ל- Sheets.Count עבור j = 1 ל- Sheets.Count - 1 "אם התשובה היא כן, ולאחר מכן למיין בסדר עולה. "אם iAnswer = vbYes אז אם $ UCase (גיליונות (j) .Name)> UCase $ (גיליונות (j + 1) .Name) ואז גיליונות (j) .Move אחרי: = גיליונות (j + 1) End If" אם התשובה היא לא, אז מיין בסדר יורד. "elseif iAnswer = vbNo אז אם $ UCase (גיליונות (j) .Name) < UCase$(Sheets(j + 1).Name) Then                Sheets(j).Move After:=Sheets(j + 1)             End If          End If       Next j    Next i End Sub

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

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

הקלד שם עבור המודול בתיבה שם ולחץ על Enter. שים לב כי שם המודול אינו יכול להכיל רווחים.

שם המודול משתנה ברשימת המודולים תחת Project בחלונית השמאלית.

סגור את עורך VBA על-ידי מעבר אל קובץ> סגור וחזור אל Microsoft Excel.

עכשיו, אנחנו הולכים להפעיל את המאקרו כדי למיין את הכרטיסיות שלנו. הקש Alt + F8 כדי לגשת לרשימת פקודות המאקרו בתיבת הדו-שיח 'מאקרו'. בחר את המאקרו ברשימה (במקרה שלנו יש רק מאקרו אחד), ולחץ על "הפעלה".

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

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

המאקרו שהוספת הוא חלק מחוברת העבודה שלך כעת, אך כאשר תשמור אותה, סביר להניח שתראה את תיבת הדו-שיח הבאה. הסיבה לכך היא ששמרת את חוברת העבודה שלך כקובץ .xlsx, שהוא פורמט חוברת עבודה רגיל של Excel שאינו כולל פקודות מאקרו. כדי לכלול פקודות מאקרו בחוברת העבודה שלך ולהיות מסוגל להפעיל אותן, עליך לשמור את חוברת העבודה שלך כחוברת עבודה מאופשרת מאקרו או בקובץ .xlsm. לשם כך, לחץ על "לא" בתיבת דו-שיח זו.

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

לחץ על "שמור".

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