页码显示的代码有误.taller版主已经帮忙解决了.

yigepure · 发表于 2005-10-15 21:53

首先感谢龙兄的帮忙.呵呵.今天我对代码再次进行修改.但是发现还是有一些错误.

请大家再帮忙优化一下.谢谢了:)

晕,忘了删除工作表里的代码了.请看模块1里的代码.

oHRB4k48.rar (10.27 KB, 下载次数: 55)

最终代码在32楼（2006.9更新代码）

[此贴子已经被taller于2006-10-21 6:51:16编辑过]

qee用 · 发表于 2005-10-15 22:02

我测试了，没看出哪有错？版主能否告知。

yigepure · 发表于 2005-10-15 22:10

感谢朋友的帮助.

1\删除130行及以下的行时,再运行宏.会出错误提示.下界越标

2\总页数有时会多出1页.

3\ If Application.Intersect(rng, Sht.UsedRange) Is Nothing Then 'And (RngRow > Sht.HPageBreaks(1).Location.Row Or Rng > Sht.VPageBreaks(1).Location.Column)这句出错 MsgBox "当前单元格不在数据区域内，无页码" Exit Sub End If

此代码中转为注释的地方.我的意思是.如何判断活动单元格不在系统默认的打印区中

如果一页只有2行.而2行以后的其它在第一页里的单元格.点击时会出现"无页码"的提示,这个是错误的.但是我用这句 'And (RngRow > Sht.HPageBreaks(1).Location.Row Or Rng > Sht.VPageBreaks(1).Location.Column)这句出错

不知大家如何解决呢?

yigepure · 发表于 2005-10-15 22:20

经检查,问题1出在这句里

For Each HP In Sht.HPageBreaks '将它转为注释语句,发现代码可以正常运行.

另使用了ON ERROR GOTO 0

为什么没有起到作用呢?如何解决

taller · 发表于 2005-10-15 22:25

1，删除后在我这里没有任何错误

2，页数正确

3，不明白你的下面的话的意思？

如何判断活动单元格不在系统默认的打印区中

如果一页只有2行.而2行以后的其它在第一页里的单元格.

yigepure · 发表于 2005-10-15 22:26

ShtHPage = Sht.HPageBreaks.Count + 1 '存储活动表总的行分页符数 ShtVPage = Sht.VPageBreaks.Count + 1 '存储活动表总的列分页符数

在删除了130行以后.总页数就更离谱了.

行分页符仍为4.

这里应该如何解决呢?此语句为什么会出错呢?

yigepure · 发表于 2005-10-15 22:37

以下是引用taller在2005-10-15 22:25:43的发言：
1，删除后在我这里没有任何错误

我在2000,2003里都试过了,会出错.请看抓图

yigepure · 发表于 2005-10-15 22:54

第二个问题怪了.200的不会出错.(但是在删除行以后总页数会出错,这时只运Pages = ShtHPage * ShtVPage 这段),这个只要看一下代码计算的与分页预览的显示,就会发现

yigepure · 发表于 2005-10-15 22:56

另使用了ON ERROR GOTO 0

为什么没有起到作用呢?如何解决?

真是问题多多呀.[em06]

taller · 发表于 2005-10-15 23:13

ON ERROR GOTO 0是恢复系统的错误处理功能，忽略错误是ON ERROR RESUME NEXT，对于第一问题请看我的截屏

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