Hvordan kontrolleres, om der findes et bestemt rækkevidde i Excel?
Før du kører et VBA-script, skal du muligvis kontrollere, om der findes et navngivet område i den aktuelle projektmappe. VBA-koden, der er angivet i denne artikel, kan hjælpe dig med hurtigt at kontrollere, om der findes et bestemt intervalnavn i Excel.
Kontroller, om der findes et bestemt intervalnavn med VBA-kode
Kontroller, om der findes et bestemt intervalnavn med VBA-kode
Du kan køre nedenstående VBA-kode for hurtigt at kontrollere, om der findes et bestemt intervalnavn i den aktuelle projektmappe.
1. Trykke andre + F11 taster samtidigt for at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier og indsæt derefter nedenstående VBA-kode i vinduet.
VBA-kode: Kontroller, om der findes et bestemt interval i 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
Noter:
3. Tryk på F5 nøgle for at køre koden. Så en Kutools til Excel dialogbokse dukker op for at fortælle dig, om det angivne intervalnavn findes eller ej, skal du klikke på OK knapper successivt for at lukke dialogbokse. Se skærmbillede:
Relaterede artikler:
- Hvordan kontrolleres det, om det første tegn i en celle er et bogstav eller tal i Excel?
- Hvordan kontrolleres, om en celleværdi er mellem to værdier i Excel?
- Hvordan kontrolleres, om cellen begynder eller slutter med et bestemt tegn i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!