查看: 2654|回复: 10
再次求助，如何按筛选顺序批量打印
阅读权限20
在线时间 小时
本帖最后由 王处一 于
20:20 编辑
& && &请问如何才能批量打印,我现在的方法是用自动筛选,例如筛选A列的1501的序号客户打印,按完打印按钮后再筛选1502的客户,但我的数据量很大,有几百,如果每一次都是按这样的步骤,要按好几十次，累死人了,按完后有点看到上帝的感觉。而且不是固定的
一个列，打个比方，有时是F列，有时是G列，有时是J列。表内有高手写的代码，我不会修改到我想按所需的列打印。
& && &请问如何修改代码，谢谢，如果能加个注解，更感激不尽。
19:49 上传
点击文件名下载附件
8.38 KB, 下载次数: 48
阅读权限20
在线时间 小时
& & & & & & & &
期待高手帮助。
阅读权限95
在线时间 小时
有时是F列，有时是G列，有时是J列
这是什么意思
阅读权限50
在线时间 小时
你没有说出你要筛选的具体步骤，而且逻辑判断混乱，这样怎么写代码呢？你写出全部步骤才能帮你。
阅读权限95
在线时间 小时
你在附件中做出“有时是F列，有时是G列，有时是J列”的效果
阅读权限30
在线时间 小时
Sub 打印任意列()
Dim d
Dim arr
Dim i%, nrow%, s%
dyn = [p2].Value&&'先设置要打印的列号，比如F列的列号就是6,
nrow = Range(&A65536&).End(3).Row& &'第1列最后可见非空单元行号(A列分类)
arr = Range(&A3:j& & nrow)& & '在这里修改你的数据范围
s = UBound(arr)& & '一维数组最后项数
Set d = CreateObject(&Scripting.Dictionary&)& & '创建字典对象
For i = 1 To s& & '循环数组各项
& & d(arr(i, dyn)) = &&& & '将打印列对应的项目 纳入字典
Next
Range(&2:2&).AutoFilter& & '选择第2行自动筛选(标题行在第2行)
For i = 1 To d.Count& & '循环字典项
& & Selection.AutoFilter Field:=dyn, Criteria1:=Application.Index(d.keys, 0, i)& & 'Field:=dyn,这里改为了变量，即要打印的列。以字典各项自动筛选
& & ActiveWindow.SelectedSheets.PrintOut& &'打印当前表
Next
Selection.AutoFilter& & '取消自动筛选，全部显示
End Sub
22:34 上传
点击文件名下载附件
11.27 KB, 下载次数: 114
阅读权限20
在线时间 小时
flysum2008 发表于
我还是不太明白，“dyn = [p2].Value&&'先设置要打印的列号，比如F列的列号就是6,”是中的[P2]修改列打印吗？
F列的列号就是6，不是[P6]，我不太明白。能帮我解答吗？谢谢。
阅读权限20
在线时间 小时
dragonthree 发表于
有时是F列，有时是G列，有时是J列
这是什么意思
我有很多的工作表都是按照这样操作，但通常表的格式是不一样的，有些是按照G列筛选相同的打印出来，有些表是H列筛选相同的打印出来，比喻：H列，列中有“张三”，“李四”，“钱五”等等，如果按自动筛选就要先筛选出张三所有的数据后按打印，然后再按李四所有的数据后打印，如些类推进行操作，数据有好几十个，累也累死了。
阅读权限30
在线时间 小时
& & & & & & & &
我还是不太明白，“dyn = [p2].Value&&'先设置要打印的列号，比如F列的列号就是6,”是中的[P2]修改列打印吗？
F列的列号就是6，不是[P6]，我不太明白。能帮我解答吗？谢谢。代码无需任何改变，已经写好了。你要做的就是在Sheet1工作表中的P2处修改列号，比如你要按F列筛选后批量打印筛选后的结果，就在P2处输入6，如果要按G列筛选后打印，就在P2处输入7，J列为10。ABCDEF列,F列在第6个数，所以列号为6，就这个意思
阅读权限20
在线时间 小时
本帖最后由 王处一 于
21:14 编辑
flysum2008 发表于
代码无需任何改变，已经写好了。你要做的就是在Sheet1工作表中的P2处修改列号，比如你要按F列筛选后批量打印 ...
你好，非常感谢你对我热心的帮助。原来是我粗心了，[P2]是单元格P2的数值，EXCEL表太大了我看不到。你的代码我修改了一部份（请谅哦，我是自学的），能够操作容易一点。我只会用 inputbox ，不会修改为“用户窗体控件”操作，也不知道能否正确运行打印（家里没有打印机测试）能帮忙看一下吗，我看到输出的一些打文件容量有些是相同的。另外我能否加你的QQ，好向你请教一些问题。谢谢。
21:09 上传
点击文件名下载附件
9.24 KB, 下载次数: 77
玩命加载中，请稍候
玩命加载中，请稍候
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
本站特聘法律顾问：徐怀玉律师 李志群律师
Powered byMOS认证题库(excel)_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
MOS认证题库(excel)
M​O​S​认​证​题​库
阅读已结束，如果下载本文需要使用
想免费下载本文？
你可能喜欢查看: 3240|回复: 3
如何解决显示报表筛选页后每个工作表还是可以显示所有数据的问题
阅读权限30
在线时间 小时
& & & & & & & &
(21.37 KB, 下载次数: 53)
09:17 上传
点击文件名下载附件
阅读权限50
在线时间 小时
莫名其妙而又自相矛盾的要求。既是筛选，只找出符合条件的数据显示，怎么可能又显示不符合条件的数据？
阅读权限30
在线时间 小时
可能表达不清楚,比如你找个已分离出来的办事处,如广东,点击上面的报表筛选页—办事处右边的广东下拉按钮，所有办事处还是可以以全部显示出来，因为想把明细数据生成透视表后，再一个个的发给各办事处查看，当然每个办事处都只能看到自己办事处的数据，不能看到其他办事处的数据，如果通过报表筛选页操作的话，虽然表面上只能看到某个办事处的数据，可是一旦把上面办事处一点，又是可以看到所有办事处的数据了
[ 本帖最后由 lilianban 于
09:42 编辑 ]
阅读权限50
在线时间 小时
回复 3楼 lilianban 的帖子
如果办事处不多的话，可以考虑按页字段筛选办事处，数据透视表复制选择性粘贴到另一个位置。一个办事处一张表就不会看到其他办事处内容了；如果很多的话，可以考虑vba解决。但是对于熟谙透视表原理的人还是容易破解。最好的办法也是最笨的办法就是前面那种。
玩命加载中，请稍候
玩命加载中，请稍候
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
本站特聘法律顾问：徐怀玉律师 李志群律师
Powered by请问数据透视表中，如何将数据透视出来的汇总数据中某一选项下的内容快速分到各个不同的sheet呢？_百度知道
请问数据透视表中，如何将数据透视出来的汇总数据中某一选项下的内容快速分到各个不同的sheet呢？
请问数据透视表中，如何将数据透视出来的汇总数据中某一选项下的内容快速分到各个不同的sheet呢？
我有更好的答案
那需要你把这个字段拖动到“页字段区域，然后点击&选项”——数据透视表——选项（点下拉箭头）——显示报表筛选页，选中你要分页的页字段，然后确定。不过这样做这个字段就不能在下面的行、列字段区域里面显示了，如果也要显示的话，可以在数据源中插入列，把这个字段复制以下，然后在透视表中一个字段拖动到页字段一个拖动到其他区域就可以了
其他类似问题
4人觉得有用
为您推荐：
数据透视表的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}