excel宏教程Word文档格式.docx

1、B 选中E到B列三、 设置活动单元格）.Activate注：设置活动单元格 与 选中单元格类似，不同之处就是后者在选中指定的单元格之前会将在此前已被选中的单元格取消掉。前者在设置之前不会取消已选中的单元格，如果此时操作的单元格不是被选中的单元格，这时他实现的功能与选一个单元格相同。四、 给活动的单元格赋值ActiveCell.FormulaR1C1 = A1）.SelectActiveCell.FormulaR1C1 = NameB1AgeA2:B3A2 BUGB212A3Archer37五、 得到指定单元格中的值）.Text六、 插入单元格Selection.Insert Shift:=Se

2、lection.EntireRow.InsertSelection.EntireColumn.Insert=xlToRight 在当前选中单元格的位置插入单元格并将当前选中的单元格向右移动=xlDown 在当前选中单元格的位置插入单元格并将当前选中的单元格向下移动Selection.EntireRow.Insert 在当前选中单元格的上面插入一行Selection.EntireColumn.Insert 在当前选中单元格的左侧插入一列七、 设置字体属性1. 设置字体名称和大小Selection.Font.Name = Selection.Font.Size = Selection.Font.N

3、ame = 隶书Selection.Font.Size = 152. 设置字体样式Selection.Font.Bold = 加粗Selection.Font.Italic = 斜体Selection.Font.Underline = 下划线XlUnderlineStyle（下划线样式）:xlUnderlineStyleDouble 双下划线xlUnderlineStyleDoubleAccounting 会计用双下划线（如果当前单元格中的数据是数字时则下划线的宽度是当前单元格的宽度）xlUnderlineStyleNone 没有下划线xlUnderlineStyleSingle 单下划线xl

4、UnderlineStyleSingleAccounting 会计用单下划线（如果当前单元格中的数据是数字时则下划线的宽度是当前单元格的宽度）3. 设置字体的颜色Selection.Font.ColorIndex = Selection.Font.Color = 4. 设置字体的特殊效果Selection.Font.Strikethrough = 删除线Selection.Font.Superscript = 上标Selection.Font.Subscript = 下标八、 清空选中单元格里的内容Selection.ClearContentsSelection.ClearContents 清

5、空“A1”、“A2”、“B7”五个不连续单元格中的所有内容九、 设置选中单元格的边线属性XlBordersIndex（边线）:xlEdgeLeft 单元格左边线xlEdgeTop 单元格上边线xlEdgeRight 单元格右边线xlEdgeBottom 单元格下边线xlDiagonalDown 单元格左上右下斜线xlDiagonalUpxlInsideVertical 多个单元格内垂直线xlInsideHorizontal 多个单元格内水平线 设置边线的类型Selection.Borders（）.LineStyle = XlLineStyle（边线类型）:xlLineStyleNone 无样式

6、xlContinuous 单线xlDash 破折号线（间隔线）xlDashDot 破折号 点线xlDashDotDot 破折号 点 点线xlDot 点线xlDouble 双横线xlSlantDashDot 斜点线 设置边线的宽度）.Weight = XlBorderWeight（宽度值）:xlHairline 极细xlThin 细xlMedium 中等xlThick 粗 设置边线的颜色Selection.Borders（xlEdgeLeft）.ColorIndex = Selection.Borders（xlEdgeLeft）.Color = 十、 删除选中的单元格Selection.Dele

7、te Selection.EntireRow.DeleteSelection.EntireColumn.DeleteSelection.Delete Shift:=xlToLeft 删除选中的单元格,并将已删除单元格所在位置右面的单元格向左移动=xlUp 删除选中的单元格,并将已删除单元格所在位置下面的单元格向上移动Selection.EntireRow.Delete 删除选中单元格所在的行Selection.EntireColumn.Delete 删除选中单元格所在的列十一、设置单元格背景色及图案 背景色Selection.Interior.ColorIndex = Selection.In

