Как дважды щелкнуть по ячейке, чтобы открыть указанный лист в Excel?
Хотите быстро перейти к указанному листу в книге Excel? В этой статье мы предоставим метод VBA для открытия определенного листа путем двойного щелчка по определенной ячейке в Excel.
Дважды щелкните по ячейке, чтобы открыть указанный лист с помощью кода VBA
Дважды щелкните по ячейке, чтобы открыть указанный лист с помощью кода VBA
Пожалуйста, выполните следующие действия, чтобы открыть указанный лист, дважды щелкнув по ячейке в Excel.
1. Щелкните правой кнопкой мыши по вкладке листа, содержащей ячейку, по которой вы хотите открыть лист. Затем нажмите Просмотр кода в контекстном меню. См. скриншот:
2. В открывшемся окне Microsoft Visual Basic for Applications, пожалуйста, скопируйте следующий код VBA в окно Кода.
Код VBA: дважды щелкните по ячейке, чтобы открыть указанный лист в Excel
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20180822
Dim xArray, xAValue As Variant
Dim xFNum As Long
Dim xStr, xStrRg, xStrSheetName As String
xRgArray = Array("A1;Sheet2", "A12;Sheet3", "A4;Sheet4", "A100;Sheet5")
On Error Resume Next
For xFNum = LBound(xRgArray) To UBound(xRgArray)
xStr = ""
xStr = xRgArray(xFNum)
xAValue = ""
xAValue = Split(xStr, ";")
xStrRg = ""
xStrRg = xAValue(0)
xStrSheetName = ""
xStrSheetName = xAValue(1)
If Not Intersect(Target, Range(xStrRg)) Is Nothing Then
Sheets(xStrSheetName).Activate
End If
Next
End Sub
Примечание: В коде VBA «A1;Лист2», «A12;Лист3», «A4;Лист4», «A100;Лист5» означают, что при двойном щелчке по ячейке A1 откроется Лист2, при двойном щелчке по A12 откроется Лист3 и т.д. Пожалуйста, измените их в зависимости от ваших потребностей.
3. Нажмите клавиши Alt + Q вместе, чтобы закрыть окно Microsoft Visual Basic for Applications.
С этого момента, когда вы дважды щелкнете по ячейке A1 на текущем листе, указанный лист будет активирован немедленно.

Раскройте магию Excel с Kutools AI
- Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
- Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
- Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
- Интерпретация формул: Легко разбирайтесь в сложных формулах.
- Перевод текста: Преодолейте языковые барьеры в ваших таблицах.
Связанные статьи:
- Как щелкнуть или дважды щелкнуть по ячейке, чтобы открыть указанную пользовательскую форму в Excel?
- Как добавить галочку в ячейку двойным щелчком в Excel?
- Как автоматически добавить/ввести текущую дату/время в ячейку двойным щелчком в Excel?
- Как дважды щелкнуть по ячейке и добавить 1 к значению этой ячейки в Excel?
- Как вызвать календарь при нажатии на определенную ячейку в Excel?
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в 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.





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