Cum să treci rapid la celula adiacentă pe baza selecției dintr-o listă drop-down Excel?
V-ați imaginat vreodată să sari la celula adiacentă pe baza selecției dintr-o listă derulantă în Excel? De exemplu, aici am o listă derulantă în celula C1 care include numele zilei săptămânii, coloana A este lista de date, iar coloana B este lista orelor. Acum, când aleg un nume în ziua săptămânii din lista derulantă, de exemplu, joi, cursorul sare la B5, care este adiacent joiului în coloana A. În Excel, nu există nicio caracteristică încorporată pentru a rezolva această sarcină, dar cu puternicul cod VBA poate.
Salt la celula adiacentă pe baza valorii din lista derulantă de VBA
Salt la celula adiacentă pe baza valorii din lista derulantă de VBA
1. Selectați o zi pe care doriți să o utilizați din lista derulantă, apoi apăsați Alt + F11 tastele pentru a activa Microsoft Visual Basic pentru aplicații fereastră.
2. clic Insera > Module, lipiți codul de mai jos în Module.
VBA: Salt la celula adiacentă pe baza valorii
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. presa F5 tasta, apoi cursorul sare la celula adiacentă pe baza valorii din lista derulantă.
În codul VBA, A2: A8 este lista care conține valorile care se potrivesc cu valorile din lista derulantă, puteți schimba această referință după cum aveți nevoie.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!