Как проверить, существует ли определённое имя ячейки в Excel?
Перед запуском скрипта VBA рекомендуется убедиться, что именованный диапазон существует в текущей книге. Приведённый в этой статье код VBA позволяет быстро проверить наличие заданного имени ячейки в Excel.
Проверка существования определённого Имя ячейки с помощью кода VBA
Проверка существования определённого Имя ячейки с помощью кода VBA
Вы можете выполнить приведённый ниже код VBA, чтобы быстро проверить, существует ли заданное имя ячейки в текущей книге.
1. Нажмите одновременно клавиши Alt+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 для Excel, сообщающие, существует ли имя «Ограниченный диапазон». Последовательно нажимайте кнопки ОК, чтобы закрыть диалоговые окна. См. снимок экрана:
Связанные статьи:
- Как определить, является ли первый символ в ячейке буквой или цифрой в Excel?
- Как проверить, попадает ли значение ячейки в диапазон между двумя числами в Excel?
- Как проверить, начинается или заканчивается ли ячейка определённым символом в Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек