[已解决]关于需要修改一个汇总表的问题

zhycl · 发表于 2011-11-4 08:52

本帖最后由 zhycl 于 2011-11-4 09:26 编辑

首先感谢zjdh帮助我做了这个汇总表。现在我需要将此汇总表功能进行增加，现求助各位老师，请指教。
A列文件名相同的自动合并单元格，不在每一行都显示；B列日期跟随A列文件名一样合并单元格显示。
在 A列每个文件名下面增加一个打印按钮，点击按钮自动打印该文件的SHEET1 工作表。

最佳答案

月排行榜 / 总排行榜

zjdh

2011-11-7 07:43

汇总4.rar (64.9 KB, 下载次数: 91)

蓝桥玄霜 · 发表于 2011-11-4 14:04

Sub yy()
Dim Arr, i&, r%, Arr1(), ks, js, lt, tp
Application.DisplayAlerts = False
Sheet1.Activate
Arr = [a1].CurrentRegion
For i = 2 To UBound(Arr)
If Arr(i, 1) <> Arr(i - 1, 1) Then
r = r + 1
ReDim Preserve Arr1(1 To r)
Arr1(r) = i
End If
Next
For i = 1 To r
If i <> r Then
js = Arr1(i + 1) - 1
Else
js = UBound(Arr)
End If
ks = Arr1(i)
Cells(ks, 1).Resize(js - ks + 1).Merge
Cells(ks, 2).Resize(js - ks + 1).Merge
lt = Cells(js, 3).Left
tp = Cells(js, 3).Top
ActiveSheet.Buttons.Add(lt, tp, 84, 26.25).Select
Selection.OnAction = "dy" & i
Selection.Characters.Text = "打印"
Next
Application.DisplayAlerts = True
End Sub

复制代码

打印代码请自己加入。

zhycl · 发表于 2011-11-4 14:39

本帖最后由 zhycl 于 2011-11-4 14:40 编辑

回复蓝桥玄霜的帖子

老师，能帮忙做到我的附件中吗我不太会操作麻烦了我想把打印按钮放在文件名的正下方

zhycl · 发表于 2011-11-4 16:31

本帖最后由 zhycl 于 2011-11-4 16:36 编辑

回复蓝桥玄霜的帖子

加入后，运行提示错误 1004 而且回到页面打印按钮不像那个汇总按钮定在那个地方点击后也没打印
我的汇总表需要汇总 N个文件使用代码后，只把第一个文件名和日期合并单元格了其他的没有合并

zjdh · 发表于 2011-11-4 18:00

本帖最后由 zjdh 于 2011-11-4 18:03 编辑

合并单元格、添加按钮都不难，我早已完成了。
关键是“打印代码”：
需要判断是哪一个按钮被按下了，以便获得需要打印的文件名称，后续就容易啦。

zjdh · 发表于 2011-11-4 20:56

本帖最后由 zjdh 于 2011-11-7 07:43 编辑

问题解决啦：
见8楼

zhycl · 发表于 2011-11-6 21:40

回复 zjdh 的帖子

老师，如果申请表中只填一行数据的话用汇总表汇总就会出错，出现许多的空行。请指正，谢谢

zjdh · 发表于 2011-11-7 07:43

汇总4.rar (64.9 KB, 下载次数: 91)

zjdh · 发表于 2011-11-7 07:48

8楼附件考虑了空表不汇总。

zjdh · 发表于 2011-11-8 14:40

A列文件不是有超级链接了吗？点击就打开！！

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