Come passare rapidamente alla cella adiacente in base alla selezione in un elenco a discesa di Excel?
Hai mai immaginato di saltare alla cella adiacente in base alla selezione in un elenco a discesa in Excel? Ad esempio, qui ho un elenco a discesa nella cella C1 che include i nomi dei giorni della settimana, la colonna A è l'elenco delle date e la colonna B è l'elenco degli orari. Ora, quando scelgo un nome del giorno della settimana dall'elenco a discesa, ad esempio giovedì, il cursore salta su B5 che è adiacente al giovedì nella colonna A. In Excel, non esiste una funzionalità integrata per risolvere questa attività, ma con il potente codice VBA può.
Passa alla cella adiacente in base al valore nell'elenco a discesa di VBA
Passa alla cella adiacente in base al valore nell'elenco a discesa di VBA
1. Selezionare un giorno che si desidera utilizzare dall'elenco a discesa, quindi premere Alt + F11 tasti per abilitare il Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Moduli, incolla sotto il codice nel file Moduli.
VBA: passa alla cella adiacente in base al valore
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. Stampa F5 , quindi il cursore salta alla cella adiacente in base al valore nell'elenco a discesa.
Nel codice VBA, A2: A8 è l'elenco che contiene i valori corrispondenti ai valori nell'elenco a discesa, puoi modificare questo riferimento in base alle tue esigenze.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!