Note: The other languages of the website are Google-translated. Back to English
English English

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ò.
doc salta per valore di cella 1

Passa alla cella adiacente in base al valore nell'elenco a discesa di VBA


freccia blu freccia destra 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.
doc salta per valore di cella 2

2. Clic inserire > Modulo, incolla sotto il codice nel file Modulo.

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

doc salta per valore di cella 3

3. Stampa F5 , quindi il cursore salta alla cella adiacente in base al valore nell'elenco a discesa.
doc salta per valore di cella 4

NOTA:

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

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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 centinaia di clic del mouse ogni giorno!
fondo officetab
Commenti (0)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite