Как да филтрирате данни само като щракнете върху съдържанието на клетка в Excel?
Обикновено в Excel можете да приложите функцията Филтър, за да филтрирате данни според вашите нужди. Но в тази статия ще говоря за това как да филтрирате данни само като щракнете върху стойност на клетка. Вземете следните данни като пример, когато щракна два пъти върху клетка A2, всички съответни записи въз основа на тази щракната стойност ще бъдат филтрирани наведнъж, както е показано на екранната снимка по-долу.
Филтрирайте данните само като щракнете върху стойност на клетка с VBA код
Филтрирайте данните само като щракнете върху стойност на клетка с VBA код
Тук ще ви предоставя VBA код, за да филтрирате данни, като щракнете върху клетка, моля, направете следното:
1. Първо, дайте на данните си име на диапазон, моля, въведете име на диапазон в Име Box, и натиснете Въведете ключ, вижте екранната снимка:
2. Щракнете с десния бутон върху раздела на листа, който искате да филтрирате, като щракнете върху клетка и след това изберете Преглед на кода от контекстното меню и в отвореното Microsoft Visual Basic за приложения прозорец, копирайте и поставете следния код в празния модул:
VBA код: Филтрирайте данните, като щракнете върху стойността на клетката:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
Dim rgTable As Range
Dim rgData As Range
Dim xColumn As Integer
On Error Resume Next
Application.ScreenUpdating = False
Set rgTable = Range("mydata")
With rgTable
Set rgData = .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count)
If Not Application.Intersect(ActiveCell, rgData.Cells) Is Nothing Then
xColumn = ActiveCell.Column - .Column + 1
If ActiveSheet.AutoFilterMode = False Then
.AutoFilter
End If
If ActiveSheet.AutoFilter.Filters(xColumn).On = True Then
.AutoFilter Field:=xColumn
Else
.AutoFilter Field:=xColumn, Criteria1:=ActiveCell.Value
End If
End If
End With
Set rgData = Nothing
Set rgTable = Nothing
Application.ScreenUpdating = True
End Sub
Забележка: В горния код, моите данни е името на диапазона, който сте създали за вашия диапазон от данни, моля, променете го според вашите нужди.
3. След това запазете и затворете прозореца на кода, сега, когато щракнете двукратно върху която и да е клетка от диапазона от данни, който искате да филтрирате, съответните му записи ще бъдат филтрирани, както е показано на следната екранна снимка:
Още свързани статии:
Как да промените стойността на клетката, като щракнете върху клетката?
Как да сортирате данни от колони, като щракнете върху заглавката в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!