excel问题集合2(编辑修改稿)

excel问题集合2(编辑修改稿)内容摘要：

餐 插座 伙食 住宿 共扣 39。 天數 工資 津貼 時間 金額 時間 金額 夜班 其他 牌 費 費 金額 39。 10 月份 a001 朱 xx 26 107 3 39。 10 月份 B108 袁 xx 150 0 Sub CreatePayRoll() Dim TitleRow As Integer 39。 工资表标题行数 Dim TitleCol As Integer 39。 工资表标题栏数 Dim MyPageBreak As Integer 39。 每页打印多少个工资条 CurVer = 39。 当前版本号 TitleRow = 3 MyPageBreak = 7 response = MsgBox(本程序由 WongMokin 制作 , 当前版本号 amp。 CurVer, vbOKOnly + vbInformation + vbDefaultButton0, 工资表转换成工资条 , , 0) 39。 先关闭屏幕刷新 ,免的闪 = False 39。 实有工资条 = 取得当前区域的最后一行行号 标题行数 num = (A1). TitleRow num = InputBox(请在下面的输入框中键入要生成工资条的条数 . amp。 Chr(13) amp。 Chr(10) amp。 Chr(13) amp。 Chr(10) amp。 _ 只能输入数值 , 若输入其他内容将导致程序出错 , 后果自负 . amp。 Chr(13) amp。 Chr(10) amp。 Chr(13) amp。 Chr(10) amp。 _ 经检查共有工资记录 : amp。 num amp。 条 , 要生成的工资条的条数 , num) If Int(num) 1 Then response = MsgBox(要生成的工资条数目太少 ,不需要执行此程序 ., vbOKOnly + vbExclamation + vbDefaultButton0, 工资表转换成工资条 警告 , , 0) Exit Sub End If 39。 工资表的栏数，如 TitleCol = 10 TitleCol = 33 TitleCol = InputBox(请在下面的输入框中键入工资条表头的栏数 . amp。 Chr(13) amp。 Chr(10) amp。 Chr(13) amp。 Chr(10) amp。 _ 只能输入数值 , 若输入其他内容将导致程序出错 , 后果自负 . amp。 Chr(13) amp。 Chr(10) amp。 Chr(13) amp。 Chr(10) amp。 _ 默认值为 : amp。 TitleCol, 工资条表头的栏数 , TitleCol) TitleCol = Int(Abs(Val(TitleCol))) 39。 将输入的数 值取正整数 , 防止一般的输入性错误 . MyPageBreak = InputBox(每页打印多少条工资条 ? amp。 Chr(10) amp。 Chr(13) amp。 Chr(10) amp。 Chr(13) amp。 _ 预设每页打印 amp。 Int(MyPageBreak) amp。 条 amp。 Chr(10) amp。 Chr(13), 工资表转成工资条 , 7) MyPageBreak = Int(Abs(Val(MyPageBreak))) response = MsgBox(工资表转工资条的过程即将开始 amp。 Chr(13) amp。 Chr(10) amp。 Chr(13) amp。 Chr(10) amp。 _ 按 是 (Yes) 后将开始进行转换 , 未完成前您的电脑可能无法执行其他操作 . amp。 Chr(13) amp。 Chr(10) amp。 _ 请先将您的 Excel文档保存后再继续此操作 . amp。 Chr(13) amp。 Chr(10) amp。 Chr(13) amp。 Chr(10) amp。 _ 工资条标题格式为 amp。 TitleRow amp。 行 amp。 TitleCol amp。 栏 , 要转换的工资条数为 : amp。 num amp。 条 amp。 _ 每页打 印工资条数为 : amp。 MyPageBreak amp。 条 , vbYesNo + vbExclamation + vbDefaultButton2, 工资表转工资条 执行前确认 , , 0) If response = vbYes Then 39。 用户按下 是 39。 暂未使用 Else 39。 用户按下 否 Exit Sub 39。 退出此程序 End If 39。 复制当前工作表并更改名字 = 工资条打印 39。 总人数 5，如工资表中有 100 人则为 100 5即 num = 500 39。 即表头 3 行 , 工资单一行 , 空一行 num = Int(Abs(Val(num))) * (TitleRow + 2) 39。 判断有多少条记录 39。 x = (A1). 39。 or x = Range(a1).(xlCellTypeLastCell).Row 39。 开始插入标题 For y = 5 To (num 1) Step 5 39。 将标题复制到记录上面 Rows(1:3).Select Rows(y).Select Shift:=xlDown Shift:=xlDown If y Mod MyPageBreak * (TitleRow + 2) = 0 Then 39。 插入分页符 Range(A amp。 y).PageBreak = xlPageBreakManual End If Next 39。 选择整个表去掉表格线 Range(F1).Activate (xlDiagonalDown).LineStyle = xlNone (xlDiagonalU。