分页合计(小计)的建立与撤消！

zhangzhang · 发表于 2004-3-1 21:27

to 青简请参考：70、71楼的帖子。

hjw602 · 发表于 2004-3-1 21:51

不错不错，真的不错！值得支持的贴子！

hjw602 · 发表于 2004-3-1 21:57

给点不是很重要的提示：如果用户在输入每页的行数时错误地输入非数字的值，就会造成程序中断并提示错误，请楼主稍微修改一下（这样的错误在写程序时可是个很值得注意的问题哦）！

zhangzhang · 发表于 2004-3-1 23:40

to hjw602 谢谢！已经改好。未上传，就算是个题目，有意者自己试一试吧。我自己更喜欢39楼的例题。

青简 · 发表于 2004-3-2 20:27

我参考了71楼的文档，改起来特不方便，其实我一点也不懂VB，不过也算了，增加了好多行代码与变量名。但我把改好的文档拷到 WIN98第二版下，用IOffice2000运行宏时，出错了。之前在WIN2003下的OfficeXP运行宏，正常。出错的代码： If ExecuteExcel4Macro("Get.Document(50)") > 1 Then (这一句）
i = Application.ExecuteExcel4Macro("INDEX(GET.DOCUMENT(64),1)") - 5
Else
MsgBox ("文件大于一页时，此功能才有效。")
Sheet1.CommDel.Enabled = False
Sheet1.CommPSum.Enabled = True
Exit Sub
End If 能帮我解决一下吗，有点急。谢谢。

simonli · 发表于 2004-3-2 20:46

值得学习

zhangzhang · 发表于 2004-3-2 23:09

to 青简在这段语句中，仅用这一句也可。， i = Application.ExecuteExcel4Macro("INDEX(GET.DOCUMENT(64),1)") - 5

青简 · 发表于 2004-3-3 07:37

试试。谢

青简 · 发表于 2004-3-4 15:06

好像还是不行耶。在98下（联想的新机子），执行这个宏时好像真的有点问题，不会是让我装WIN2K或XP吧。

lixiaowen · 发表于 2004-3-13 01:22

当某个单元格因为字符多，而自动换行后，分页小计栏在每页的位置不一样。能否固定页面设置的值，并使分页小计栏在每页底部相同位置

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

[求助] 分页合计(小计)的建立与撤消！