אקסל: מחק כל שורה שנייה - האם זה אפשרי?

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

ראשוני: הצג כלים למפתחים כדי למחוק כל שתי שורות

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

מיקרוסופט פרסמה קוד תכנית למטרה זו, בו תוכלו להשתמש. המשך כדלקמן:

פתח את הקובץ בו נמצאים נתוני הטבלה המתאימים.
כעת לחץ על "כלי מפתחים" ותחת "קוד" עבור אל "Visual Basic".
עורך Visual Basic נפתח כעת. כאן לחץ על "הכנס" ושם על "מודול".
העתק את הקוד הבא (ללא המירכאות) למודול: "Sub Delete_Every_Other_Row () 'משתני מימד. Y = False' שנה את זה ל- True אם ברצונך 'למחוק שורות 1, 3, 5 וכן הלאה. I = 1 הגדר xRng = בחירה 'לולאה פעם אחת לכל שורה בבחירה. עבור xCounter = 1 ל- xRng.Rows.Count' אם Y נכון, אז ... אם Y = נכון אז '... מחק שורת תאים שלמה. xRng.Cells (I) .EntireRow.Det מחק את 'אחרת ... אחרת' ... מגדיל אני בזה אחר כך שנוכל לעבור בין טווח. I = I + 1 סוף אם 'אם Y נכון, הפוך את זה לא נכון; אם Y הוא שקר, הפוך את זה נכון. Y = לא Y הבא תת הסוף xCounter
עכשיו חזור לקובץ ה- Excel שלך וסמן את העמודות שמהן יש למחוק כל שורה שנייה.
ואז לחץ על "מקרואים" תחת "מפתח" באזור "קוד". שם תראה את המקרו "מחק_כל_האחר_שורה", שתתחיל עם "ביצוע".

טיפ מעשי זה מומש באמצעות Excel 2007. בעזרת Excel תוכלו גם לחשב את הריבית המורכבת או ריבית של שלוש תעריפים.