Как да щракнете върху буквата от азбуката, за да отидете в клетка, която започва с тази буква в 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% и намалява стотици кликвания на мишката за вас всеки ден!