EXCEL中续页表头的自动处理(计算机编程技巧与维护2002.doc

电子表格打印时续页表头的自动处理计算机编程技巧与维护2002年第1期发表曹 骞 江苏省东台市环境监测站(江苏东台 224200)摘要：实现了电子表格打印时，续页表头的自动添加与删除。关键词：电子表格 打印 续页 表头Excel是我们非常熟悉的电子表格软件，使用Excel打印表格时，经常会遇到这样的情况：要打印一张在Excel中编辑的表格，但表格内容有多页，由打印预览可以看出，打印出的表格首页中包含表头和数据，而续页上没有表头，只有数据。看起来不舒服，查阅数据时也不方便。通常解决的方法是：打印前，手工把表头依次拷贝到续页的首行前面。但若某页需要插入或删除数行时，则要将其后各页的表头位置一一更改；要重新对表格中的数据进行统计处理时，也要先将表头一一删除后才能进行。当表格内容较多，有数十页乃至上百页时，这种手工操作的工作量将会很大。为解决这一问题，笔者利用Excel97中的VBA，设计了一个小程序，实现了Excel97续页表头的自动插入、自动删除，从而减轻了工作量、提高了工作效率。1 基本工作原理电子表格中，设i行前存在分页符。当分页符为自动分页符时rows(i).PageBreak = -4105；当分页符为人工插入的分页符时rows(i).PageBreak = -4135。“PageBreak”属性为分页符的位置。续页表头的自动插入：首先将表头拷贝至剪贴板中，从首行起依次查找分页符，发现分页符时，插入与表头相等的空行，将表头粘贴至空行中。续页表头的自动删除：首先输入表头的行数x，从尾行起向首行依次查找分页符，发现分页符时，将自分页符起的x行删除。需要说明的是：当为人工分页符时，插入表头前需要先删除分页符，粘贴后再在表头前插入人工分页符；同理删除表头后也要插入一个分页符，以保持原有格式不变。2 程序实现本程序在windows98、Excel97中编写并通过。运行程序表单的步骤：在Excel中新建宏，宏代码为：UserForm2.show，运行宏；还可在Excel工具栏中新建一个自定义按钮，将其连接到该宏，运行时只需单击此按钮即可。2.1表单界面(UserForm2)：关键控件如下表：UserForm2用户窗体RefEdit1表头区域获取框TextBox1标题行数输入框CommandButton1“开始添加”按钮CommandButton2“清除表头”按钮CommandButton3“退 出”按钮2.1程序：Private Sub CommandButton1_Click() 统计最后一行的行号,rowcount为最后一行行号Dim userrow(4) As Integer 为符号“$”所在的位置Dim s As Integerb = Me.RefEdit1.Texta = Len(Me.RefEdit1.Text)j = 0s = 0h = 0 判别是否存在“:”For i = 1 To a If Left(Right(b, i), 1) $ Then 不为“$”时，继续判别 j = j + 1 Else 为“$”时，在userrow(s)数组中记录下“$”的位置 j = j + 1 userrow(s) = j s = s + 1 End If If Left(Right(b, i), 1) = : Then h = 1 End IfNext iIf h = 1 Then 如果选定区域超过一个单元格 If s = 2 Then row_1 = Left(Right(b, userrow(1) - 1), userrow(1) - userrow(0) - 2) Else If s = 4 Then row_1 = Left(Right(b, userrow(2) - 1), userrow(2) - userrow(1) - 2) End If End If row_2 = Right(b, userrow(0) - 1) Me.TextBox1.Text = Str(row_2 - row_1 + 1) + 行 titlerow = row_2 - row_1 + 1 Else 仅选定一个单元格 Me.TextBox1.Text = Str(1) + 行 titlerow = 1End If 将所选区域复制到剪贴板 Range(Me.RefEdit1.Text).Select Selection.Copy 计算总行数 Range(A1).Select ActiveCell.SpecialCells(xlLastCell).Select rowcount = ActiveCell.Row 计算现有的总页数，并将总页数置于pagecount变量中 pagecount = 0 For i = 1 To rowcount If rows(i).PageBreak = -4105 Or rows(i).PageBreak = -4135 Then pagecount = pagecount + 1 End If Next i For i = 1 To rowcount + pagecount * titlerow If rows(i).PageBreak = -4105 Then 如果为系统自动分页符，则选定与标题行相同数目的行数，将复制的表头粘贴 rows(i & : & i + titlerow - 1).Select Selection.Insert Shift:=xlDown Application.CutCopyMode = False Selection.Copy Else 如果为人工插入的分页符，则首先删除分页符，再选定与标题行相同数目的行数 ，将复制的表头粘贴，插入一个分页符 If rows(i).PageBreak = -4135 Then ActiveSheet.HPageBreaks(1).Delete rows(i & : & i + titlerow - 1).Select Selection.Insert Shift:=xlDown rows(i & : & i + titlerow - 1).Select ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell Application.CutCopyMode = False Selection.Copy End If End If Next iMsgBox (生成完毕，请检查!)EndEnd SubPrivate Sub CommandButton2_Click() 统计行数,rowcount为最后一行行号 Range(A1).Select ActiveCell.SpecialCells(xlLastCell).Select rowcount = ActiveCell.Row For i = rowcount To 1 Step -1 If rows(i).PageBreak = -4105 Then 如果为分页符，删除表头 rows(i & : & i + UserForm2.TextBox1.Value - 1).Select Selection.Delete Else If rows(i).PageBreak = -4135 Then 如果为人工插入的分页符，删除表头后再添加一个分页符 rows(i & : & i + UserForm2.TextBox1.Value - 1).Select Selection.Delete ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell End If End If Next i MsgBox (生成完毕，请检查!) EndEnd SubPrivate Sub CommandButton