Как удалить строку 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 ("имя_диска: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» и раскройте меню «Вставка». Укажите пункт «Модуль» и вставьте созданный документ. Вернитесь в меню «Сервис» и снова перейдите в пункт «Макрос». Воспользуйтесь подпунктом «Макросы» и укажите только что созданный. Запустите макрос нажатием кнопки «Выполнить».

Оцените статью!