✅ מיין דפי עבודה בסדר עולה באמצעות מאקרו

תוכן העניינים

כך תוכל לתת את הטבלאות בסדר אלפביתי

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

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

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

תת מיון בלטר ()
Dim Zaehler1 כשלם, Zaehler2 כשלם
שם עמום כמחרוזת
Name = ActiveSheet.Name
עבור Zaehler1 = 1 לדפי עבודה
עבור Zaehler2 = Zaehler1 לדפי עבודה
אם UCase (גליונות עבודה (Counter2) .Name) <UCase (גליונות עבודה (Counter1) .Name) לאחר מכן
דפי עבודה (Zaehler2). העבר לפני: = גליונות עבודה (Zaehler1)
סוף אם
מונה הבא 2, מונה 1
דפי עבודה (שם). הפעל
סיום תת

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

טיפ: אם ברצונך לדעת כיצד להזין ולהפעיל פקודות מאקרו ב- Excel, תוכל למצוא כאן תיאור קצר: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -מקרוס- ב- excel-ein.html