Как да покажа / покажа критерии за автоматичен филтър в Excel?
Автоматичният филтър е полезна функция за потребителите на Excel, понякога прилагаме автоматичния филтър, за да филтрираме данните по множество критерии и да изпратим файла на други. В тази ситуация, ако другите потребители искат да знаят вашия филтриран критерий, как биха могли да го направят?
Показване / Показване на критерии за автоматичен филтър в работен лист с VBA код
Показване / Показване на критерии за автоматичен филтър в работен лист с Kutools за Excel
Показване / Показване на критерии за автоматично филтриране в работен лист с дефинирана от потребителя функция
Да предположим, че имате следните данни, които са филтрирани по някакъв критерий, вижте екранната снимка:
И сега мога да създам дефинирана от потребителя функция за показване на критерия за филтър в клетките, моля, направете следните стъпки:
1. Задръжте натиснат ALT + F11 за да отворите Прозорец на Microsoft Visual Basic за приложения.
2. Щракнете Поставете > Модулии поставете следния макрос в Прозорец на модула:
Function AutoFilter_Criteria(Rng As Range) As String
'Updateby20140220
Dim str1 As String, str2 As String
Application.Volatile
With Rng.Parent.AutoFilter
With .Filters(Rng.Column - .Range.Column + 1)
If Not .On Then Exit Function
str1 = .Criteria1
If .Operator = xlAnd Then
str2 = " AND " & .Criteria2
ElseIf .Operator = xlOr Then
str2 = " OR " & .Criteria2
End If
End With
End With
AutoFilter_Criteria = UCase(Rng) & ": " & str1 & str2
End Function
3. След това запазете и затворете този код, в празна клетка на празен ред, например клетка A1, въведете тази формула =AutoFilter_Criteria(A4) (A4 е заглавната клетка на филтрираните данни), вижте екранната снимка:
4. След това натиснете Въведете и след това изберете клетка A1, плъзнете манипулатора за запълване до десните клетки, които трябва да съдържат тази формула, и всички критерии са показани в клетките, вижте екранната снимка:
Забележка: Ако има повече от два критерия в колона, тази дефинирана от потребителя функция няма да даде правилния резултат.
Показване / Показване на критерии за автоматичен филтър в работен лист с VBA код
Тук мога да говоря и за интересен VBA код, той може да ви помогне да покажете критериите за филтър в клетка на работната книга.
1. Задръжте натиснат ALT + F11 за да отворите Прозорец на Microsoft Visual Basic за приложения.
2. Щракнете Поставете > Модулии поставете следния макрос в Прозорец на модула:
VBA код: Показване на критерии за автоматично филтриране в работен лист
Sub ShowAutoFilterCriteria()
'Updateby20140219
Dim xFilter As AutoFilter
Dim TargetFilter As Filter
Dim TargetField As String
Dim xOut As String
Dim OutRng As Range
If ActiveSheet.AutoFilterMode = False Then
Application.StatusBar = False
Exit Sub
End If
xTitleId = "KutoolsforExcel"
Set OutRng = Application.Selection
Set OutRng = Application.InputBox("Cell", xTitleId, OutRng.Address, Type:=8)
Set xFilter = ActiveSheet.AutoFilter
For i = 1 To xFilter.Filters.Count
TargetField = xFilter.Range.Cells(1, i).Value
Set TargetFilter = xFilter.Filters(i)
If TargetFilter.On Then
On Error GoTo OutNext
xOut = xOut & TargetField & TargetFilter.Criteria1
Select Case TargetFilter.Operator
Case xlAnd
xOut = xOut & " And " & TargetField & TargetFilter.Criteria2
Case xlOr
xOut = xOut & " Or " & TargetField & TargetFilter.Criteria2
Case xlBottom10Items
xOut = xOut & " (bottom 10 items)"
Case xlBottom10Percent
xOut = xOut & " (bottom 10%)"
Case xlTop10Items
xOut = xOut & " (top 10 items)"
Case xlTop10Percent
xOut = xOut & " (top 10%)"
End Select
End If
Next
OutRng.Value = xOut
OutNext:
xOut = xOut & TargetField & "= Multiple Filters"
ErrorHandler:
Resume Next
End Sub
3. След това натиснете F5 за да изпълните този код, ще изскочи поле за подкана, което ви позволява да изберете празна клетка, за да поставите критерия, вижте екранната снимка:
4, И после щракнете върху OK, всички критерии са показани в избраната клетка, както следва:
Забележка:
С този код на VBA, ако вашият критерий е повече от два в колона, няма да бъде показан подробният критерий за филтър, а ще се покаже, както следва:
Показване / Показване на критерии за автоматичен филтър в работен лист с Kutools за Excel
Ако имате Kutools за Excel инсталиран, можете да го приложите Супер филтър функция за филтриране на данни и в същото време можете да видите критериите за филтриране по всяко време.
Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. |
След безплатно инсталиране Kutools за Excel, моля, направете следното:
1. кликване Kutools плюс > Супер филтър за показване на Супер филтър функция. Вижте екранна снимка:
2. В Супер филтър панел, щракнете върху за да изберете диапазона от данни, който искате да филтрирате, след това поставете отметка в квадратчето Посочено, за да коригирате диапазона на филтъра. Вижте екранна снимка:
3. В Супер филтър панел, щракнете върху ред във филтърна група, след това задайте критериите за филтриране в падащите списъци, както е необходимо, след което щракнете върху Ok, за да завършите настройката на критериите. Вижте екранна снимка:
4. кликване филтъри избраните данни са филтрирани по критериите и междувременно можете да видите критериите за филтриране, които се показват в Супер филтър прозорец. Вижте екранна снимка:
Забележка: Можете да запишете критериите за филтър като сценарий за следваща употреба с помощната програма Super Filter.
1. щракнете върху Запазете текущите настройки на филтъра бутон, в изскачащия диалогов прозорец въведете име на филтър.
2. Когато искате да използвате тези настройки на файла следващия път, щракнете върху бутона за меню, след което изберете сценария в подменюто на Отворете сценария за запазени настройки на филтъра.
Показване на критериите за филтриране по време на филтриране
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!