Як двічі клацнути клітинку, щоб відкрити вказаний аркуш у Excel?
Ви хочете швидко перейти до вказаного аркуша в книзі Excel? У цій статті буде запропоновано метод VBA для відкриття вказаного робочого аркуша подвійним клацанням певної комірки в Excel.
Двічі клацніть клітинку, щоб відкрити вказаний аркуш із кодом VBA
Двічі клацніть клітинку, щоб відкрити вказаний аркуш із кодом VBA
Будь ласка, виконайте наступні дії, щоб відкрити вказаний аркуш, двічі клацнувши клітинку в Excel.
1. Клацніть правою кнопкою миші вкладку аркуша, яка містить клітинку, яку потрібно відкрити, натиснувши на неї. А потім клацніть Переглянути код з контекстного меню. Дивіться знімок екрана:
2. На відкритті Microsoft Visual Basic для додатків вікно, скопіюйте наступний код 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, подвійне клацання А2 відкриє Аркуш3 ..., будь ласка, змініть їх відповідно до Ваших потреб.
3 Натисніть кнопку інший + Q клавіші разом, щоб закрити Microsoft Visual Basic для додатків вікна.
Відтепер, при подвійному клацанні клітинки А1 на поточному аркуші, зазначений аркуш буде негайно активовано.
Статті по темі:
- Як клацнути або двічі клацнути клітинку, щоб відкрити вказану форму користувача в Excel?
- Як додати галочку в клітинку подвійним клацанням в Excel?
- Як автоматично додавати / вводити поточну дату / час у клітинку подвійним клацанням у програмі Excel?
- Як двічі клацнути клітинку та додати 1 до цього значення комірки в Excel?
- Як спливати календар при натисканні певної комірки в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!