Come passare rapidamente alla cella adiacente in base alla selezione in un elenco a discesa di Excel?

Hai mai immaginato di passare 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 feriali, la colonna A è l'elenco delle date e la colonna B è l'elenco degli orari. Ora, quando seleziono un nome del giorno feriale dall'elenco a discesa, ad esempio Giovedì, il cursore salta alla cella B5 che è adiacente al Giovedì nella colonna A. In Excel, non c'è una funzionalità incorporata per risolvere questo compito, ma con un potente codice VBA si può fare.

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

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

1. Seleziona un giorno che desideri utilizzare dall'elenco a discesa, quindi premi Alt + F11 per abilitare la finestra Microsoft Visual Basic for Applications finestra.

2. Clicca su Inserisci > Modulo, incolla il codice sottostante nel 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

3. Premi F5 tasto, quindi il cursore salta alla cella adiacente in base al valore nell'elenco a discesa.

Nota:

Nel codice VBA, A2:A8 è l'elenco che contiene i valori corrispondenti ai valori nell'elenco a discesa, puoi modificare questo riferimento come necessario.

Sblocca la Magia di Excel con Kutools AI

• Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
• Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
• Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
• Interpretazione delle Formule: Comprendi facilmente formule complesse.
• Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.

Potenzia le tue capacità di Excel con strumenti alimentati dall'IA. Scarica Ora ed esperisci un'efficienza mai vista prima!