Как дважды щелкнуть по ячейке, чтобы открыть указанный лист в 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?
• Как автоматически добавить/ввести текущую дату/время в ячейку двойным щелчком в Excel?
• Как дважды щелкнуть по ячейке и добавить 1 к значению этой ячейки в Excel?
• Как вызвать календарь при нажатии на определенную ячейку в Excel?