מחיקת קו VBA היא הליך סטנדרטי ונפוץ בשימוש על ידי מפתחים. עם זאת, עבור משתמשים מנוסים פחות, פעולה זו עלולה לגרום לקשיים מסוימים.
הוראות
שלב 1
ודא שאתה מבין את התחביר של פקודת המחיקה באמצעות הפקודה מחק. אז בשורה המכילה את התא הפעיל, הפקודה תיראה כמו ActiveCell. EntireRow. Delete, והצורך למחוק מספר שורות ישנה אותה לשורות ("first_line_number: last_line_number"). מחק (עבור Excel).
שלב 2
השתמש בתחביר דומה לפקודת השורה שנבחרה ב- VBA, אך עם אפשרויות מתקדמות. לשם כך, קודם כל הגדירו את הפעולה הנדרשת: Private Sub Delete line_Click (). ציינו את היישום הנדרש Dim ea As Excel. יישום ובחרו את חוברת העבודה הנדרשת Dim ewb As Excel. Workbook. לאחר מכן ציין את הדף של מסמך Dim ews As Excel. Worksheet שייערך.
שלב 3
דלג על שורה אחת והזן סט XLAp = CreateObject (מחלקה: = "Excel. Application"). הגדר את המיקום המדויק בשורה הבאה: הגדר XLWb = XLAp. Workbooks. פתח ("drive_name: 1.xls") השתמש בערך הבא: הגדר XLWs = XLWb. ActiveSheet.
שלב 4
דלג על שורה אחרת והזן את ערך העבודה שנבחרה: XLWs. Rows (1). מחק. שמור את המסמך הערוך: XLWb. Save. צא מיישום הקוד הפתוח: XLAp. Quit.
שלב 5
דלג על השורה הבאה והחלף את המשתנים באובייקטים זיכרוניים: הגדר XLWs = שום דבר. חזור על אותה פקודה עבור כל משתנה פתוח: הגדר XLWb = שום דבר ולבסוף האחרון: הגדר XLAp = שום דבר. סיים את הפקודה עם ה- Sub Sub הסטנדרטי
שלב 6
השתמש במקרו לביצוע פעולות מורכבות יותר למחיקת שורות מיותרות במסמך. לשם כך, צור חוברת עבודה חדשה של Excel והזן את הערכים הנדרשים. פתח את תפריט "שירות" בסרגל הכלים העליון של חלון התוכנית ובחר בפריט "מאקרו". בחר בתת המשנה "עורך Visual Basic" והרחיב את תפריט "הוסף". בחר בפריט "מודול" והוסף את המסמך שנוצר. חזור לתפריט "כלים" ושוב עבור לפריט "מאקרו". השתמש בפריט המשנה "פקודות מאקרו" וציין את פריט החדש שנוצר. הפעל את המאקרו על ידי לחיצה על כפתור הפעלה.
