【2017年整理】3.VBA应用-制作工资条和课程表.pptx

计算机应用基础 （for Windows 7）;VBA应用—课堂概要;1. VBA基础知识;1. VBA基础知识;1. VBA基础知识;1. VBA基础知识;1. VBA基础知识;2. 宏的基本操作;2. 宏的基本操作;2. 宏的基本操作;2. 宏的基本操作;2. 宏的基本操作;2. 宏的基本操作;2. 宏的基本操作;2.4 编辑宏的方法有两种： 如果是初学者或是对VBA语言不够熟练可以选择先录制宏，然后再根据实际情况对录制后自动生成的宏代码进行编辑修改。 案例：Excel VBA制作工资条 另一种方法就是直接使用Visual Basic编辑器像编写程序一样编写宏代码，难度较大些。 案例：Word VBA制作课程表 ;3. VBA制作工资条;3.1 背景 现在许多单位都实现了工资代储，但每月的工资清单(工资条)还得要发给职工。如果用Excel处理工资表，打印后每页只有一个表头，剪裁成条后除了每页的第一名职工外，其余的就没有表头了，这样将使职工无法清楚工资条的数字对应什么具体名目。怎样才能给每个职工的工资条加上工资表表头呢？下面介绍用VBA宏代码快速制作工资条方法。 ;3.2 制作过程 ;3.2 制作过程 ;3.2 制作过程 ;注意：选中“信任对VBA工程对象模型的访问（V） ”;4. VBA制作课程表;4.1 背景 ;4.2 制作过程 ;4.2 制作过程 ;4.2 制作过程 详细代码： Sub 课程表() myweek = Array(星期一, 星期二, 星期三, 星期四, 星期五) Set oDoc = ActiveDocument Set otable = oDoc.Tables.Add(Range:=oDoc.Range(Start:=0, End:=0), NumRows:=5, NumColumns:=6) For j = 2 To 6 Step 1 For i = 2 To 5 Step 1 otable.Cell(i, j).Range.Text = InputBox(请输入 myweek(j - 2) 第 i - 1 节课程, 课程录入) Next i Next j ;4.2 制作过程 otable.Borders.InsideLineStyle = wdLineStyleSingle otable.Borders.OutsideLineStyle = wdLineStyleDouble otable.Cell(1, 1).Range.Text = 课程安排 otable.Cell(2, 1).Range.Text = 上午 otable.Cell(4, 1).Range.Text = 下午 For i = 2 To 6 Step 1 otable.Cell(1, i).Range.Text = myweek(i - 2) Next i ;4.2 制作过程 otable.Cell(2, 1).Select Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend Selection.Cells.Merge otable.Cell(4, 1).Select Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend Selection.Cells.Merge ActiveDocument.Tables(1).Select Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter End Sub ;5. 课堂小结;掌握VBA和宏的基础知识 掌握利用VBA制作工资条 掌握利用VBA制作课程表 ;谢 谢 观 看 ！