Sådan springer du hurtigt til den tilstødende celle baseret på markeringen i en Excel-rulleliste?

Har du nogensinde taget billeder for at hoppe til den tilstødende celle baseret på markeringen i en rulleliste i Excel? For eksempel har jeg her en rulleliste i celle C1, der inkluderer hverdagsnavne, kolonne A er listen over datoer, og kolonne B er listen over tidspunkter. Nu når jeg vælger et ugedagsnavn fra rullelisten, for eksempel torsdag, springer markøren til B5, der støder op til torsdagen i kolonne A. I Excel er der ingen indbygget funktion til at løse denne opgave, men med den magtfulde VBA-kode kan.

Spring til tilstødende celle baseret på værdi i rullelisten efter VBA

---

Spring til tilstødende celle baseret på værdi i rullelisten efter VBA

1. Vælg en dag, du vil bruge, fra rullelisten, og tryk derefter på Alt + F11 for at aktivere Microsoft Visual Basic til applikationer vindue.

2. klik indsatte > Moduler, indsæt nedenstående kode til Moduler.

VBA: Gå til tilstødende celle baseret på værdi

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. Trykke F5 tasten, så springer markøren til den tilstødende celle baseret på værdien i rullelisten.

Bemærk:

I VBA-koden er A2: A8 den liste, der indeholder de værdier, der matcher værdierne i rullelisten, du kan ændre denne reference, som du har brug for.