Как быстро перейти к соседней ячейке на основе выбора в раскрывающемся списке Excel?
Вы когда-нибудь представляли себе, как перейти к соседней ячейке на основе выбора в раскрывающемся списке в Excel? Например, здесь у меня есть раскрывающийся список в ячейке C1, который включает названия дней недели, столбец A - это список дат, а столбец B - это список времени. Теперь, когда я выбираю название дня недели из раскрывающегося списка, например, четверг, курсор переходит на B5, который находится рядом с четвергом в столбце A. В Excel нет встроенной функции для решения этой задачи, но с мощный код VBA может.
Перейти к соседней ячейке на основе значения в раскрывающемся списке VBA
Перейти к соседней ячейке на основе значения в раскрывающемся списке VBA
1. Выберите день, который вы хотите использовать, из раскрывающегося списка, затем нажмите Alt + F11 ключи для включения Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модуливставьте ниже код в Модули.
VBA: переход к соседней ячейке в зависимости от значения
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. Нажмите F5 , то курсор переходит в соседнюю ячейку в зависимости от значения в раскрывающемся списке.
В коде VBA A2: A8 - это список, который содержит значения, соответствующие значениям в раскрывающемся списке, вы можете изменить эту ссылку по своему усмотрению.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!