8、terior.Color = 图案样式Selection.Interior.Pattern = Constants（图案样式）:xlSolid实心 xlGray7575% 灰色xlGray5050% 灰色xlGray2525% 灰色xlGray1612.5% 灰色xlGray86.25% 灰色xlHorizontal水平 条纹xlVertical垂直 条纹xlDown逆对角线 条纹xlUp对角线 条纹xlChecker对角线 剖面线xlSemiGray75粗 对角线 剖面线xlLightHorizontal细 水平 条纹xlLightVertical细 垂直 条纹xlLightDown细 逆对

9、角线 条纹xlLightUp细 对角线 条纹xlGrid细 水平 剖面线xlCrissCross细 对角线 剖面线 图案颜色Selection.Interior.PatternColorIndex = Selection.Interior.PatternColor = 十二、返回工作表中的行数Sheet1.UsedRange.Rows.Count 返回从最小已输入内容的行号到最大已输入内容的行号之间的行数Sheet1.UsedRange.Rows（Sheet1.UsedRange.Rows.Count）.Row 最大已输入内容的行号十三、得到当前EXCEL的文件名ThisWorkbook.Pa

10、th 文件路径ThisWorkbook.Name 文件名ThisWorkbook.FullName 全路径十四、批注的操作 添加批注AddComment（Content）.AddComment （Writes the content in here!） 修改批注内容Comment.Text）.Comment.Text Text:= 显示/隐藏批注Comment.Visible = 删除批注ClearCommentsSelection.Range（）.ClearComments5. 选中批注Comment.Shape.Select TrueD8）.Comment.Shape.Select Tru

11、e6. 改变批注大小和位置Selection.ShapeRange.ScaleWidth , msoFalse, Selection.ShapeRange.ScaleHeight Selection.ShapeRange.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft 每次增加5%的宽度Selection.ShapeRange.ScaleHeight 0.6, msoFalse, msoScaleFromTopLeft 每次减少6%的宽度Selection.ShapeRange.Left = Selection.ShapeRange.Top = Se

12、lection.ShapeRange.Width = Selection.ShapeRange.Height = 十五、剪切、复制、粘贴Selection.Cut 剪切Selection.Copy 复制ActiveSheet.Paste 粘贴Selection.CutActiveSheet.PasteSelection.Copy十六、选择性粘贴Selection.PasteSpecial 十七、改变列宽Selection.ColumnWidth = 指定列宽Selection.ColumnWidth = 30 改变已选列的宽度EntireColumn.AutoFit 自动改变列宽C:C）.En

13、tireColumn.AutoFit 根据C列的内容自动改变列的宽度在Excel 97中，宏是一个难以理解的概念，但对于一个具体的而言，却是容易理解的，如果说将一块文字变为注释：黑体注释：，字号为注释：三号注释：就可以看作一个的话，那么就不难理解了，其实Excel 97中的许多操作都可以是一个。记录宏其实就是将工作的一系列操作结果录制下来，并命名存储（相当于VB中一个子程序）。仅记录操作结果，而不记录操作过程。例如，改变文字字体时，需要打开字体栏中的下拉列表，再选择一种字体，这时文字即变为所选择的字体，这是一个过程，结果是将所选择的文字改变为所选择的字体。而则只记录将所选择的文字改变为所选择的

14、字体这一结果。Excel 97中工作表是由行和列组成的二维表格，我们可以通过系统提供的语句activesheet.cells（I,j），将当前工作表中的第I行第j列所在的单元格中的数据取出（也可将它数据填入到指定的单元格中），然后反把它放入所定义的数组中，这时就可以对其进行各种操作，如求平均分、总分、分数段人数等等。本人就利用Excel 97中所提供的宏功能来做学生成绩的分析处理程序。本程序是Excel中的一个文件，其中包含以下几个宏：分班、总分、平均分、分数段、删除等。说明：本程序是以本校高三理科班学生成绩进行分析。有关程序中用到的几具宏的功能说明：分班：针对于难以确定班级的情况下，以班为单

