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

yigepure · 发表于 2005-10-16 00:26

有这种写法吗?

ME.HPageBreaks(1).Location.Row

ME.VPageBreaks(1).Location.Column

运行总会出错.没办法了.有个人最难待候了.[em06]

yigepure · 发表于 2005-10-16 00:28

老兄,能解释一下你的这种算法吗.

taller · 发表于 2005-10-16 00:35

关于你要的第一的问题，也是可以解决的，只是觉得必要性不大，你可以试试

ME.HPageBreaks(1).Location.Row

ME.VPageBreaks(1).Location.Column

代码有什么问题吗？如果这个不能运行，你怎么会发现代码没有考虑打印顺序呢

ElseIf totalPg = 1 Then If VBA.IsEmpty(Target) Then Application.EnableEvents = False Target.Font.Color = vbWhite Target = "$$$" If totalPg < ExecuteExcel4Macro("GET.DOCUMENT(50)") Then MsgBox "你选择的单元格不在打印区" Else MsgBox "第1页,共1页" End If Target.Clear Application.EnableEvents = True Else MsgBox "第1页,共1页" End If Else hNum = Me.HPageBreaks.Count

[此贴子已经被作者于2005-10-16 0:38:37编辑过]

yigepure · 发表于 2005-10-16 00:37

另,发现先择超出的打印区域的行时,提示会出错误

如:数据只有A1:B20,选择A65536都还有提示第XX行,共XX行.本应提示为不在打印区域内才对

yigepure · 发表于 2005-10-16 00:44

好,不错了.非常好了.只差最后一个问题了.呵呵[em02]

yigepure · 发表于 2005-10-16 00:48

打印顺序,我是通过页面设置里验证的.

关于算法.我还是不明白.[em06]

taller · 发表于 2005-10-16 00:53

要实现24楼的要求（最好在一开始提出呀），只好把判断逻辑改了，试试这个

我在23楼的问题是，如果21楼的代码不能运行，你怎么能得到结果呢！？

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim totalPg As Integer, iPg As Integer, i As Integer, tPg As Integer Dim hBK As Integer, vBK As Integer, hNum As Integer, vNum As Integer totalPg = ExecuteExcel4Macro("GET.DOCUMENT(50)") If totalPg = 0 Then MsgBox "工作表没有数据" Else If VBA.IsEmpty(Target) Then Application.EnableEvents = False Application.ScreenUpdating = False Target = "$$$" tPg = ExecuteExcel4Macro("GET.DOCUMENT(50)") Target.Clear Application.EnableEvents = True Application.ScreenUpdating = True If totalPg < tPg Then MsgBox "你选择的单元格不在打印区" Exit Sub End If End If If totalPg = 1 Then MsgBox "第1页,共1页" Else hNum = Me.HPageBreaks.Count For i = 1 To hNum If Me.HPageBreaks(i).Location.Row > Target.Row Then Exit For Next hBK = i vNum = Me.VPageBreaks.Count For i = 1 To vNum If Me.VPageBreaks(i).Location.Column > Target.Column Then Exit For Next vBK = i If Me.PageSetup.Order = xlDownThenOver Then iPg = (hNum + 1) * (vBK - 1) + hBK Else iPg = (vNum + 1) * (hBK - 1) + vBK End If If iPg > totalPg Then MsgBox "你选择的单元格不在数据区" Else MsgBox "第" & iPg & "页,共" & totalPg & "页" End If End If End If End Sub

yigepure · 发表于 2005-10-16 17:30

老兄,今天测试发现上面的代码还是有问题.

taller · 发表于 2005-10-16 17:38

老兄有问题你就说嘛，你不说我怎么知道呢？

yigepure · 发表于 2005-10-16 17:42

老兄,你看一下.我在Sheet1中用批注全部写出来了.

m2F04JJV.rar (7.04 KB, 下载次数: 38)

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