excel宏教程.doc

《excel宏教程.doc》由会员分享，可在线阅读，更多相关《excel宏教程.doc（15页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、【精品文档】如有侵权，请联系网站删除，仅供学习与交流excel宏教程.精品文档.Excel宏教程一、 选中单个单元格Range(“).Select例：Range(C9).Select 选中“C9”单元格二、 选中多个单元格Range(“:,”).Select例：Range(“A1:B2”).Select 选中“A1”、“A2”、“B1”、“B2”四个连续的单元格Range(“12:12”).Select 选中第12行Range(“B:B”).Select 选中第B列Range(“A1:A2,B7,2:2”).Select 选中“A1”、“A2”、“B7”五个不连续的单元格和第二行Cells.S

2、elect 选中当前SHEET中的所有单元格Rows(:).Select 选中整行Columns(:).Select 选中整列例：Rows(“2:2”). Select 选中第2行Rows(“2:5”). Select 选中2到5行Columns(A:A).Select 选中A列Columns(E:B).Select 选中E到B列三、 设置活动单元格Range().Activate注：设置活动单元格 与 选中单元格类似，不同之处就是后者在选中指定的单元格之前会将在此前已被选中的单元格取消掉。前者在设置之前不会取消已选中的单元格，如果此时操作的单元格不是被选中的单元格，这时他实现的功能与选一个单

3、元格相同。四、 给活动的单元格赋值ActiveCell.FormulaR1C1 = 例：Range(A1).SelectActiveCell.FormulaR1C1 = NameRange(B1).SelectActiveCell.FormulaR1C1 = AgeRange(A2:B3).SelectRange(A2).ActivateActiveCell.FormulaR1C1 = BUGRange(B2).ActivateActiveCell.FormulaR1C1 = 12Range(A3).ActivateActiveCell.FormulaR1C1 = ArcherRange(B3

4、).ActivateActiveCell.FormulaR1C1 = 37五、 得到指定单元格中的值Range().Text六、 插入单元格Selection.Insert Shift:=Selection.EntireRow.InsertSelection.EntireColumn.Insert例：Selection.Insert Shift:=xlToRight 在当前选中单元格的位置插入单元格并将当前选中的单元格向右移动Selection.Insert Shift:=xlDown 在当前选中单元格的位置插入单元格并将当前选中的单元格向下移动Selection.EntireRow.Inse

5、rt 在当前选中单元格的上面插入一行Selection.EntireColumn.Insert 在当前选中单元格的左侧插入一列七、 设置字体属性1. 设置字体名称和大小Selection.Font.Name = Selection.Font.Size = 例：Selection.Font.Name = 隶书Selection.Font.Size = 152. 设置字体样式Selection.Font.Bold = 加粗Selection.Font.Italic = 斜体Selection.Font.Underline = 下划线XlUnderlineStyle(下划线样式):xlUnderli

6、neStyleDouble 双下划线xlUnderlineStyleDoubleAccounting 会计用双下划线（如果当前单元格中的数据是数字时则下划线的宽度是当前单元格的宽度）xlUnderlineStyleNone 没有下划线xlUnderlineStyleSingle 单下划线xlUnderlineStyleSingleAccounting 会计用单下划线（如果当前单元格中的数据是数字时则下划线的宽度是当前单元格的宽度）3. 设置字体的颜色Selection.Font.ColorIndex = Selection.Font.Color = 4. 设置字体的特殊效果Selection.

7、Font.Strikethrough = 删除线Selection.Font.Superscript = 上标Selection.Font.Subscript = 下标八、 清空选中单元格里的内容Selection.ClearContents例：Range(“A1:A2,B7,2:2”).Select 选中“A1”、“A2”、“B7”五个不连续的单元格和第二行Selection.ClearContents 清空“A1”、“A2”、“B7”五个不连续单元格中的所有内容九、 设置选中单元格的边线属性XlBordersIndex(边线):xlEdgeLeft 单元格左边线xlEdgeTop 单元格上

8、边线xlEdgeRight 单元格右边线xlEdgeBottom 单元格下边线xlDiagonalDown 单元格左上右下斜线xlDiagonalUp 单元格左上右下斜线xlInsideVertical 多个单元格内垂直线xlInsideHorizontal 多个单元格内水平线1. 设置边线的类型Selection.Borders().LineStyle = XlLineStyle(边线类型):xlLineStyleNone 无样式xlContinuous 单线xlDash 破折号线(间隔线)xlDashDot 破折号 点线xlDashDotDot 破折号 点 点线xlDot 点线xlDoub

