excel宏教程.doc

1、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.Select 选中当前 SHEET 中的所有单元格Rows(“:

2、“).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 = “Name“Range(“B1“).SelectActiveCell.FormulaR1C1 = “Age“Range(“A2:B3“).SelectRange(“A2“).ActivateActiveCell.FormulaR1C1 = “ BUG“Range(“B2“).ActivateActiveCell.FormulaR1C1 = “12“Range(“A3“).ActivateActiveCell.FormulaR1C1 = “

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

5、ction.EntireRow.Insert 在当前选中单元格的上面插入一行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 = 下划线XlUnderline

6、Style(下划线样式):xlUnderlineStyleDouble 双下划线xlUnderlineStyleDoubleAccounting 会计用双下划线（如果当前单元格中的数据是数字时则下划线的宽度是当前单元格的宽度）xlUnderlineStyleNone 没有下划线xlUnderlineStyleSingle 单下划线xlUnderlineStyleSingleAccounting 会计用单下划线（如果当前单元格中的数据是数字时则下划线的宽度是当前单元格的宽度）3. 设置字体的颜色Selection.Font.ColorIndex = Selection.Font.Color =

7、4. 设置字体的特殊效果Selection.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(边线):xlEdgeLef

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

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

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

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

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

13、十三、得到当前 EXCEL 的文件名ThisWorkbook.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. 删除批注Clear

14、Comments例：Selection.Range(“B1“).ClearComments5. 选中批注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%的宽度Selec

15、tion.ShapeRange.ScaleHeight 0.6, msoFalse, 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“).SelectActiveSheet.Paste十六、选择性粘贴Selection.PasteSpecial 十七、改变列宽Selection.ColumnWidth = 指定列宽例：Columns(“A:A“).SelectSelection.ColumnWidth = 30 改变已选列的宽度EntireColumn.AutoFit 自动改变列宽例：Columns(“C:C“).EntireColumn.AutoFit 根据 C 列的内容自动改变列的宽度