צור חוברת עבודה עם טבלאות למשך שנים עשר חודשים

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

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

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

טבלאות משנה מסוג CreateMonth ()
Dim Tab מספר כמו שלם
Dim New כחוברת עבודה
שמות עמומים כגרסה
שמות = מערך ("Jan", "Feb", "Mar", "Apr", "May", "Jun", _
"יולי", "אוגוסט", "ספטמבר", "אוקטובר", "נובמבר", "דצמבר")
TabNumber = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 12
הגדר חדש = חוברות עבודה
Application.SheetsInNewWorkbook = TabNumber
עבור TabNumber = 1 עד 12
New.Worksheets (TabNumber) .Name = Names (TabNumber - 1)
מספר הכרטיסייה הבאה
סיום תת

לאחר ההתחלה תקבל חוברת עבודה עם 12 דפי עבודה. האיור הבא מראה כיצד נראית התוצאה:

אם ברצונך להשתמש בשמות אחרים במקום בשמות החודשים, התאם את השמות בהקצאת הערך למשתנה "שמות".

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