15、位进行分班，本宏可以作为高一新生入学时进行分班的功能。总分：对原始的成绩自动求总分。平均分：对原始的成绩以班为单位进行各学科平均成绩的计算及全校各学科成绩的计算。分数段：给定一个最高分数及最低分数，然后统计出各班各个分数段的人数，各分数段人数进行累计。删除：用于删除不用的工作表。现将各个宏的代码列举如下：分班 Sub 分班（） Const studentno = 191 注释：学生人数 Const zdno = 12 字段数 Dim zd$（zdno） 注释：定义为12个字段的数组 Dim a（studentno, zdno）, stu（60, zdno） Dim nam$（studentno

16、）, bjname$（60） 定义一个存放全校学生名字及各班学生名字的数组 Dim bj（studentno） 定义存放班级的一个数组 注释: 理科班工作表 Sheets（高三理 For i = 2 To studentno bj（i） = ActiveSheet.Cells（i, 1） nam$（i） = ActiveSheet.Cells（i, 2） For j = 3 To zdno a（i, j） = ActiveSheet.Cells（i, j） Next j Next i注释: 存放字段到数组中? For i = 1 To zdno zd$（i） = ActiveSheet.Cel

17、ls（1, i） 先建立各个班级的工作表）.Copy After:=Sheets（高三理 （2）.Name = 33 For j = 1 To zdno ActiveSheet.Cells（i, j） = Space$（1） Range（a1 ActiveSheet.Cells（1, i） = zd$（i）34到36班工作表的建立 For i = 34 To 36 x$ = Mid$（Str（33）, 2） Sheets（x$）.Select Sheets（x$）.Copy After: Sheets（x$ & （2）.Name = Mid$（Str（i）, 2） 具体分班? For k =

18、33 To 36 bjrs = 0 x$ = Mid$（Str（k）, 2） no = k Mod 10 If bj（i） = no Then bjrs = bjrs + 1 bjname$（bjrs） = nam$（i） stu（bjrs, j） = a（i, j） End If For i = 2 To bjrs ActiveSheet.Cells（i, 1） = no ActiveSheet.Cells（i, 2） = bjname$（i） ActiveSheet.Cells（i, j） = stu（i, j） Next kEnd Sub总分 Sub 总分（）Const studentn

19、o = 191 Const xknum = 6 Const zdnum = 12 Sum = 0 For j = 1 To xknum Sum = Sum + ActiveSheet.Cells（i, j + 2） ActiveSheet.Cells（i, zdnum - 3） = Sum平均分 Sub 平均分（） Const studentno = 190 Const xknum = 6 Dim fs（studentno, xknum）, pjf3（4, 6）, bjrs（4）, qxpjf（6） Dim bj（studentno） Sheets（）.Select 注释：以下程序段用于求全校

20、平均分 For i = 1 To studentno bj（i） = ActiveSheet.Cells（i 1, 1） For j = 1 To xknum fs（i, j） = ActiveSheet.Cells（i 1, j 3） Next j Next i For i = 1 To xknum Sum = 0 For j = 1 To studentno Sum = Sum fs（j, i） qxpjf（i） = Sum / （j - 1） 以下程序段用于求各班平均分 For j = 1 To 4 For i = 1 To studentno If bj（i） = j 2 Then bjrs（j） = bjrs（j） 1 For k = 1 To xknum pjf3（j, k） = pjf3（j, k） fs（i, k） Next k End If Next i Next j For i = 1 To 6 pjf3（j, i） = pjf3（j, i） / bjrs（j） 写入各班各科平均分 平均分 For i = 1 To 4 For j = 1 To 6 ActiveSheet.Cells（i 2, j 1） = pjf3（i, j）