Cum să verificați dacă există un anumit nume de interval în Excel?
Înainte de a rula un script VBA, poate fi necesar să verificați dacă există un interval numit în registrul de lucru curent. Codul VBA furnizat în acest articol vă poate ajuta să verificați rapid dacă există un anumit nume de interval în Excel.
Verificați dacă există un anumit nume de interval cu codul VBA
Verificați dacă există un anumit nume de interval cu codul VBA
Puteți rula codul VBA de mai jos pentru a verifica rapid dacă există un anumit nume de interval în registrul de lucru curent.
1. presa Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Apoi copiați și lipiți codul VBA de mai jos în fereastră.
Cod VBA: verificați dacă există un anumit interval în 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
notițe:
3. apasă pe F5 tasta pentru a rula codul. Apoi un Kutools pentru Excel apar casete de dialog pentru a vă spune dacă există sau nu numele specificat al intervalului, faceți clic pe OK butoane succesive pentru a închide casetele de dialog. Vedeți captura de ecran:
Articole pe aceeași temă:
- Cum să verificați dacă primul caracter dintr-o celulă este o literă sau un număr în Excel?
- Cum să verificați dacă o valoare a celulei este între două valori în Excel?
- Cum să verificați dacă celula începe sau se termină cu un anumit caracter în Excel?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!