. : : ClassiClub ForuM : : .

会员中心 论坛帮助 日历事件 标记论坛已读
返回   精品技术论坛 » 技术论坛 » 『软件使用』

『软件使用』: 电脑软件推荐, 电脑软件使用, 经验分享



发表新主题 回复
 
主题工具
wgf4242
 
wgf4242 的头像
热心会员
 
资 料:
注册日期: Aug 2001
帖子: 6,479 声望值: 6
精华: 0,解答: 32
#1 旧 2018-12-11, 07:18:29 默认 已解答: 【求助】【Excel】求助自定义页码:格式2位年+2位月+3位页码顺序号
wgf4242 当前离线  

1. 需要固定位3位顺序号。
2. 需要取到年月和页码。

目的是要在每页打印出格式2位年+2位月+页码顺序号 这个页码,如1812001.


【已解决】8楼思路可以哈。

此帖于 2018-12-17 17:56:13 被 wgf4242 编辑. .
回复时引用此帖
最佳解答为:xust
用vba做了个手动打印实现了楼主的需求,详见附件。
liudidi
 
liudidi 的头像
核心会员
 
资 料:
注册日期: Mar 2002
帖子: 3,215 声望值: 3
精华: 0,解答: 16
#2 旧 2018-12-11, 10:30:16 默认
liudidi 当前离线  

找了一段代码,参考下:
代码:
Sub pagenumber()
'updateby Extendoffice 20160506
    Dim xVPC As Integer
    Dim xHPC As Integer
    Dim xVPB As VPageBreak
    Dim xHPB As HPageBreak
    Dim xNumPage As Integer
    xHPC = 1
    xVPC = 1
    If ActiveSheet.PageSetup.Order = xlDownThenOver Then
        xHPC = ActiveSheet.HPageBreaks.Count + 1
    Else
        xVPC = ActiveSheet.VPageBreaks.Count + 1
    End If
    xNumPage = 1
    For Each xVPB In ActiveSheet.VPageBreaks
        If xVPB.Location.Column > ActiveCell.Column Then Exit For
        xNumPage = xNumPage + xHPC
    Next
    For Each xHPB In ActiveSheet.HPageBreaks
        If xHPB.Location.Row > ActiveCell.Row Then Exit For
        xNumPage = xNumPage + xVPC
    Next
    ActiveCell = "Page " & xNumPage & " of " & Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub
回复时引用此帖
wgf4242
 
wgf4242 的头像
热心会员
 
资 料:
注册日期: Aug 2001
帖子: 6,479 声望值: 6
精华: 0,解答: 32
#3 旧 2018-12-11, 10:44:24 默认
wgf4242 当前离线  

引用:
作者: liudidi 查看帖子
找了一段代码,参考下:[code]Sub pagenumber()'updateby Extendoffice 20160506 Dim xVPC As Integer Dim xHPC As Integer Dim xVPB As VPageBreak Dim xHPB As HPageBre......
保存文档前使用下标越界。我之前也搜过这个了。。好多vba都是下标越界。
保存文档后使用只能运行时取到当前页码。。在每页顶部打印页码却做不到。

如图这样的。。要求打出页码。2位年+2位月+页码顺序号。。。
上传的图像
文件类型: png 2018-12-11_104927.png (10.5 KB, 84 次查看)
上传的附件
文件类型: rar 工作簿1.rar (14.0 KB, 10 次查看)

此帖于 2018-12-11 11:32:09 被 wgf4242 编辑. .
回复时引用此帖
liudidi
 
liudidi 的头像
核心会员
 
资 料:
注册日期: Mar 2002
帖子: 3,215 声望值: 3
精华: 0,解答: 16
#4 旧 2018-12-17, 11:36:58 默认
liudidi 当前离线  

嗯,看了一下,这个要求好像不好办,正常的话,只能用宏代码生成,不太可能动态调整的。
为什么要这么做呢?execl本身打的页码不行么?要求不高的话,可以自定义页脚。非得这个格式,可以用Workbook_BeforePrint。
回复时引用此帖
michael80
 
michael80 的头像
高级会员
 
资 料:
注册日期: May 2011
帖子: 867 声望值: 4
精华: 0,解答: 25
#5 旧 2018-12-17, 12:02:39 默认
michael80 当前离线  

目前能做出如下图的效果,看看如何。
上传的图像
文件类型: png 1.png (142.5 KB, 52 次查看)
回复时引用此帖
wgf4242
 
wgf4242 的头像
热心会员
 
资 料:
注册日期: Aug 2001
帖子: 6,479 声望值: 6
精华: 0,解答: 32
#6 旧 2018-12-17, 13:18:38 默认
wgf4242 当前离线  

引用:
作者: michael80 查看帖子
目前能做出如下图的效果,看看如何。
这样做不了固定3位顺序号。
回复时引用此帖
xust
 
xust 的头像
热心会员
 
资 料:
注册日期: Feb 2001
帖子: 1,801 声望值: 7
精华: 0,解答: 22
#7 旧 2018-12-17, 13:29:02 默认
xust 当前离线  

楼主的需求我理解就是顶部的两行是标题行,打印时每页都要打印出来,并且3位数的页号要每页加1。

应该需要vba来实现。
回复时引用此帖
xust
 
xust 的头像
热心会员
 
资 料:
注册日期: Feb 2001
帖子: 1,801 声望值: 7
精华: 0,解答: 22
#8 旧 2018-12-17, 14:34:34 默认
xust 当前离线  

用vba做了个手动打印实现了楼主的需求,详见附件。
上传的附件
文件类型: rar PrintOut.rar (22.5 KB, 7 次查看)
回复时引用此帖
发表新主题 回复

主题工具

论坛规则  发帖规则
不可以发表主题
不可以回复帖子
不可以上传附件
不可以编辑自己的帖子
论坛启用 vB 代码
版面启用 表情符号
版面启用 [IMG] 代码
版面禁用 HTML 代码


所有时间均为北京时间, 现在的时间是 21:07:20.

本论坛带宽由迅通网络提供
SSL证书由TrustAsia提供

Copyright © 2000 - 2019 ClassiClub Forum All Rights Reserved.
粤ICP备09123456号