Jak zkontrolovat, zda v aplikaci Excel existuje určitý název rozsahu?
Před spuštěním nějakého skriptu VBA možná budete muset zkontrolovat, zda v aktuálním sešitu existuje pojmenovaný rozsah. Kód VBA uvedený v tomto článku vám pomůže rychle zkontrolovat, zda v aplikaci Excel existuje určitý název rozsahu.
Zkontrolujte, zda u kódu VBA existuje určitý název rozsahu
Zkontrolujte, zda u kódu VBA existuje určitý název rozsahu
Spuštěním níže uvedeného kódu VBA můžete rychle zkontrolovat, zda v aktuálním sešitu existuje určitý název rozsahu.
1. lis Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte a vložte níže uvedený kód VBA do okna.
Kód VBA: zkontrolujte, zda v aplikaci Excel existuje určitý rozsah
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
Poznámky:
3. zmáčkni F5 klíč ke spuštění kódu. Pak Kutools pro Excel Zobrazí se dialogová okna, která vám řeknou, zda název zadaného rozsahu existuje nebo ne, klikněte na ikonu OK tlačítka postupně zavřete dialogová okna. Viz snímek obrazovky:
Související články:
- Jak zkontrolovat, zda je prvním znakem v buňce písmeno nebo číslo v aplikaci Excel?
- Jak zkontrolovat, zda je hodnota buňky mezi dvěma hodnotami v aplikaci Excel?
- Jak zkontrolovat, zda buňka začíná nebo končí konkrétním znakem v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!