根据明细表生成收款收据并在原表标注

kaifever

朱荣兴 发表于 2016-9-18 18:04
点击B8单元格下拉菜单选择，然后点击查询按钮

Sub 打印()
Dim d As Object
Dim i As Integer
Dim arr As Variant
Dim brr()
Set d = CreateObject("Scripting.Dictionary")
arr = Sheet1.Range("a1").CurrentRegion
For i = 2 To UBound(arr)
d(arr(i, 9)) = (d(arr(i, 9)) + arr(i, 12))
Next i
For Each k In d.keys

提示d(arr(i, 9)) = (d(arr(i, 9)) + arr(i, 12))这行代码类型不匹配，朱老师一直帮我解决问题，真的很感激，但是本人才疏学浅，一直没能看懂代码，能不能麻烦朱老师直接做到excel中，我直接打开试试。顺便帮我把表格加上边框。

kaifever

朱荣兴 发表于 2016-9-18 18:05

真的感谢，我前几天忙别的事情，没能上网查看，朱老师耐心的帮我解决问题，实在感激不尽，我刚才下载测试了以下，表格边框有了，查询按钮也有了，但是最早的在表格下面添加收款人和交款人的那行没有出来，再就是，我只打印了一遍，第二次打印的时候就提示for语句没有next，我想按照结算分区打印，我原表有3个结算分区，请问打印的时候怎么区分呢。
又给朱老师添了这么多麻烦，实在不好意思。。

qixiangyouyuan

我也很需要这个，谢谢老师，我是小白，怎么用能教我吗？

solon

楼主您好，这个打印收据的问题解决了吗？我也有类似的需求，不知道能否分享下？谢谢！