求助：EXCEL工资表用VBA代码自动生成“本页小计”，“总计”

ljxlwq_0803

yaozong 发表于 2018-10-4 11:31
要审核，直接上附件了。

老师您好：又要麻烦您了，如果工资表人数达不到一页时，“建立分页小计”时提示图1，要修改代码图2，请问如何改？谢谢！

yaozong

ljxlwq_0803 发表于 2018-10-9 09:31
老师您好：又要麻烦您了，如果工资表人数达不到一页时，“建立分页小计”时提示图1，要修改 ...

加插除错语句

..........
..........
h = Rows(a + 1).RowHeight
  ActiveSheet.Cells.RowHeight = h ''统一表格行高
  On Error GoTo 100
  ps = ActiveWindow.SelectedSheets.HPageBreaks(1).Location.Row - 1
  k1 = ps - a - f ''每页数据行（行数）
  ActiveSheet.Cells.RowHeight = Application.Round(((k1 + a + 1) * h) / (k + a + 1), 2)
100:
  Application.ScreenUpdating = True
End Sub

ljxlwq_0803

yaozong 发表于 2018-10-9 11:14
加插除错语句

..........

老师您好：我插入了代码，提示“未定义”，麻烦能不能帮我改下代码？谢谢！！

yaozong

ljxlwq_0803 发表于 2018-10-9 12:56
老师您好：我插入了代码，提示“未定义”，麻烦能不能帮我改下代码？谢谢！！

  参考附件。。。。。。。。。。。。。。。。。                                          

ljxlwq_0803

yaozong 发表于 2018-10-9 17:38
参考附件。。。。。。。。。。。。。。。。。

谢谢老师无私帮助！！

ljxlwq_0803

yaozong 发表于 2018-10-9 17:38
参考附件。。。。。。。。。。。。。。。。。

老师您好：不好意思总是麻烦您，“建立分页小计”时，最后一页中的“本页小计”、“合计”（图2）字体大小和对齐方式（显示为9#字体，右对齐，默认0位小数），默认表中数据的大小和位置吗（图1）字体大小和对齐方式（显示为10#字体，居中对齐，默认2位小数）。谢谢！

yaozong

ljxlwq_0803 发表于 2018-10-9 22:35
老师您好：不好意思总是麻烦您，“建立分页小计”时，最后一页中的“本页小计”、“合计”（图2）[/backc ...

最后小计、合计行的格式，可参照最后数据行的格式。(加插如下红字二句）
...........
...........
r = UBound(arr): c = UBound(arr, 2)
  Range(Cells(r, 1), Cells(r, c)).AutoFill Range(Cells(r, 1), Cells(r + 2, c))
  Range(Cells(r + 1, 1), Cells(r + 2, c)).ClearContents
  a = 4 ''顶端标题行行数
........
...........

yaozong

参考附件。。。。。。。。。。。。。

ljxlwq_0803

yaozong 发表于 2018-10-10 07:32
最后小计、合计行的格式，可参照最后数据行的格式。(加插如下红字二句）
...........
...........

谢谢！太感谢您了！！把工作表重命名都调出“对话框”了，学习了！

ljxlwq_0803

老师您好：又要麻烦请教您了，新个税工资表，工作薄中增加了“1月工资表”、“2月工资表”、“3月工资表”……“12月工资表”，每月工资表中都想用“建立分页小计”、“删除分页小计”，这样的话，代码中的“*月工资表”要如何写？每月工资表能单独“操作”？万分感谢！