Як швидко перейти до сусідньої комірки на основі виділення у спадному списку Excel?
Ви коли-небудь зображували, щоб перейти до сусідньої комірки на основі виділення у випадаючому списку в Excel? Наприклад, тут у мене є випадаючий список у клітинці C1, який включає імена днів тижня, стовпець A - список дат, а стовпець B - список часів. Тепер, коли я вибираю з випадаючого списку назву дня тижня, наприклад, четвер, курсор переходить до B5, який знаходиться поруч із четвергом у стовпці A. У Excel немає вбудованої функції для вирішення цього завдання, але з потужний код VBA може.
Перейти до сусідньої комірки на основі значення у випадаючому списку VBA
Перейти до сусідньої комірки на основі значення у випадаючому списку VBA
1. Виберіть день, який ви хочете використовувати, зі спадного списку, а потім натисніть Alt + F11 клавіші, щоб увімкнути Microsoft Visual Basic для додатків вікна.
2. клацання Insert > Модулі, вставте код нижче в Модулі.
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 для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!