כיצד למיין אוטומטית גליונות וכרטיסיות של Excel

כיצד למיין אוטומטית גליונות וכרטיסיות של Excel

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

המילים "מאקרו בקוד Visual Basic" יכולות להיות מאיימות, אבל הכל קל יותר ממה שזה נשמע. מאקרו היא תוכנית קטנה שמבצעת עבורנו סדרת פעולות באקסל, ומשמשת לאוטומציה של משימות שחוזרות על עצמן . פקודות מאקרו נכתבות בקוד Visual Basic for Applications (או VBA), שפת תכנות המאפשרת לך לגשת ולהרחיב את הפונקציות של Excel.

עורך Visual Basic

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

מיון כרטיסיות Excel

כדי לפתוח את עורך VBA, אנו משתמשים בקיצור המקשים Alt + F11 . לאחר הופעת חלון העורך, אנו מחפשים חוברת עבודה מסוימת של Excel, הנקראת Personal.xls . לספר זה יש את המאפיין שכל מה שנעשה בו ישפיע על כל חוברות העבודה . כלומר, אם ניצור מאקרו, נוכל להשתמש בו מתי שנרצה.

עורך מאקרו

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

צור מאקרו ב- Excel

עכשיו יש לנו הכל מוכן ליצור מודול חדש . אנו פותחים את עורך ה- VBA עם Alt + F11 , בוחרים בספר Personal.xls ואז לוחצים על הוספה> מודול . אנו מציבים את הסמן בחלון המודול וכותבים את הקוד הבא:

Sub SortSheets_Ascendant ()

עבור a = 1 לסדינים

עבור s = a + 1 לגיליונות

אם UCase (Sheets (a) .Name)> UCase (Sheets (s) .Name) ואז

גיליונות. העבר לפני: = גיליונות (א)

סיום אם

הבא

ליד

סיום משנה

אנו סוגרים את החלון והמקרו יאוחסן אוטומטית. נותר רק לבדוק שזה עובד. אנו פותחים את הספר שאת לשוניותיו אנו רוצים למיין, אנו עוברים אל תצוגה ונלחץ על פקודות מאקרו , או נלחץ על קיצור המקשים Alt + F8 . אנו לוחצים פעמיים על SortSheets_Ascendant , וכרטיסיות הספרים ימוקמו בסדר אלפביתי בן רגע .

מיון כרטיסיות Excel באלף בית

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

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

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

תת גיליונות_מסתדרים ()

עבור a = 1 לסדינים

עבור s = a + 1 לגיליונות

אם UCase (Sheets (a) .Name) <UCase (Sheets (s) .Name) ואז

גיליונות. העבר לפני: = גיליונות (א)

סיום אם

הבא

ליד

סיום משנה

יש רק שתי וריאציות. הראשון, כמובן, הוא שם המאקרו. השני הוא השינוי מ> ל <בשורת הקוד הרביעית. המשמעות היא שסדר הגיליונות בספר ישנה כיוון . כעת כשתלחץ על תצוגה> פקודות מאקרו (או על קיצור הדרך Alt + F8 ), תראה את שני פקודות המאקרו החדשות שנוצרו. לחץ פעמיים על SortSheets_Descending , ובדוק בסיפוק את השפעתו.

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

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