ЯК видалити рядок vba :: ПЗ

Видалення рядка VBA є стандартною і часто використовуваної розробниками процедурою. Тим не менш, у менш досвідчених користувачів виконання даної операції може викликати деякі труднощі.

Інструкція

Переконайтеся в тому, що зрозумілий синтаксис команди видалення рядки з використанням команди Delete. Так для рядка, що містить активний осередок, команда буде виглядати як ActiveCell.EntireRow.Delete, а необхідність видалення деякої кількості рядків змінить її на Rows ("номер_первой_строкі: номер_последней_строкі"). Delete (для Excel).

Використовуйте подібний синтаксис команди видалення обраної рядки і в VBA, але з розширеними параметрами. Для цього насамперед визначте необхідну дію: Private Sub Видалення строкі_Click (). Вкажіть потрібний додаток Dim ea As Excel.Application і виберіть необхідну робочу книгу Dim ewb As Excel.Workbook. Потім вкажіть підлягає редагуванню сторінці документа Dim ews As Excel.Worksheet.

Пропустіть одну сходинку і введіть значення Set XLAp = CreateObject (Class: = "Excel.Application"). Задайте точне розміщення в наступному рядку: Set XLWb = XLAp.Workbooks. Open ("drive: 1.xls"). Скористайтеся наступним значенням: Set XLWs = XLWb.ActiveSheet.

Пропустіть ще одну рядок і введіть значення вибраного завдання: XLWs.Rows (1). Delete.Сохраніте редагування документа: XLWb.Save. Завершіть роботу програмно відкритої програми: XLAp.Quit.

Пропустіть наступну рядок і замініть змінні на об'єкти з пам'яті: Set XLWs = Nothing.Повторіте цю ж команду для кожної відкритої змінної: Set XLWb = Nothingі, нарешті, останньою: Set XLAp = Nothing.Завершіте команду введенням стандартного End Sub.

Використовуйте макроси для виконання і більш складних операцій з видалення непотрібних рядків документа. Для цього створіть нову книгу додатки Excel і введіть необхідні значення. Розкрийте меню «Сервис» верхній панелі інструментів вікна програми і вкажіть пункт «Макрос». Виберіть підпункт «Редактор Visual Basic» і розкрийте меню «Вставка». Вкажіть пункт «Модуль» і вставте створений документ. Поверніться в меню «Сервис» і знову перейдіть в пункт «Макрос». Скористайтеся підпунктом «Макроси» і вкажіть щойно створений. Запустіть макрос натисканням кнопки «Виконати».