Jak rychle přeskočit na sousední buňku na základě výběru v rozevíracím seznamu aplikace Excel?

Už jste někdy zobrazili skok do sousední buňky na základě výběru v rozevíracím seznamu v aplikaci Excel? Například zde mám rozevírací seznam v buňce C1, který obsahuje názvy dnů v týdnu, sloupec A je seznam dat a sloupec B je seznam časů. Když teď z rozevíracího seznamu vyberu název dne v týdnu, například čtvrtek, kurzor přeskočí na B5, který sousedí se čtvrtkem ve sloupci A. V aplikaci Excel neexistuje žádná vestavěná funkce, která by tento úkol vyřešila, ale s výkonný kód VBA může.

Přejít na sousední buňku na základě hodnoty v rozevíracím seznamu podle VBA

Přejít na sousední buňku na základě hodnoty v rozevíracím seznamu podle VBA

1. Z rozevíracího seznamu vyberte den, který chcete použít, a stiskněte Alt + F11 klávesy pro povolení Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modul, vložte pod kód do Modul.

VBA: Přejít na sousední buňku na základě hodnoty

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. lis F5 Poté kurzor přeskočí na sousední buňku na základě hodnoty v rozevíracím seznamu.

Poznámka:

V kódu VBA je seznam A2: A8, který obsahuje hodnoty odpovídající hodnotám v rozevíracím seznamu, můžete tento odkaz podle potřeby změnit.