Sut i wirio a oes enw amrediad penodol yn bodoli yn Excel?
Cyn rhedeg rhywfaint o sgript VBA, efallai y bydd angen i chi wirio a oes ystod a enwir yn bodoli yn y llyfr gwaith cyfredol. Gall y cod VBA a ddarperir yn yr erthygl hon eich helpu i wirio yn gyflym a oes enw amrediad penodol yn bodoli yn Excel.
Gwiriwch a yw enw amrediad penodol yn bodoli gyda chod VBA
Gwiriwch a yw enw amrediad penodol yn bodoli gyda chod VBA
Gallwch redeg y cod VBA isod i wirio'n gyflym a oes enw amrediad penodol yn bodoli yn y llyfr gwaith cyfredol.
1. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch y cod VBA isod i'r ffenestr.
Cod VBA: gwiriwch a oes ystod benodol yn bodoli yn 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
Nodiadau:
3. Gwasgwch y F5 allwedd i redeg y cod. Yna an Kutools ar gyfer Excel blychau deialog pop i fyny i ddweud wrthych a yw'r enw amrediad penodedig yn bodoli ai peidio, cliciwch y OK botymau yn olynol i gau'r blychau deialog. Gweler y screenshot:
Erthyglau perthnasol:
- Sut i wirio a yw'r cymeriad cyntaf mewn cell yn llythyren neu'n rhif yn Excel?
- Sut i wirio a yw gwerth cell rhwng dau werth yn Excel?
- Sut i wirio a yw'r gell yn dechrau neu'n gorffen gyda chymeriad penodol yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!