fieldsun版主，我按您的做法仍然有错误，请多指点，我很菜

GUIZF · 发表于 2004-8-19 17:49

我按版主的做法仍然有错误，而且G列的批号透视表中都有啊！

另外请问您在VBA编程方面是看的哪些书籍？

VVM9TivN.rar (68.56 KB, 下载次数: 14)

[em06]

GUIZF · 发表于 2004-8-23 08:47

请问fieldsun版主，申明对象类型Dim c As Range, xx这句有点不明白，能帮我解释一下用法吗？另外如果批号列必需是文本类型的该如编宏？（如030506批号），谢谢！

[em06]

GUIZF · 发表于 2004-8-24 08:35

谢谢fieldsun版主！受益非浅

[em02]

fieldsun · 发表于 2004-8-23 09:12

以下是引用GUIZF在2004-8-23 8:47:00的发言：

请问fieldsun版主，申明对象类型Dim c As Range, xx这句有点不明白，能帮我解释一下用法吗？另外如果批号列必需是文本类型的该如编宏？（如030506批号），谢谢！

[em06]

定义变量,XX是调试时加的,不需要了,我已在3楼改过了

fieldsun · 发表于 2004-8-20 09:26

原因基本查明,可能是数据表中"批号"列数据类型不统一造成,用复制-选择性帖帖-乘的办法将"批号"列和G2:G9乘1转为数值,更新透视表,用以下代码即可实现(看样子ON ERROR处理是多余的)

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

NOrTlwj3.rar (62.93 KB, 下载次数: 15)

[此贴子已经被作者于2004-8-23 9:10:13编辑过]

fieldsun · 发表于 2004-8-20 09:08

试了一下录制一个多次改变批号的宏,录制完后执行录制的宏也会出错,原因不明,看来在透视表中用VBA还是有讲究的

楼主可以到VBA版问问

另建议楼主最好在原帖后跟帖.

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