会计凭证汇总模板

xgrc_xgrc · 发表于 2004-1-3 18:01

Excel的打印功能就够强大了，另编代码等于画蛇添足。

xgrc_xgrc · 发表于 2004-1-4 18:15

以下是引用瑾果在2004-1-4 14:08:00的发言：
你们写下的那些地址，转来转去，头都转晕了。结果还是没找到。

下载没密码的文件，直接点20楼的连接

xgrc_xgrc · 发表于 2004-1-5 18:10

以下是引用瑾果在2004-1-5 15:14:00的发言：
我在那资产负债表里，怎么看不到公式呢？

看不到的原因是对单元格保护时设置了隐藏，撤销该表保护，就能看到公式了

EdgeOfCity · 发表于 2004-1-5 18:55

谢谢楼主提供的实用程序。
就代码的简化提个建议：
1.少用select,如：
range(a).select
selection.b
直接用range(a).b
这样你的程序运行速度会快得多。
2.有规律的公式填充。在工作表中有拖拉或双击填充柄的快捷方法。
VBA中有autofill,filldown,fillright等。
With Worksheets("sheet1")
.Range("b1") = "=a1"
'.Range("b1").AutoFill Destination:=Range("b1:b10")
.Range("b1:b10").FillDown
End With
不用循环for i=1 to 10
关于代码的优化，请参考：
http://www.officefans.net/cdb/viewthread.php?tid=14630
不当之处，请指正。

xgrc_xgrc · 发表于 2004-1-5 21:02

谢谢

xgrc_xgrc · 发表于 2004-1-7 13:12

EdgeOfCity,请指条明路，哪儿能找到好的VBA学习资料？

超越之旅 · 发表于 2004-1-9 07:08

我的电脑是PIII450，生成凭证很慢，有没有办法？

[此贴子已经被作者于2004-1-9 7:07:54编辑过]

xgrc_xgrc · 发表于 2004-1-9 10:34

这正是EdgeOfCity兄所指正的，最简单的解决方法是先关闭屏幕更新，在结束前再打开。即在
Sheets("汇总").Select的下一行加上
Application.ScreenUpdating = False
在 END SUB()的上一行加上
Application.ScreenUpdating = True

xgrc_xgrc · 发表于 2004-1-9 18:08

把鼠标放在资产负债表日期后面的标注能看见密码： lyg123
设置密码保护主要是防止意外伤到公式而影响数据的引用，建议你看完公式后再加上保护

ZQMFOX · 发表于 2004-1-11 21:23

这正是我想要做的。

请发一份源码给我，感激不尽！

charming.zhang@163.com

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

[分享] 会计凭证汇总模板