Skip i'r prif gynnwys

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.
naid doc yn ôl gwerth cell 1

Neidio i'r gell gyfagos yn seiliedig ar werth yn y gwymplen gan VBA


swigen dde glas saeth 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.
naid doc yn ôl gwerth cell 2

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

naid doc yn ôl gwerth cell 3

3. Gwasgwch F5 allwedd, yna mae'r cyrchwr yn neidio i'r gell gyfagos yn seiliedig ar y gwerth yn y gwymplen.
naid doc yn ôl gwerth cell 4

Nodyn:

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

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

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...

Disgrifiad


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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations