Como saltar rapidamente para a célula adjacente com base na seleção em uma lista suspensa do Excel?

Você já imaginou pular para a célula adjacente com base na seleção em uma lista suspensa do Excel? Por exemplo, aqui eu tenho uma lista suspensa na célula C1 que inclui os nomes dos dias da semana, a coluna A é a lista de datas e a coluna B é a lista de horários. Agora, quando eu escolho um nome de dia da semana na lista suspensa, por exemplo, quinta-feira, o cursor salta para B5 que é adjacente à quinta-feira na coluna A. No Excel, não há recurso embutido para resolver esta tarefa, mas com o poderoso código VBA pode.

Saltar para a célula adjacente com base no valor na lista suspensa por VBA

---

Saltar para a célula adjacente com base no valor na lista suspensa por VBA

1. Selecione o dia que deseja usar na lista suspensa e pressione Alt + F11 chaves para habilitar o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Módulo, cole o código abaixo no Módulo.

VBA: pula para a célula adjacente com base no valor

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. Pressione F5 , o cursor salta para a célula adjacente com base no valor da lista suspensa.

NOTA

No código VBA, A2: A8 é a lista que contém os valores correspondentes aos valores na lista suspensa, você pode alterar essa referência conforme necessário.