Hur hoppar jag snabbt till den intilliggande cellen baserat på valet i en Excel-rullgardinslista?
Har du någonsin avbildat för att hoppa till den intilliggande cellen baserat på valet i en rullgardinslista i Excel? Här har jag till exempel en rullgardinsmeny i cell C1 som inkluderar veckodagens namn, kolumn A är listan över datum och kolumn B är listan över tider. Nu när jag väljer ett veckodagsnamn i rullgardinsmenyn, till exempel torsdag, hoppar markören till B5 som ligger intill torsdagen i kolumn A. I Excel finns det ingen inbyggd funktion för att lösa denna uppgift, men med den kraftfulla VBA-koden kan.
Hoppa till intilliggande cell baserat på värde i rullgardinsmenyn av VBA
Hoppa till intilliggande cell baserat på värde i rullgardinsmenyn av VBA
1. Välj en dag du vill använda i listrutan och tryck sedan på Alt + F11 för att aktivera Microsoft Visual Basic för applikationer fönster.
2. klick Insert > Modulerna, klistra in under koden i Modulerna.
VBA: Hoppa till intilliggande cell baserat på värde
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. Tryck F5 -tangenten, sedan hoppar markören till intilliggande cell baserat på värdet i rullgardinsmenyn.
I VBA-koden är A2: A8 listan som innehåller de värden som matchar värdena i listrutan, du kan ändra denna referens efter behov.
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
