Comment passer rapidement à la cellule adjacente en fonction de la sélection dans une liste déroulante Excel?
Avez-vous déjà imaginé de sauter à la cellule adjacente en fonction de la sélection dans une liste déroulante dans Excel? Par exemple, j'ai ici une liste déroulante dans la cellule C1 qui comprend les noms des jours de semaine, la colonne A est la liste des dates et la colonne B est la liste des heures. Maintenant, lorsque je choisis un nom de jour dans la liste déroulante, par exemple, jeudi, le curseur passe à B5 qui est adjacent au jeudi dans la colonne A. Dans Excel, il n'y a pas de fonction intégrée pour résoudre cette tâche, mais avec le puissant code VBA peut.
Aller à la cellule adjacente en fonction de la valeur dans la liste déroulante par VBA
Aller à la cellule adjacente en fonction de la valeur dans la liste déroulante par VBA
1. Sélectionnez un jour que vous souhaitez utiliser dans la liste déroulante, puis appuyez sur Alt + F11 touches pour activer Microsoft Visual Basic pour applications fenêtre.
2. Cliquez insérer > Module, collez ci-dessous le code dans le Module.
VBA: Aller à la cellule adjacente en fonction de la valeur
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. presse F5 , puis le curseur passe à la cellule adjacente en fonction de la valeur dans la liste déroulante.
Dans le code VBA, A2: A8 est la liste qui contient les valeurs correspondant aux valeurs de la liste déroulante, vous pouvez modifier cette référence selon vos besoins.
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
