Есть несколько способов очистить информационные ячейки в Excel. Чтобы увидеть их, выберите диапазон, который будет очищен, и на вкладке «Главная» в группе кнопок «Изменить» перейдите в меню кнопки «Очистить”.
Рассмотрим подробнее пункты меню кнопки «Удалить.
Пример 4
Удаление файла и проверка его существования:
| 1 2 3 4 5 6 7 8 9 10 11 | Sub Primer4 () Dim fso As Object ‘Назначить ссылку на переменную fso’ новому экземпляру FileSystemObject Set fso = CreateObject («Scripting.FileSystemObject») ‘Проверить наличие удаленного файла If Dir (ThisWorkbook.Path & » Image .png «) » «Then ‘Удалить файл, если он существует fso.DeleteFile ThisWorkbook.Path &» Image.png «End If End Sub |
Пример 5
Удаление нескольких файлов в шаблоне:
| 1 2 3 4 5 6 7 8 9 10 11 | Sub Primer5 () Dim fso As Object ‘Назначьте ссылку на переменную fso’ новому экземпляру FileSystemObject Set fso = CreateObject («Scripting.FileSystemObject») ‘Выйдите из программы, если не существует файла, соответствующего указанному шаблону При возникновении ошибки Возобновить Далее ‘Удалить указанный файл (файл) fso.DeleteFile «C: Новая папка * .docx» End Sub |
Этот код Excel VBA удалит все файлы .docx из папки New Folder.
Заголовки Excel VBA по темам со ссылками на все статьи.
При выборе первого пункта «Очистить все» вся информация будет удалена из ячеек выбранного диапазона.
Если лист содержит много данных, самый быстрый способ очистить лист Excel — это удалить и воссоздать его.
Предложенных 3-х вариантов удаления всех данных в листе Excel, думаю, хватит для решения повседневных задач в VBA.
| Метод | Очищаемые свойства | Примечание |
| Interval.Clear | Почти все объекты | Ширина и высота ячеек не меняются |
| Interval.ClearComments | Комментарии (1 | Для Excel в Office 365 |
| Интервал Удалить содержимое | Формулы и значения | Исходное форматирование сохраняется |
| Range.ClearFormats | Формат, определяющий свойства | В том числе отмена слияния клеток |
| Диапазон: удалить гиперссылки | Гиперссылки | Текст и форматирование сохранены |
| Range.ClearNote | Заметки и заметки | Заметки для Excel в локальной среде, Заметки для Excel в Office 365 |
| Range.ClearOutline | Структура данных |
Диапазон — это выражение, возвращающее диапазон ячеек.
Прежде чем вы сможете удалить надстройку Excel xla / xlam, вам необходимо сделать ее неактивной, то есть отключить ее. Чтобы узнать статус надстройки (активна она или нет), вам нужно нажать кнопку «Офис» и перейти в «Параметры Excel». Откроется окно «Параметры Excel», где в разделе «Надстройки» вы увидите список всех установленных надстроек, сгруппированных по активным и неактивным. Активными считаются те надстройки, которые в данный момент подключены, соответственно, неактивными являются те, которые в данный момент отключены. Здесь вы также можете узнать, где находится файл надстройки, который нужно удалить (он нам понадобится в ближайшее время). Обратите внимание на скриншот ниже, вы можете увидеть активные дополнения, одно из которых называется test.x и мы его удалим.
Кроме того, вызов подпункта ниже удалит и заменит лист, присвоив ему то же имя и поместив его в ту же позицию табуляции, что и оригинал:
Sub resetSheet (wsName As String) Dim ws As Worksheet, ws2 As Worksheet Для каждого цикла ws In ThisWorkbook.Sheets для поиска листа (если он существует) If ws.Name = wsName Then ‘нашел его! Set ws2 = ThisWorkbook.Sheets.Add (ws) ‘добавить новый лист перед старым Application.DisplayAlerts = False’ скрыть подтверждение от пользователя ws.Delete ‘удалить лист (его место занимает новый) Application. DisplayAlerts = True’ показать будущие подтверждения ws2.Name = wsName ‘переименовать новый лист со старым именем Exit Sub’ завершено! (цикл не должен продолжаться) End If Next ws End Sub
Если одна строка (см. Выше) у вас не работает (вероятно, из-за некоторых непоследовательных цветов фона / изображения), вы можете вызвать подпрограмму, чтобы удалить любые указанные листы:
Sub deleteSheet (wsName As String) Dim ws As Worksheet For Each ws In ThisWorkbook.Sheets ‘loop для поиска листа (если он существует) Application.DisplayAlerts = False’ скрыть подтверждение от пользователя Если ws.Name = wsName Then ws.Delete ‘найдено Это! — удалить Application.DisplayAlerts = True ‘показывать будущие подтверждения Next ws End Sub
Просто назовите это:
deleteSheet «asdf»
. где asdf — имя удаляемого листа (вкладки.
Если вы больше не планируете использовать программу, помимо отключения надстройки вам необходимо удалить файл с самой программой. Из-за этого:
| 1 | Убить PathName |
Строка PathName может содержать каталоги (папки) и букву диска. Если файл с именем PathName не существует, возникнет ошибка.
Оператор Kill поддерживает использование подстановочных знаков в последнем компоненте параметра PathName (собственное имя файла без пути):
Подстановочные знаки позволяют создать шаблон, который можно использовать для одновременного удаления нескольких файлов.
Для более гибкой очистки ячеек создана надстройка, позволяющая очищать диапазон на основе выбранных параметров. Диалог для этого дополнения можно увидеть на скриншоте ниже. С его помощью пользователи могут выбрать диапазон для очистки, а также выбрать вариант или комбинацию параметров, из которых будет очищен выбранный диапазон.
Использование надстройки позволяет:
1. Щелчком мыши вызовите диалог макроса прямо с панели инструментов Excel;
2 по выбору пользователя удалять значения ячеек, заметки, гиперссылки, форматы, шрифты, заливки, фреймы и слияния ячеек;
3 выберите один из четырех методов обработки данных на свое усмотрение (см. Снимок экрана).
Отличия от стандартной очистки заключаются в том, что вы также можете очистить ячейки от гиперссылок и комбинации ячеек, кроме того, для параметров, связанных с форматированием ячеек, предусмотрена более тонкая очистка. Еще одно отличие — возможность очищать ячейки на всех листах.
Надстройку легко установить и запустить одним нажатием кнопки, которая переходит непосредственно в главное меню Excel.
При выборе второго пункта «Очистить форматы» информация, относящаяся к формату, будет удалена из выбранного диапазона, т.е информация о шрифтах, их размере, цветах, стиле и т.д. По умолчанию.
Итак, из окна выше мы узнали текущее состояние надстройки, которую собираемся удалить. Надстройка test.xla активна, поэтому перейдите в поле «Управление», выберите «Надстройки Excel» из списка и нажмите кнопку «Перейти». Снимите флажок перед названием надстройки.
Все, надстройка неактивна, мы отключили ее. Теперь вы можете удалить файл. Местонахождение файла мы уже выяснили чуть ранее, поэтому остается только перейти в указанную папку и удалить этот файл (вы можете переместить файл в другую папку или переименовать его, если надстройка будет использоваться в будущее). Вот и все, на самом деле надстройка уже удалена, но продолжает оставаться в списке доступных надстроек, а в некоторых случаях может вызвать некоторые неудобства, заставляя Excel отображать сообщение с текстом «Не удалось найти файл. Убедитесь, что имя и расположение файла указаны правильно. При попытке открыть файл из списка недавно использованных файлов убедитесь, что файл не был переименован, перемещен или удален».
