¿Cómo verificar si existe un cierto nombre de rango en Excel?
Antes de ejecutar algún script de VBA, es posible que deba verificar si existe un rango con nombre en el libro de trabajo actual. El código VBA proporcionado en este artículo puede ayudarlo a verificar rápidamente si existe un cierto nombre de rango en Excel.
Verifique si existe un cierto nombre de rango con el código VBA
Verifique si existe un cierto nombre de rango con el código VBA
Puede ejecutar el siguiente código VBA para verificar rápidamente si existe un cierto nombre de rango en el libro de trabajo actual.
1. Prensa otro + F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Luego copie y pegue el siguiente código VBA en la ventana.
Código VBA: verifique si existe un cierto rango en 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
Notas:
3. presione el F5 clave para ejecutar el código. Entonces un Kutools for Excel Aparecen cuadros de diálogo para indicarle si el nombre del rango especificado existe o no, haga clic en el OK sucesivamente para cerrar los cuadros de diálogo. Ver captura de pantalla:
Artículos relacionados:
- ¿Cómo verificar si el primer carácter de una celda es una letra o un número en Excel?
- ¿Cómo verificar si un valor de celda está entre dos valores en Excel?
- ¿Cómo verificar si la celda comienza o termina con un carácter específico en Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!