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.
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.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com Kutools for Excele experimente eficiência como nunca antes. Kutools for Excel Oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab Traz a interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
