يعد حذف خط VBA إجراء قياسي وشائع الاستخدام من قبل المطورين. ومع ذلك ، بالنسبة للمستخدمين الأقل خبرة ، قد تسبب هذه العملية بعض الصعوبات.
تعليمات
الخطوة 1
تأكد من أنك تفهم بناء الجملة لأمر حذف السطر باستخدام الأمر Delete. لذلك بالنسبة للصف الذي يحتوي على الخلية النشطة ، سيبدو الأمر مثل ActiveCell. EntireRow. Delete ، وستؤدي الحاجة إلى حذف عدد من الصفوف إلى تغييره إلى صفوف ("first_line_number: last_line_number"). حذف (لبرنامج Excel).
الخطوة 2
استخدم بناء جملة مشابهًا لأمر حذف الصف المحدد في VBA ، ولكن مع خيارات متقدمة. للقيام بذلك ، قم أولاً بتحديد الإجراء المطلوب: Private Sub Delete line_Click (). حدد التطبيق المطلوب Dim ea As Excel. Application وحدد المصنف المطلوب Dim ewb As Excel. Workbook. ثم حدد صفحة Dim ews As Excel. وثيقة ورقة العمل لتحريرها.
الخطوه 3
تخطي سطر واحد وأدخل تعيين XLAp = CreateObject (الفئة: = "Excel. Application"). قم بتعيين الموضع الدقيق على السطر التالي: تعيين XLWb = XLAp. Workbooks. افتح ("drive_name: 1.xls") استخدم القيمة التالية: Set XLWs = XLWb. ActiveSheet.
الخطوة 4
تخطي سطرًا آخر وأدخل قيمة الوظيفة المحددة: XLWs. Rows (1). حذف احفظ المستند المحرر: XLWb. Save. قم بإنهاء تطبيق المصدر المفتوح: XLAp. Quit.
الخطوة الخامسة
تخطي السطر التالي واستبدل المتغيرات بكائنات الذاكرة: تعيين XLWs = لا شيء. كرر نفس الأمر لكل متغير مفتوح: تعيين XLWb = لا شيء وأخيراً آخر واحد: تعيين XLAp = لا شيء. قم بإنهاء الأمر باستخدام End Sub القياسي.
الخطوة 6
استخدم وحدات الماكرو لإجراء عمليات أكثر تعقيدًا لحذف الأسطر غير الضرورية في المستند. للقيام بذلك ، قم بإنشاء مصنف Excel جديد وأدخل القيم المطلوبة. افتح قائمة "الخدمة" في شريط الأدوات العلوي لنافذة البرنامج وحدد عنصر "ماكرو". حدد العنصر الفرعي "محرر Visual Basic" وقم بتوسيع قائمة "إدراج". حدد عنصر "الوحدة النمطية" وأدخل المستند الذي تم إنشاؤه. ارجع إلى قائمة "أدوات" وانتقل مرة أخرى إلى عنصر "ماكرو". استخدم العنصر الفرعي "وحدات الماكرو" وحدد العنصر الذي تم إنشاؤه حديثًا. قم بتشغيل الماكرو بالنقر فوق الزر "تشغيل".
