Sut i ddolennu trwy resi nes bod gwerth penodol i'w gael yn Excel?
Mewn rhai achosion, efallai yr hoffech chi ddolennu trwy resi fesul un nes bod gwerth penodol i'w gael mewn dalen. Yma, rwy'n cyflwyno cod macro i'ch helpu chi i ddolennu data nes bod gwerth penodol yn cwrdd.
Dolen drwodd nes bod gwerth penodol
Dolen drwodd nes bod gwerth penodol
1. Gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Cymhwysos ffenestr.
2. Cliciwch Mewnosod > Modiwlau, pastiwch y cod isod i'r gwag Modiwlau.
VBA: Dolen trwy resi nes bod gwerth penodol
Sub LoopUntilSpecificValue()
'UpdatebyExtendoffice20161222
Dim fStr As String
Dim strActAddress As String
Dim fbool As Boolean
Dim cnt As Long, cntRow As Long
Dim xRg As Range, yRg As Range, zRg As Range
fbool = False
strActAddress = ""
cnt = 0
On Error Resume Next
Set zRg = ActiveSheet.UsedRange
cntRow = zRg.Rows.Count
Set xRg = Application.InputBox _
(Prompt:="Range select..", Title:="Kutools for Excel", Type:=8)
fStr = Application.InputBox _
(Prompt:="Search string?", Title:="Kutools for Excel", Type:=2)
Application.ScreenUpdating = False
For Each yRg In xRg
If yRg.Row > cntRow Then
MsgBox "Value not found ", vbInformation, "Kutools for Excel"
Application.ScreenUpdating = True
Exit Sub
End If
If yRg.Value2 = fStr Then
Application.ScreenUpdating = True
yRg.Activate
fbool = True
strActAddress = yRg.Address
MsgBox "Value found in cell " & strActAddress, vbInformation, "Kutools for Excel"
Exit Sub
Else
cnt = cnt + 1
End If
Next yRg
If cnt = xRg.Count Then
MsgBox "Value not found ", vbInformation, "Kutools for Excel"
End If
Application.ScreenUpdating = True
End Sub
3. Gwasgwch F5 allwedd, mae dialog yn galw allan am ddewis colofn i ddolen drwyddo. Gweler y screenshot:
4. Cliciwch OK, a theipiwch y llinyn rydych chi am ddod o hyd iddo yn yr ail ymgom popped allan. Gweler y screenshot:
5. Cliciwch OK. Bydd yn dolennu trwy'r dewis nes i'r gwerth penodol gael ei ddarganfod.
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!