Як фільтрувати дані, просто клацнувши вміст комірки в 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?