Как проверить, существует ли определенное имя диапазона в Excel?
Перед запуском скрипта 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
Заметки:
3. нажмите F5 ключ для запуска кода. Затем Kutools for Excel всплывающие диалоговые окна, чтобы сообщить вам, существует ли указанное имя диапазона или нет, нажмите OK кнопки, чтобы закрыть диалоговые окна. Смотрите скриншот:
Статьи по теме:
- Как проверить, является ли первый символ в ячейке буквой или цифрой в Excel?
- Как проверить, находится ли значение ячейки между двумя значениями в Excel?
- Как проверить, начинается ли ячейка или заканчивается определенным символом в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!