9、le 双横线xlSlantDashDot 斜点线2. 设置边线的宽度Selection.Borders().Weight = XlBorderWeight(宽度值):xlHairline 极细xlThin 细xlMedium 中等xlThick 粗3. 设置边线的颜色Selection.Borders(xlEdgeLeft).ColorIndex = Selection.Borders(xlEdgeLeft).Color = 十、 删除选中的单元格Selection.Delete Selection.EntireRow.DeleteSelection.EntireColumn.Delete例：

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

11、nterior.Pattern = Constants(图案样式):xlSolid 实心 xlGray75 75% 灰色 xlGray50 50% 灰色 xlGray25 25% 灰色 xlGray16 12.5% 灰色 xlGray8 6.25% 灰色 xlHorizontal 水平 条纹 xlVertical 垂直 条纹 xlDown 逆对角线 条纹 xlUp 对角线 条纹 xlChecker 对角线 剖面线 xlSemiGray75 粗 对角线 剖面线 xlLightHorizontal 细 水平 条纹 xlLightVertical 细 垂直 条纹 xlLightDown 细 逆对角线

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

13、book.Path 文件路径ThisWorkbook.Name 文件名ThisWorkbook.FullName 全路径十四、批注的操作1. 添加批注AddComment(Content)例：Range(A1).AddComment (Writes the content in here!)2. 修改批注内容Comment.Text例：Range(B1).Comment.Text Text:= Writes the content in here!3. 显示/隐藏批注Comment.Visible = 4. 删除批注ClearComments例：Selection.Range(B1).Clea

14、rComments5. 选中批注Comment.Shape.Select True例：Range(D8).Comment.Shape.Select True6. 改变批注大小和位置Selection.ShapeRange.ScaleWidth , msoFalse, Selection.ShapeRange.ScaleHeight , msoFalse, 例：Selection.ShapeRange.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft 每次增加5%的宽度Selection.ShapeRange.ScaleHeight 0.6, msoFa

15、lse, msoScaleFromTopLeft 每次减少6%的宽度Selection.ShapeRange.Left = Selection.ShapeRange.Top = Selection.ShapeRange.Width = Selection.ShapeRange.Height = 十五、剪切、复制、粘贴Selection.Cut 剪切Selection.Copy 复制ActiveSheet.Paste 粘贴例：Range(A1).SelectSelection.CutRange(A2).SelectActiveSheet.PasteSelection.CopyRange(A3).

16、SelectActiveSheet.Paste十六、选择性粘贴Selection.PasteSpecial 十七、改变列宽Selection.ColumnWidth = 指定列宽例：Columns(A:A).SelectSelection.ColumnWidth = 30 改变已选列的宽度EntireColumn.AutoFit 自动改变列宽例：Columns(C:C).EntireColumn.AutoFit 根据C列的内容自动改变列的宽度在Excel 97中，宏是一个难以理解的概念，但对于一个具体的宏而言，却是容易理解的，如果说将一块文字变为注释：黑体注释：，字号为注释：三号注释：就可以看

17、作一个宏的话，那么宏就不难理解了，其实Excel 97中的许多操作都可以是一个宏。 记录宏其实就是将工作的一系列操作结果录制下来，并命名存储（相当于VB中一个子程序）。在Excel 97中，记录宏仅记录操作结果，而不记录操作过程。例如，改变文字字体时，需要打开字体栏中的下拉列表，再选择一种字体，这时文字即变为所选择的字体，这是一个过程，结果是将所选择的文字改变为所选择的字体。而记录宏则只记录将所选择的文字改变为所选择的字体这一结果。 Excel 97中工作表是由行和列组成的二维表格，我们可以通过系统提供的语句activesheet.cells(I,j)，将当前工作表中的第I行第j列所在的单元格

18、中的数据取出（也可将它数据填入到指定的单元格中），然后反把它放入所定义的数组中，这时就可以对其进行各种操作，如求平均分、总分、分数段人数等等。 本人就利用Excel 97中所提供的宏功能来做学生成绩的分析处理程序。本程序是Excel中的一个文件，其中包含以下几个宏：分班、总分、平均分、分数段、删除等。 说明：本程序是以本校高三理科班学生成绩进行分析。 有关程序中用到的几具宏的功能说明： 分班：针对于难以确定班级的情况下，以班为单位进行分班，本宏可以作为高一新生入学时进行分班的功能。 总分：对原始的成绩自动求总分。 平均分：对原始的成绩以班为单位进行各学科平均成绩的计算及全校各学科成绩的计算。

