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

ljxlwq_0803

yaozong 发表于 2018-10-3 11:37
插入人工分页符

Sub 插入小计合计()

老师您好：我是新手中新手，代码不太明白，您能不能帮我把这代码“整理”下，谢谢！！

hzruziniu

ljxlwq_0803 发表于 2018-10-3 11:15
老师您好：VBA设置打印格式（横向打印）的代码能帮我一起写进去吗？我是新手，不太懂。万分感谢！！

1. Sub 打印()
   
2.     Dim c As Range, s$, r%, n%, x%, y%, a%, b%
   
3.     r = Range("a65536").End(3).Row
   
4.     s = "本页小计"
   
5.     On Error Resume Next
   
6.     n = Application.Match(s, ActiveSheet.Range("A1:A" & r), 0)
   
7.     If Err.Number = 0 Then
   
8.         x = n - 4                   '每页正表行数（不包括表头表尾）
   
9.         y = WorksheetFunction.RoundUp((r - 6) / x, 0)   '共有几页
   
10.         For i = 1 To y                                 '循环
    
11.             If y = 1 Then                              '如果只有一页
    
12.                 With ActiveSheet.PageSetup
    
13.                     .Zoom = False        '不设置页面缩放固定比例择
    
14.                     .FitToPagesWide = 1  '页面缩放，调整为一页高
    
15.                     .FitToPagesTall = 1  '页面缩放，调整为一页宽
    
16.                     .BlackAndWhite = True       '单色打印
    
17.                     .Orientation = xlLandscape    '横向打印
    
18.                     Range("a1:U" & r).PrintPreview  '打印预览
    
19.                 End With
    
20.             Else
    
21.                 If i = 1 Then
    
22.                     a = x + 5
    
23.                     Rows(a & ":" & r - 1).EntireRow.Hidden = True
    
24.                 End If
    
25.                 If i > 1 And i < y Then
    
26.                     Rows(5 & ":" & (i - 1) * x + 4).EntireRow.Hidden = True
    
27.                     Rows(i * x + 5 & ":" & r - 1).EntireRow.Hidden = True
    
28.                 End If
    
29.                 If i = y Then
    
30.                     b = (i - 1) * x + 4
    
31.                     Rows("5:" & b).EntireRow.Hidden = True
    
32.                 End If
    
33.             End If
    
34.             With ActiveSheet.PageSetup
    
35.                 .Zoom = False        '不设置页面缩放固定比例择
    
36.                 .FitToPagesWide = 1  '页面缩放，调整为一页高
    
37.                 .FitToPagesTall = 1  '页面缩放，调整为一页宽
    
38.                 .BlackAndWhite = True        '单色打印
    
39.                 .Orientation = xlLandscape    '横向打印
    
40.                 Range("a1:U" & r).PrintPreview  '打印预览
    
41.             End With
    
42.             Rows(1 & ":" & r).EntireRow.Hidden = False
    
43.         Next
    
44.     Else
    
45.         MsgBox "没有查到"
    
46.     End If
    
47. End Sub

复制代码

hzruziniu

自动分页小计(带总计)2.rar (44.22 KB, 下载次数: 68)

2018-10-3 13:56 上传

点击文件名下载附件

打印采取隐藏不打印行的方法，
自动调整宽度高度为一页，
单色打印

ljxlwq_0803

hzruziniu 发表于 2018-10-3 13:58
打印采取隐藏不打印行的方法，
自动调整宽度高度为一页，
单色打印

老师您好：我这边测试了，小计列从G到T列（F列<出勤列>不要小计,看了老师的代码,Range(Cells(b + 1, 1), Cells(b + 1, 6)).MergeCells = True              '合并单元格
        Range(Cells(b + 1, 1), Cells(b + 1, 6)).HorizontalAlignment = xlCenter   '居中对齐），“本页小计”单元格也是合并在一起了，真的太感谢您了。比如我选打25行（不包括表头及表尾），页面显示很完美，打印预览时，显示有有35行左右（1-25行，下一行为“本页小计”，26行-35行也显示在第一页中），麻烦老师再帮我看下？谢谢！！

ljxlwq_0803

hzruziniu 发表于 2018-10-3 13:58
打印采取隐藏不打印行的方法，
自动调整宽度高度为一页，
单色打印

老师您好：其他很完美了，打印时，比如我选25行，预览效果（如图3），最后一页中，"本页小计"和"总计"下面还有一行（如图4），请问这个该如何？谢谢！！

hzruziniu

ljxlwq_0803 发表于 2018-10-3 15:28
老师您好：其他很完美了，打印时，比如我选25行，预览效果（如图3），最后一页中，"本页小计"和"总计"下 ...

不存在这种情况么？我这里都正常。

hzruziniu

ljxlwq_0803 发表于 2018-10-3 15:28
老师您好：其他很完美了，打印时，比如我选25行，预览效果（如图3），最后一页中，"本页小计"和"总计"下 ...

不存在这种情况么？我这里都正常。是不是你把代码复制到自已的表上。有可能我的表与你的表在行次上结构不同。

hzruziniu

自动分页小计(带总计)2.rar (44.19 KB, 下载次数: 44)

2018-10-3 15:41 上传

点击文件名下载附件

重发给你，Excel 是 2003

ljxlwq_0803

hzruziniu 发表于 2018-10-3 15:42
重发给你，Excel 是 2003

老师您好：我用的是EXCEL2010

hzruziniu

ljxlwq_0803 发表于 2018-10-3 15:54
老师您好：我用的是EXCEL2010

2007自动分页小计(带总计)2.rar (50.97 KB, 下载次数: 70)

2018-10-3 16:01 上传

点击文件名下载附件

这个是2007，我没有2010系统