Sut i neidio'n gyflym i'r gell gyfagos yn seiliedig ar y dewis mewn rhestr ostwng Excel?
Ydych chi erioed wedi delweddu neidio i'r gell gyfagos yn seiliedig ar y dewis mewn rhestr ostwng yn Excel? Er enghraifft, yma mae gen i gwymplen yng nghell C1 sy'n cynnwys yr enwau yn ystod yr wythnos, colofn A yw'r rhestr o ddyddiadau, a cholofn B yw'r rhestr o weithiau. Nawr pan fyddaf yn dewis enw yn ystod yr wythnos o'r rhestr ostwng, er enghraifft, dydd Iau, mae'r cyrchwr yn neidio i B5 sy'n gyfagos i'r dydd Iau yng ngholofn A. Yn Excel, nid oes nodwedd adeiledig i ddatrys y dasg hon, ond gyda gall y cod VBA pwerus.
Neidio i'r gell gyfagos yn seiliedig ar werth yn y gwymplen gan VBA
Neidio i'r gell gyfagos yn seiliedig ar werth yn y gwymplen gan VBA
1. Dewiswch ddiwrnod rydych chi am ei ddefnyddio o'r gwymplen, yna pwyswch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, pastiwch y cod isod i'r Modiwlau.
VBA: Neidio i'r gell gyfagos yn seiliedig ar werth
Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20161221
If Target.Address <> [C1].Address Then
Exit Sub
Else
JumpToCell
End If
End Sub
Sub JumpToCell()
Dim xRg, yRg As Range
Dim strAddress As String
strAddress = ""
Set yRg = Range("A2:A8")
For Each xRg In yRg
'MsgBox Cell.Value
If xRg.Value = ActiveCell.Value Then
strAddress = xRg.Address
End If
Next
If strAddress = "" Then
MsgBox "The Day You Selected in Cell D4 Was Not Found On " & ActiveSheet.Name, _
vbInformation, "Kutools for Excel"
Exit Sub
Else
Range(strAddress).Offset(0, 1).Select
End If
End Sub
3. Gwasgwch F5 allwedd, yna mae'r cyrchwr yn neidio i'r gell gyfagos yn seiliedig ar y gwerth yn y gwymplen.
Yn y cod VBA, A2: A8 yw'r rhestr sy'n cynnwys y gwerthoedd sy'n cyfateb i'r gwerthoedd yn y gwymplen, gallwch newid y cyfeirnod hwn yn ôl yr angen.
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!