ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
12
返回列表 发新帖
楼主: zbs112

[修改代码]过次页、承前页的插入问题

[复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2007-2-10 15:14 | 显示全部楼层

规则如下:

1)过次页一定是在当页的最后一行

2)承前页一定是跟着下一页的第一行

因为已经动态插入了本月合计和本年累计,所以再插入过次页和承前页,我犯晕了,呵呵,谢谢版主再次进来修改完善。

TA的精华主题

TA的得分主题

 楼主| 发表于 2007-2-10 17:04 | 显示全部楼层

终于搞定了:

   UserRow = (Maxrow - 5) Mod 45   '已经显示的记录数
   NoNum = UserRow - Fix(UserRow / 44) * 44
   If NoNum = 0 Then    '满页时插入过次页、承前页
      Range("F" & Maxrow + 1) = "    过  次  页"
      Range("F" & Maxrow + 2) = "    承  前  页"
      Maxrow = Maxrow + 3   '复制数据的行位置
   End If
   Range("F" & Maxrow + 1) = "    本  月  合  计" '本月合计处理
  
   Maxrow = Range("F65536").End(xlUp).Row
   UserRow = (Maxrow - 5) Mod 45   '已经显示的记录数
   NoNum = UserRow - Fix(UserRow / 44) * 44
   If NoNum = 0 Then    '满页时插入过次页、承前页
      Range("F" & Maxrow + 1) = "    过  次  页"
      Range("F" & Maxrow + 2) = "    承  前  页"
      Maxrow = Maxrow + 2   '复制数据的行位置
   End If
   Range("F" & Maxrow + 1) = "    本  年  累  计" '本年累计处理

TA的精华主题

TA的得分主题

发表于 2007-2-10 19:57 | 显示全部楼层

如此判断速度比较慢.

可以使用rst的GETROWS方法赋值到数组,或者range.copyfromrecordset rst赋值到表格,再进一步判断.

TA的精华主题

TA的得分主题

发表于 2007-2-10 22:16 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
狼版说的极是

TA的精华主题

TA的得分主题

发表于 2007-11-16 07:03 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

请帮忙写插入过次页和承前页的代码。

看了ZBS112兄的插入过次页和承前页的代码我不是很明白,能帮我写一段代码实现这功能吗?这问题已困惑我很久了,谢谢! p2szQHei.rar (4.09 KB, 下载次数: 163)

TA的精华主题

TA的得分主题

发表于 2015-10-18 15:57 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
zbs112 发表于 2007-2-10 17:04
终于搞定了:   UserRow = (Maxrow - 5) Mod 45   '已经显示的记录数   NoN ...

“过次页”顾名思义就是将本页账簿的内容结转到下页,“承前页”则是承继前面账簿内容的意思。在会计记录中,一般不可能在同一账页里完成所有的经济业务,因此需要分页记录。“过次页”和“承前页”二者相辅相成,在账簿登记中前呼后应,起到了承前启后的作用。“过次页”和“承前页”使分页的会计记录得以衔接,使账簿所载业务内容有了一致性和连贯性,从而保证了账簿的清晰和条理。否则,会计记录就会显得杂乱无章,次序混乱。

  “过次页”和“承前页”还有平衡账簿登记工作量,加快会计信息处理的功能。在一个会计期间内,经济业务的发生是大量的和经常的,账簿的登记也随之变成经常和大量的事了。然而,根据会计惯例和会计原则的规定,结账却是在一定时日(月末、季末、年末)进行的。如果等到会计期末再从会计期初发生的业务一笔一笔加总当期发生的全部经济业务,显然是一项费时费力的工作,同时还影响诸如会计报表等会计信息的处理速度。通过“过次页”和“承前页”则可以使汇总、加计工作在日常工作中即可以加以消化,均衡会计核算工作量,加快了会计信息处理速度。

  在实际工作中,“过次页”是将本月初至本页倒数第二行的借贷方发生额合计数与目前的余额写在本页末行,并在摘要栏注明“过次页”;而“承前页”是在次页的第一行抄写上页“过次页”行的借贷方发生额和余额,并在摘要栏注明“承前页”字样。

  在实际操作中,需要注意的几个问题是:

  (1)“过次页”的借贷方合计数与本页中间的“本月合计”、“本季合计”、“本年累计”之间没有衔接关系,故“过次页”的借贷方合计数不应包括本页中间的“本月合计”、“本季合计”、“本年累计”。

  (2)如果“过次页”行正好是“本月合计”、“本季合计”、“本年累计”的话,此时合计数或累计数则不必转入次页。本页末行和次页第一行自然就不必写“过次页”和“承前页”。否则,就有点画蛇添足的味道了。

  (3)倘若“过次页”的上一行是“本月合计”、“本季合计”、“本年累计”,最后一行数字则无须合计,因为合计数就是他本身。此时,最后一行可不写“过次页”字样,可直接在下页第一行写上上页最后一行数字,在摘要栏填写上“承前页”字样。

  (4)现金和银行账虽然是日清月结,但当日的会计记录超过一页时,同样要“过次页”和“承前页”。

  (5)对于像材料等不需要本月发生额合计数和全年发生额合计数的多栏式明细账,每页末的余额也要“过次页”和“承前页”。

  (6)费用明细账虽然每月一结,倘使当月记录超过一页的也要“过次页”和“承前页”。

TA的精华主题

TA的得分主题

发表于 2024-8-4 07:38 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
zbs112 发表于 2007-2-10 08:56
谢谢版主!以上的插入过次页和承前页的条件只是在月份中作判断,并没有考虑插过后的本月合计和本年累计那2 ...

下载打不开,楼主愿重新上传分享吗
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-18 08:15 , Processed in 0.036816 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表