Hur hoppar jag snabbt till den intilliggande cellen baserat på valet i en Excel-rullgardinslista?

Har du någonsin avbildat för att hoppa till den intilliggande cellen baserat på valet i en rullgardinslista i Excel? Här har jag till exempel en rullgardinsmeny i cell C1 som inkluderar veckodagens namn, kolumn A är listan över datum och kolumn B är listan över tider. Nu när jag väljer ett veckodagsnamn i rullgardinsmenyn, till exempel torsdag, hoppar markören till B5 som ligger intill torsdagen i kolumn A. I Excel finns det ingen inbyggd funktion för att lösa denna uppgift, men med den kraftfulla VBA-koden kan.

Hoppa till intilliggande cell baserat på värde i rullgardinsmenyn av VBA

---

Hoppa till intilliggande cell baserat på värde i rullgardinsmenyn av VBA

1. Välj en dag du vill använda i listrutan och tryck sedan på Alt + F11 för att aktivera Microsoft Visual Basic för applikationer fönster.

2. klick Insert > Modulerna, klistra in under koden i Modulerna.

VBA: Hoppa till intilliggande cell baserat på värde

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. Tryck F5 -tangenten, sedan hoppar markören till intilliggande cell baserat på värdet i rullgardinsmenyn.

Notera:

I VBA-koden är A2: A8 listan som innehåller de värden som matchar värdena i listrutan, du kan ändra denna referens efter behov.