Как да проверя дали определено име на диапазон съществува в 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 за Excel изскачат диалогови прозорци, за да ви кажат дали указаното име на диапазон съществува или не, моля, щракнете върху OK бутони последователно, за да затворите диалоговите прозорци. Вижте екранна снимка:
Свързани статии:
- Как да проверя дали първият знак в клетка е буква или цифра в Excel?
- Как да проверя дали стойността на клетка е между две стойности в Excel?
- Как да проверя дали клетката започва или завършва с определен знак в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!