כיצד למיין דפי עבודה ב- Excel באמצעות VBA (באלפבית)

אם אתה עובד עם הרבה דפי עבודה ב- Excel, אתה יודע שהניהול של זה יכול להפוך לבעיה.

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

כמה קל זה היה אם הייתה דרך למיין במהירות את דפי העבודה ב- Excel.

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

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

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

קוד VBA למיון גליונות עבודה ב- Excel

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

תת SortWorksheetsTabs () Application.ScreenUpdating = False Dim ShCount כמספר שלם, i כמספר שלם, j As Integer ShCount = Sheets.Count For i = 1 to ShCount - 1 For j = i + 1 To ShCount If UCase (Sheets (j). שם) <UCase (Sheets (i) .Name) ואז Sheets (j). העבר לפני: = Sheets (i) סוף אם הבא j הבא i Application.ScreenUpdating = Sub End True

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

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

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

תהליך זה חוזר על עצמו בכל דפי העבודה והתוצאה הסופית היא סדר דף עבודה הממוין בסדר אלפביתי.

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

1. הפונקציה UCase משמשת כדי לוודא שלא מתייחסים לאותיות קטנות ואלותיות שונות.
2. הערך של Application.ScreenUpdating מוגדר כ- False בתחילת הקוד ומשתנה ל- True בסוף הקוד. זה מבטיח שבזמן שהקוד פועל, אתה לא רואה אותו קורה על המסך. זה גם עוזר להאיץ את ביצוע הקוד.

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

הקוד שלהלן ימיין את גליונות העבודה בסדר יורד:

'קוד זה ימיין את גליונות העבודה באלפביתית תת SortWorksheetsTabs () Application.ScreenUpdating = False Dim ShCount כמספר שלם, i כמספר שלם, j כמספר שלם ShCount = Sheets.Count For i = 1 ל- ShCount - 1 עבור j = i + 1 ל- ShCount אם UCase (Sheets (j) .Name)> UCase (Sheets (i) .Name) ואז Sheets (j). העבר לפני: = Sheets (i) סוף אם הבא j הבא i Application.ScreenUpdating = Sub End True

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

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

Sub SortWorksheetsTabs () Application.ScreenUpdating = False Dim ShCount as Integer, i As Integer, j As Integer Dim SortOrder As VbMsgBoxResult SortOrder = MsgBox ("Select Yes for Ascending and No for יורדת סדר", vbYesNoCancel) ShCount = Sheets. i = 1 ל- ShCount - 1 For j = i + 1 ל- ShCount If SortOrder = vbYes Then If UCase (Sheets (j) .Name) UCase (Sheets (i) .Name) Then Sheets (j). העבר לפני: = Sheets (i) סוף אם סוף אם הבא j הבא i Application.ScreenUpdating = True End Sub

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

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

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

מילת אזהרה: הקוד לעיל עובד ברוב המקרים. תחום אחד שבו הוא יתן לך את התוצאה הלא נכונה הוא כאשר יש לך שמות כרטיסיות כגון Q12021-2022, Q22021-2022, Q12021-2022, Q22021-2022. באופן אידיאלי, היית רוצה שכל הכרטיסיות לאותן שנים יהיו ביחד, אך זה לא יתבצע שכן Q12021-2022 יוצב לפני Q22021-2022.

היכן לשים את קוד ה- VBA

ל- Excel יש תומך תומך ב- VBA שנקרא עורך VBA.

עליך להעתיק ולהדביק את קוד VBA בחלון קוד המודול של עורך VB.

להלן השלבים לביצוע פעולה זו:

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

כיצד להפעיל את קוד VBA

ב- Excel, ישנן דרכים שונות להפעלת קוד VBA.

אתה יכול להריץ את הקוד ישירות מעורך Visual Basic (נקרא גם עורך VB).

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

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

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

אתה עשוי גם לאהוב את הדרכות הבאות של Excel/VBA:

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