האפליקציות של MS Office מעוצבות מאודבצורה אינטליגנטית ואני לא אומר את זה רק בגלל שהם מקלים על העבודה שלי לאין שיעור. אני אומר את זה כי זה נכון. לפני כמה ימים פרסמנו פוסט בנושא הכנסת סרטוני YouTube ב- Office 2013 וצייננו שהאופציה לא הייתה קיימת ב- MS Excel פשוט מכיוון שהיא לא הייתה נחוצה שם. זה סוג האינטליגנציה שאני מדבר עליה; לדעת אילו תכונות נחוצות בסוג יישום מסוים. זה מוודא ששום דבר לא רלוונטי הופך את ההצעה הסופית. עם זאת, הופתעתי לגלות שבמקום ש- Excel מאפשרת לך להוסיף שורות נוספות בגליון העבודה, היא לא מאפשרת לך לבחור את מספר השורות שברצונך להוסיף. יש לך עבודות אחרות כדי להשיג זאת, כמו בחירת מספר השורות שאתה רוצה להוסיף מבין הקיימות ואז שימוש בפונקציית הוספה. לחלופין, תוכלו לחזור על שלב שורת הכניסה למספר שורות ככל שתרצו. זה חוזר על עצמו אבל אם אתה מוכן לחסוך חמש דקות, המאקרו הקטן הזה יכול לדאוג למשרה עבורך.
מכיוון שזה דורש מאקרו, תצטרך לעשות זאתשמור את הקובץ שלך כקובץ Excel המאפשר מאקרו. לשם כך, לחץ על התפריט הנפתח 'שמור כסוג' בחלון שמירה כ, ובחר 'חוברת עבודה מופעלת עם Excel Marco (* xlsm).
בשלב הבא הגיע הזמן לכתוב את המקרו. עבור לכרטיסייה תצוגה ולחץ על מקרואים כדי ליצור אחד חדש. תן שם לכל מה שתרצה ולחץ על 'צור'. החלון הבא ייפתח אוטומטית.
מה שרלוונטי כאן הם 'המשנה' ו'סיום המשנה 'קווים. שורת המשנה תכיל את שם המאקרו שלך בעוד המשנה הסיום מסמן את סיום הפקודות באותו מאקרו. מכיוון שיצרת זה עתה, לא צריך להיות שום דבר בין השורות האלה כמו בתמונת המסך שלמעלה. הדבק את הדברים הבאים בין שני שורות אלה.
Dim CurrentSheet As Object
" Loop through all selected sheets.
For Each CurrentSheet In ActiveWindow.SelectedSheets
" Insert 5 rows at top of each sheet.
CurrentSheet.Range("a1:a5").EntireRow.Insert
Next CurrentSheet
קוד זה יוסיף חמש שורות מלמעלה. מכונה בקוד A1: A5. כדי לערוך אותו כך שיתאים לצרכים שלך, עליך לערוך טווח זה. הערך הראשון משמש כהפניה למקום בו יוכנסו השורות. אם תשנה אותו ל- A100, השורות יוכנסו אחרי תשעים ותשע השורות הראשונות. לאחר קביעת נקודת ההתייחסות, עליך להזין את מספר השורות.
מספרי השורה מוגדרים על ידי טווח התא A1: A5. טווח זה יכניס 5 שורות. כדי למצוא את הטווח הנכון למספר השורות שלך, למשל תרצה להכניס 25 שורות מ- A99, תוסיף 25 לנקודת ההתייחסות כך שהיא A99 ומינוס תא אחד ממנו. כלומר A100 + 99 - 1 = A198. אתה מוסיף שורות ולא עמודות כך שרק המספר ישתנה ולא אות העמודה. יש לעדכן את המאקרו בכל פעם שאתה צריך להכניס שורות לביצוע אבל זה רק עריכה קטנה וזה עובד ממש טוב אז כדאי להקדיש את הזמן.
מאקרו באמצעות התמיכה של מיקרוסופט
הערות