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.
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.
I migliori strumenti per la produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in