19、分数段：给定一个最高分数及最低分数，然后统计出各班各个分数段的人数，各分数段人数进行累计。 删除：用于删除不用的工作表。 现将各个宏的代码列举如下： 分班 Sub 分班() Const studentno = 191 注释：学生人数 Const zdno = 12 注释：字段数 Dim zd$(zdno) 注释：定义为12个字段的数组 Dim a(studentno, zdno), stu(60, zdno) Dim nam$(studentno), bjname$(60) 注释：定义一个存放全校学生名字及各班学生名字的数组 Dim bj(studentno) 注释：定义存放班级的一个数组 注

20、释: 理科班工作表 Sheets(高三理).Select 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.Cells(1, i) Next i注释: 先建立各个班级的工作表 Sheets(高三理).Select Sheets(高三理)

21、.Copy After:=Sheets(高三理) Sheets(高三理 (2).Select Sheets(高三理 (2).Name = 33 For i = 2 To studentno For j = 1 To zdno ActiveSheet.Cells(i, j) = Space$(1) Next j Next i Range(a1).Select For i = 1 To zdno ActiveSheet.Cells(1, i) = zd$(i) Next i 注释：34到36班工作表的建立 For i = 34 To 36 x$ = Mid$(Str(33), 2) Sheets(

22、x$).Select Sheets(x$).Copy After:=Sheets(高三理) Sheets(x$ & (2).Select Sheets(x$ & (2).Name = Mid$(Str(i), 2) Next i注释: 具体分班? For k = 33 To 36 bjrs = 0 x$ = Mid$(Str(k), 2) no = k Mod 10 Sheets(x$).Select For i = 2 To studentno If bj(i) = no Then bjrs = bjrs + 1 bjname$(bjrs) = nam$(i) For j = 3 To zd

23、no stu(bjrs, j) = a(i, j) Next j End If Next i For i = 2 To bjrs ActiveSheet.Cells(i, 1) = no ActiveSheet.Cells(i, 2) = bjname$(i) For j = 3 To zdno ActiveSheet.Cells(i, j) = stu(i, j) Next j Next i Next kEnd Sub总分 Sub 总分()Const studentno = 191 Const xknum = 6 Const zdnum = 12 Sheets(高三理).Select For

24、 i = 2 To studentno Sum = 0 For j = 1 To xknum Sum = Sum + ActiveSheet.Cells(i, j + 2) Next j ActiveSheet.Cells(i, zdnum - 3) = Sum Next iEnd Sub平均分 Sub 平均分() Const studentno = 190 Const xknum = 6 Dim fs(studentno, xknum), pjf3(4, 6), bjrs(4), qxpjf(6) Dim bj(studentno) Sheets(高三理).Select 注释：以下程序段用于

25、求全校平均分 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) Next j qxpjf(i) = Sum / (j - 1) Next i 注释：以下程序段用于求各班平均分 For j = 1 To 4 For i = 1 To studentno I

26、f 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 j = 1 To 4 For i = 1 To 6 pjf3(j, i) = pjf3(j, i) / bjrs(j) Next i Next j 注释：写入各班各科平均分 Sheets(平均分).Select For i = 1 To 4 For j = 1 To 6 ActiveSheet.Cells(i 2, j 1) = pjf3(i, j)

27、Next j Next i 注释：写入全校各科平均分 i = 7 For j = 1 To 6 ActiveSheet.Cells(i, j 1) = qxpjf(j) Next j End Sub 分数段 Sub 分数段() Const max = 600 Const min = 390 Const studentno = 190 Const bjnum = 4 Const fsdnum = 22 Dim bjfsd(bjnum, fsdnum), zf(studentno, 2) Sheets(高三理).Select For i = 1 To studentno zf(i, 1) = Ac

28、tiveSheet.Cells(i 1, 1) 注释：存放班级 zf(i, 2) = ActiveSheet.Cells(i 1, 11) 注释：存放总分 Next i For i = 1 To studentno For j = 1 To 4 注释：3-6班共4个班级 If zf(i, 1) = j 2 Then For k = max To min Step -10 low = Int(max 10 - k) / 10) If zf(i, 2) k Then bjfsd(j, low) = bjfsd(j, low) 1 Next k End If Next j Next i Sheets

29、(sheet3).Select For i = 3 To 6 For k = 1 To fsdnum ActiveSheet.Cells(i, k 1) = bjfsd(i - 2, k) Next k Next i Range(M3:W6).Select Selection.Cut ActiveWindow.LargeScroll ToRight:=-1 Range(B8).Select ActiveSheet.Paste End Sub 删除 Sub 删除() Sheets(33).Select ActiveWindow.SelectedSheets.Delete Sheets(34).Select ActiveWindow.SelectedSheets.Delete Sheets(35).Select ActiveWindow.SelectedSheets.Delete Sheets(36).Select ActiveWindow.SelectedSheets.Delete End Sub