KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

Как настроить порядок перехода между ячейками или разблокировать выделение в Excel?

АвторSiluviaДата изменения

Допустим, вы хотите настроить собственный порядок перехода между ячейками: например, при нажатии клавиши Tab курсор должен перемещаться из ячейки B5 в C6, затем в D7, далее в E8 и снова возвращаться в B5 — как показано на снимке экрана ниже. Как этого добиться? В этой статье описан способ реализации такого поведения с помощью VBA.

Снимок экрана листа с выделенными ячейками B5, C6, D7 и E8, показывающий пользовательский порядок перехода

Задание порядка перехода между ячейками или Разблокировать выбор с помощью кода VBA


Задание порядка перехода между ячейками или Разблокировать выбор с помощью кода VBA

Выполните следующий метод VBA, чтобы задать порядок перехода между ячейками на обычном листе или разблокировать выделение на защищённом листе.

1. На листе, для которого нужно задать порядок перехода, щёлкните правой кнопкой мыши по ярлыку листа и выберите в контекстном меню пункт «Просмотреть код».

2. В окне «Microsoft Visual Basic for Applications» скопируйте приведённый ниже код VBA и вставьте его в окно «Код».

Код VBA: задание порядка перехода между ячейками или Разблокировать выбор при нажатии клавиши Tab

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim tabArray As Variant
    Dim i As Long
    tabArray = Array("B5", "C6", "D7", "E8")
    Application.ScreenUpdating = False
    For i = LBound(tabArray) To UBound(tabArray)
        If tabArray(i) = Target.Address(0, 0) Then
            If i = UBound(tabArray) Then
                Me.Range(tabArray(LBound(tabArray))).Select
            Else
                Me.Range(tabArray(i + 1)).Select
            End If
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

Примечания:

1) В коде B5, C6, D7, E8 — это последовательность ячеек для ввода данных, и вы должны использовать заглавные буквы в адресах ячеек. При необходимости вы можете изменить их.
2) Для защищённого листа ячейки для ввода должны быть разблокированы.

Снимок экрана окна Microsoft Visual Basic for Applications с кодом VBA для установки пользовательского порядка перехода в Excel

3. Нажмите сочетание клавиш «Alt» + «Q», чтобы закрыть окно Microsoft Visual Basic for Applications.

Теперь после ввода данных в ячейку B5 при нажатии клавиши Tab или Enter вы перейдёте в ячейку C6. Далее переход будет происходить в следующем порядке: C6 → D7 → E8 → B5.


См. также:

Лучшие инструменты повышения продуктивности в Office

🤖KUTOOLS AI Помощник: Преобразуйте Анализ данных с помощью:Интеллектуального выполнения   |  Генерации кода|  Создания пользовательские формулы  |  Анализа данных и построения диаграмм|  Вызова Расширенные функции
Популярные функции:Поиск, выделение или Отметить дубликаты   |  Удалить пустые строки   |  Объединить столбцы или ячеек без потери данных   |  Округление без использования формул
Супер ПОИСК:VLookup по нескольким критериям  |  VLookup по нескольким значениям  |   VLookup по нескольким листам   |   Распознавание нечетких соответствий
Расширенный раскрывающийся список:Быстрое создание выпадающего списка   |  Зависимый выпадающий список   |  Выпадающий список с множественным выбором
Управление столбцами:Добавление заданного количества столбцов|Перемещение столбцов|Переключение видимости скрытых столбцов|Сравнение диапазонов и столбцов
Избранные функции:Сетка фокусировки   |  Просмотр дизайна   |Улучшенная строка формулы   | Управление рабочими книгами и листами   |  Библиотека ресурсов(автотекст)|  Выбор даты   |  Объединить листы  |  Шифрование/Расшифровать ячейки   | Отправка писем по списку   |  Супер фильтр   |   Специальный фильтр(Фильтр ячеек с жирным шрифтом/курсив/зачёркивание…) …
Лучшие наборы инструментов 15:12 Текстовыеинструменты(Добавить текст,Удалить определенные символы, …)|   50+Типыдиаграмм(Диаграмма Ганта, …)|   40+ Практические формулы(Рассчитать возраст на основе даты рождения, …)|   19 Инструментывставки(Вставить QR-код,Вставка изображения по пути, …)|   12 Инструментыпреобразования(Преобразовать в слова,Конвертация валют, …)|   7 Объединить и разделитьИнструменты(Расширенное объединение строк,Разделить ячейки, …)|… и многое другое
Используйте Kutools на предпочитаемом языке — поддержка английского, испанского, немецкого, французского, китайского и ещё 40+ языков!

Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…


Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу

  • Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
  • Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Все надстройки Kutools — один установщик

Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.

ExcelWordOutlookTabsPowerPoint
  • Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
  • Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
  • Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
  • 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
  • Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек