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

zbs112

规则如下：

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

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

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

zbs112

终于搞定了：

   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) = "    本  年  累  计" '本年累计处理

northwolves

如此判断速度比较慢.

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

ifhwfu

狼版说的极是

CPAEXCEL

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

2007-11-16 07:02 上传

点击文件名下载附件
[修改代码]过次页、承前页的插入问题

amzxfgh9632

zbs112 发表于 2007-2-10 17:04
终于搞定了：   UserRow = (Maxrow - 5) Mod 45   '已经显示的记录数   NoN ...

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

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

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

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

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

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

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

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

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

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

聆听风雨1122

zbs112 发表于 2007-2-10 08:56
谢谢版主！以上的插入过次页和承前页的条件只是在月份中作判断，并没有考虑插过后的本月合计和本年累计那2 ...

下载打不开，楼主愿重新上传分享吗