fieldsun版主和各位高手请进

GUIZF · 发表于 2004-8-19 13:02

我照搬FIELDSUN版主帮助我写的宏，但不知为什么执行出现错误，代码如下：

Sub x() Dim c As Range For Each c In Range("g2:g9") ActiveSheet.PivotTables("数据透视表1").PivotFields("批号").CurrentPage = c.Value ActiveSheet.PivotTables("数据透视表1").RefreshTable Range("a1:" & Range("b65536").End(xlUp).Address).PrintOut Next c End Sub 示例文件如下，请各位帮忙看看，谢谢！在线急等

QsUCmdQC.rar (68.81 KB, 下载次数: 14)

fieldsun · 发表于 2004-8-19 13:31

因为有的批号没有,加个错误判断应该就可以了

Sub x() Dim c As Range For Each c In Range("g2:g9") On Error GoTo 10 ActiveSheet.PivotTables("数据透视表1").PivotFields("批号").CurrentPage = c.Value ActiveSheet.PivotTables("数据透视表1").RefreshTable Range("a1:" & Range("b65536").End(xlUp).Address).PrintOut 10 On Error GoTo 0 Next c End Sub

		自动登录	找回密码
密码			免费注册