[分享]数据透视表筛选

yanjie

excel2007的数据透视表，增加了“筛选”功能，它使用简单，方便，就象自动筛选一样，并且增加了右键筛选功能。

excel2003没有筛选，虽然可以特殊方法来调用“自动筛选”功能，但是它使用很不方便！

[ 本帖最后由 BIN_YANG168 于 2009-3-23 14:15 编辑 ]

yanjie

如果能用VBA控制筛选，会有更大的灵活性。下面是筛选“姓名”字段包含“aa”的项：

ActiveSheet.PivotTables("数据透视表1").PivotFields("姓名").PivotFilters.Add Type:=xlCaptionContains, Value1:="aa"

下面是清除所有筛选：

ActiveSheet.PivotTables("数据透视表1").PivotFields("姓名").ClearAllFilters

要知道筛选的种类很多，对于这些种类不必去记每一个，这样做也不明智，要知道某个筛选，录制一段宏就知道了。

名称	值	描述
xlBefore	31	筛选早于指定日期的所有日期
xlBeforeOrEqualTo	32	筛选等于或早于指定日期的所有日期
xlAfter	33	筛选迟于指定日期的所有日期
xlAfterOrEqualTo	34	筛选等于或迟于指定日期的所有日期
xlAllDatesInPeriodJanuary	53	筛选一月的所有日期
xlAllDatesInPeriodFebruary	54	筛选二月的所有日期
xlAllDatesInPeriodMarch	55	筛选三月的所有日期
xlAllDatesInPeriodApril	56	筛选四月的所有日期
xlAllDatesInPeriodMay	57	筛选五月的所有日期
xlAllDatesInPeriodJune	58	筛选六月的所有日期
xlAllDatesInPeriodJuly	59	筛选七月的所有日期
xlAllDatesInPeriodAugust	60	筛选八月的所有日期
xlAllDatesInPeriodSeptember	61	筛选九月的所有日期
xlAllDatesInPeriodOctober	62	筛选十月的所有日期
xlAllDatesInPeriodNovember	63	筛选十一月的所有日期
xlAllDatesInPeriodDecember	64	筛选十二月的所有日期
xlAllDatesInPeriodQuarter1	49	筛选第一季度中的所有日期
xlAllDatesInPeriodQuarter2	50	筛选第二季度中的所有日期
xlAllDatesInPeriodQuarter3	51	筛选第三季度中的所有日期
xlAllDatesInPeriodQuarter4	52	筛选第四季度中的所有日期
xlBottomCount	2	从列表底部筛选指定数量的值
xlBottomPercent	4	从列表底部筛选指定百分比的值
xlBottomSum	6	列表底部的值的总和
xlCaptionBeginsWith	17	筛选以指定字符串开头的所有标题
xlCaptionContains	21	筛选包含指定字符串的所有标题
xlCaptionDoesNotBeginWith	18	筛选不以指定字符串开头的所有标题
xlCaptionDoesNotContain	22	筛选不包含指定字符串的所有标题
xlCaptionDoesNotEndWith	20	筛选不以指定字符串结尾的所有标题
xlCaptionDoesNotEqual	16	筛选不与指定字符串匹配的所有标题
xlCaptionEndsWith	19	筛选以指定字符串结尾的所有标题
xlCaptionEquals	15	筛选与指定字符串匹配的所有标题
xlCaptionIsBetween	27	筛选介于指定值范围内的所有标题
xlCaptionIsGreaterThan	23	筛选大于指定值的所有标题
xlCaptionIsGreaterThanOrEqualTo	24	筛选大于指定值或与指定值匹配的所有标题
xlCaptionIsLessThan	25	筛选小于指定值的所有标题
xlCaptionIsLessThanOrEqualTo	26	筛选小于指定值或与指定值匹配的所有标题
xlCaptionIsNotBetween	28	筛选不介于指定值范围内的所有标题
xlDateBetween	32	筛选介于指定日期范围内的所有日期
xlDateLastMonth	41	筛选牵涉到上个月的所有日期
xlDateLastQuarter	44	筛选牵涉到上季度的所有日期
xlDateLastWeek	38	筛选牵涉到上周的所有日期
xlDateLastYear	47	筛选牵涉到上一年的所有日期
xlDateNextMonth	39	筛选牵涉到下月的所有日期
xlDateNextQuarter	42	筛选牵涉到下季度的所有日期
xlDateNextWeek	36	筛选牵涉到下周的所有日期
xlDateNextYear	45	筛选牵涉到下一年的所有日期
xlDateThisMonth	40	筛选牵涉到本月的所有日期
xlDateThisQuarter	43	筛选牵涉到本季度的所有日期
xlDateThisWeek	37	筛选牵涉到本周的所有日期
xlDateThisYear	46	筛选牵涉到本年度的所有日期
xlDateToday	34	筛选牵涉到当前日期的所有日期
xlDateTomorrow	33	筛选牵涉到下一天的所有日期
xlDateYesterday	35	筛选牵涉到前一天的所有日期
xlNotSpecificDate	30	筛选与指定日期不匹配的所有日期
xlSpecificDate	29	筛选与指定日期匹配的所有日期
xlTopCount	1	从列表顶部筛选指定数量的值
xlTopPercent	3	从列表中筛选指定百分比的值
xlTopSum	5	列表顶部的值的总和
xlValueDoesNotEqual	8	筛选与指定值不匹配的所有值
xlValueEquals	7	筛选与指定值匹配的所有值
xlValueIsBetween	13	筛选介于指定值范围内的所有值
xlValueIsGreaterThan	9	筛选大于指定值的所有值
xlValueIsGreaterThanOrEqualTo	10	筛选大于指定值或与指定值匹配的所有值
xlValueIsLessThan	11	筛选小于指定值的所有值
xlValueIsLessThanOrEqualTo	12	筛选小于指定值或与指定值匹配的所有值
xlValueIsNotBetween	14	筛选不介于指定值范围内的所有值
xlYearToDate	48	筛选指定日期的一年内的所有值

LangQueS

谢谢yanjie版！

dgxsdr

谢谢分享！

sommbain

请问这些宏的应用在２００３中也有吗，如果是想进行如下VBA的编写，如何做呢
>５０ AND <１００

谢谢

Excelworm

来几个实例吧，我怎么试都不成功，使用xlbefore