===未解决===用宏自动更新三个数据透视表筛选字段求助

qwasd3

1. Sub Macro1()
   
2. '
   
3. '
   
4. ' 快捷键: Ctrl+e
   
5.     Sheets("产品损耗一").Select
   
6.     ActiveSheet.PivotTables("数据透视表1").PivotFields("生产日期").CurrentPage = ActiveWorkbook.Sheets("Sheet1").Range("B2")
   
7.     ActiveSheet.PivotTables("数据透视表1").PivotFields("型號").CurrentPage = ActiveWorkbook.Sheets("Sheet1").Range("B3")
   
8.     Sheets("产品损耗二").Select
   
9.     ActiveSheet.PivotTables("数据透视表1").PivotFields("生产日期").CurrentPage = ActiveWorkbook.Sheets("Sheet1").Range("B2")
   
10.     ActiveSheet.PivotTables("数据透视表1").PivotFields("型號").CurrentPage = ActiveWorkbook.Sheets("Sheet1").Range("B3")
    
11.     Sheets("产品损耗三").Select
    
12.     ActiveSheet.PivotTables("数据透视表1").PivotFields("生产日期").CurrentPage = ActiveWorkbook.Sheets("Sheet1").Range("B2")
    
13.     ActiveSheet.PivotTables("数据透视表1").PivotFields("型號").CurrentPage = ActiveWorkbook.Sheets("Sheet1").Range("B3")
    
14.    
    
15.     ActiveWorkbook.Save
    
16. End Sub

复制代码

我的目的是在工作表sheet1  B2输入生产日期及B3单元格输入一个型号，自动更新到每个数据透视表，这样不需要手动去筛选更新了。

[ 本帖最后由 qwasd3 于 2008-12-18 08:26 编辑 ]

蓝桥玄霜

提问题请用表格附件说明问题及效果，这样容易得到回应。
没有附件无法测试。

qwasd3

我现在就想问的就是ActiveSheet.PivotTables("数据透视表1").PivotFields("生产日期").CurrentPage =
这段代码等于后面 应该是指定工作表的一个单元格，这段代码如何写呢？
比如批定为 Sheet1工作表里的B2单元格。
ActiveWorkbook.Sheets("Sheet1").Range("B2")
用这段代码居然也报错。那应该如何写？

qwasd3

怎么没有人啊？？？