Як натиснути на букву алфавіту, щоб перейти до комірки, яка починається з цієї букви в Excel?
Використовуючи аркуш Excel із великим обсягом даних, чи знаєте ви, як швидко перейти до певних комірок, які містять зазначений вміст, або знайти їх? За допомогою методу, описаного в цій статті, ви можете клацнути клітинку з літерою алфавіту, щоб автоматично перейти до комірки, вміст якої починається з цієї літери алфавіту.
Клацніть на букву алфавіту, щоб перейти до комірки, яка починається з цієї букви з кодом VBA
Клацніть на букву алфавіту, щоб перейти до комірки, яка починається з цієї букви з кодом VBA
Будь-ласка, виконайте наступні дії, щоб перейти до комірки, клацнувши клітинку по алфавіту в Excel.
1. На робочому аркуші потрібно перейти до комірки, клацнувши клітинку по алфавіту, клацнути правою кнопкою миші на вкладці аркуша, а потім клацнути Переглянути код з меню правої клавіші миші. Дивіться знімок екрана:
2. Тоді a Microsoft Visual Basic для додатків спливає вікно, скопіюйте та вставте нижче код VBA у вікно коду.
Код VBA: Клацніть на літеру алфавіту, щоб перейти до комірки, яка починається з цієї літери
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xRg As Range
Dim xCell As Range
Dim xRgRtn As Range
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("1:1")) Is Nothing Then
Set xRg = ActiveSheet.UsedRange
Set xRg = xRg(1).Offset(1, 0).Resize(xRg.Rows.Count, xRg.Columns.Count)
For Each xCell In xRg
If Left(xCell.Value, 1) = Target.Value Then
If xRgRtn Is Nothing Then
Set xRgRtn = xCell
Else
Set xRgRtn = Application.Union(xRgRtn, xCell)
End If
End If
Next
If xRgRtn.Address = Target.Address Then
MsgBox "No matched cell found", , "KuTools For Excel"
Else
xRgRtn.Select
End If
End If
Application.EnableEvents = True
End Sub
примітки: У коді 1: 1 означає, що букви алфавіту знаходяться в першому рядку аркуша.
3 Натисніть кнопку інший + Q клавіші одночасно, щоб закрити Microsoft Visual Basic для додатків вікна.
Відтепер, при натисканні на клітинку алфавіту, усі комірки, які починаються з цієї букви, автоматично відбираються на робочому аркуші.
Якщо жодна клітинка не починається з вибраної літери, ви отримаєте діалогове вікно Kutools для Excel, як показано на знімку екрана нижче.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!