Перейти к основному содержанию
 

Как проверить, существует ли определенное имя диапазона в Excel?

Автор: Силувия Последнее изменение: 2024 июля 11 г.

Перед запуском скрипта VBA вам может потребоваться проверить, существует ли именованный диапазон в текущей рабочей книге. Код VBA, представленный в этой статье, может помочь вам быстро проверить, существует ли определенное имя диапазона в Excel.

Проверьте, существует ли определенное имя диапазона с кодом VBA


Проверьте, существует ли определенное имя диапазона с кодом VBA

Вы можете запустить приведенный ниже код VBA, чтобы быстро проверить, существует ли определенное имя диапазона в текущей книге.

1. Нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте и вставьте в окно приведенный ниже код VBA.

Код VBA: проверьте, существует ли определенный диапазон в Excel

Sub CheckRanges()
    Dim chkRange As Range
    Dim areasName(2) As String
    Dim chkCnt As Long
    Dim i As Integer
    areasName(0) = "new"
    areasName(1) = "MyRange"
    areasName(2) = "Range2"
  
    Application.ScreenUpdating = False
    For i = 0 To 2
        On Error Resume Next
        chkCnt = Len(ThisWorkbook.Names(areasName(i)).Name)
        On Error GoTo 0
         
        If chkCnt <> 0 Then
            Set chkRange = Range(areasName(i))
            MsgBox "This Range: '" & areasName(i) & "' DOES exist!", vbInformation, "Kutools for Excel"
            chkCnt = 0
        Else
            MsgBox "This Range: '" & areasName(i) & "' does NOT exist!", vbInformation, "Kutools for Excel"
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

Заметки:

1). В коде "new,Мой диапазон, а такжеRange2"- это имена диапазонов, которые необходимо проверить в текущей книге.
2.) Число 2 в коде областиИмя(2) указывает, что необходимо проверить три имени диапазонов, поскольку массивы VBA начинаются с нуля. Чтобы добавить или удалить имена диапазонов, измените число 2 на соответствующее число.

3. нажмите F5 ключ для запуска кода. Затем Kutools for Excel всплывающие диалоговые окна, чтобы сообщить вам, существует ли указанное имя диапазона или нет, нажмите OK кнопки, чтобы закрыть диалоговые окна. Смотрите скриншот:

Скриншот диалогового окна VBA, подтверждающий существование именованного диапазона в Excel

Скриншот диалогового окна VBA, подтверждающий, что именованный диапазон не существует в Excel


Статьи по теме:

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!