Sådan springer du hurtigt til den tilstødende celle baseret på markeringen i en Excel-rulleliste?
Har du nogensinde taget billeder for at hoppe til den tilstødende celle baseret på markeringen i en rulleliste i Excel? For eksempel har jeg her en rulleliste i celle C1, der inkluderer hverdagsnavne, kolonne A er listen over datoer, og kolonne B er listen over tidspunkter. Nu når jeg vælger et ugedagsnavn fra rullelisten, for eksempel torsdag, springer markøren til B5, der støder op til torsdagen i kolonne A. I Excel er der ingen indbygget funktion til at løse denne opgave, men med den magtfulde VBA-kode kan.
Spring til tilstødende celle baseret på værdi i rullelisten efter VBA
Spring til tilstødende celle baseret på værdi i rullelisten efter VBA
1. Vælg en dag, du vil bruge, fra rullelisten, og tryk derefter på Alt + F11 for at aktivere Microsoft Visual Basic til applikationer vindue.
2. klik indsatte > Moduler, indsæt nedenstående kode til Moduler.
VBA: Gå til tilstødende celle baseret på værdi
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. Trykke F5 tasten, så springer markøren til den tilstødende celle baseret på værdien i rullelisten.
I VBA-koden er A2: A8 den liste, der indeholder de værdier, der matcher værdierne i rullelisten, du kan ændre denne reference, som du har brug for.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!