Последние записи
- Редактировать содержимое ListBox в Microsoft Office Excel
- Отчистить содержимое через макрос (Microsoft Office Excel)
- Чередующиеся строки столбца перевести в столбцы (Microsoft Office Excel)
- Выбор ЯП для приложений промышленной автоматизации (Delphi, Pascal, Scada)
- Как программно увеличить толщину линий в графике на форме в Microsoft Office Access?
- Рандомное слово в документе Word
- Чем отличается MBR (с физического диска), BootSector (с логического диска)
- Проверка установки офиса
- <fstream> <iomanip> <ios> <iostream>. Краткое описание ввода/вывода
- Русский текст в консоли
9th
Фев
Макрос на удаление любого столбца по условию в указанной ячейке (VBA)
Posted by obzor under Basic, VBA, Софт
Вот макрос на удаление столбца «C» по заданному условию «пусто» в ячейки «c2». Необходимо изменить макрос таким образом, чтобы при сохранении условия «пусто» в ячейке «c2» можно было удалять любой другой столбец.
Sub kmd()
For Each c In Range(«c2:c2»)
If c = пусто Then c.EntireColumn.Delete
Next
End Sub
Sub kmd()
Dim rg As Range
If IsEmpty([c2]) Then
Set rg = Application.InputBox("Укажите ячейку или столбец", "Удалить столбец", Type:=8)
If Not rg Is Nothing Then rg.Cells(1).EntireColumn.Delete
End SubПохожие статьи
