Note: The other languages of the website are Google-translated. Back to English

Як швидко перейти до сусідньої комірки на основі виділення у спадному списку Excel?

Ви коли-небудь зображували, щоб перейти до сусідньої комірки на основі виділення у випадаючому списку в Excel? Наприклад, тут у мене є випадаючий список у клітинці C1, який включає імена днів тижня, стовпець A - список дат, а стовпець B - список часів. Тепер, коли я вибираю з випадаючого списку назву дня тижня, наприклад, четвер, курсор переходить до B5, який знаходиться поруч із четвергом у стовпці A. У Excel немає вбудованої функції для вирішення цього завдання, але з потужний код VBA може.
перехід документа на значення комірки 1

Перейти до сусідньої комірки на основі значення у випадаючому списку VBA


стрілка синя права міхур Перейти до сусідньої комірки на основі значення у випадаючому списку VBA

1. Виберіть день, який ви хочете використовувати, зі спадного списку, а потім натисніть Alt + F11 клавіші, щоб увімкнути Microsoft Visual Basic для додатків вікна.
перехід документа на значення комірки 2

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

3. прес F5 клавіша, тоді курсор переходить до сусідньої комірки на основі значення у випадаючому списку.
перехід документа на значення комірки 4

Примітка:

У коді VBA A2: A8 - це список, що містить значення, що відповідають значенням у випадаючому списку, ви можете змінити це посилання, як вам потрібно.


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (0)
Поки немає оцінок. Оцініть першим!
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця