《excel宏教程-vb》由会员分享，可在线阅读，更多相关《excel宏教程-vb（16页珍藏版）》请在金锄头文库上搜索。
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(:).Select 选中整
2、行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注：设置活动单元格 与 选中单元格类似，不同之处就是后者在选中指定的单元格之前会将在此前已被选中的单元格取消掉。前者在设置之前不会取消已选中的单元格，如果此时操作的单元格不是被选中的单元格，这时他实现的功能与选一个单元格相同。四、 给活动的单元格赋值ActiveCell.FormulaR1C1
3、= 例：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).ActivateActiveCell.FormulaR1C1 = 37五、
4、得到指定单元格中的值Range().Text六、 插入单元格Selection.Insert Shift:=Selection.EntireRow.InsertSelection.EntireColumn.Insert例：Selection.Insert Shift:=xlToRight 在当前选中单元格的位置插入单元格并将当前选中的单元格向右移动Selection.Insert Shift:=xlDown 在当前选中单元格的位置插入单元格并将当前选中的单元格向下移动Selection.EntireRow.Insert 在当前选中单元格的上面插入一行Selection.EntireColumn
5、.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(下划线样式):xlUnderlineStyleDouble 双下划线xlUnderlineStyleDouble
6、Accounting 会计用双下划线（如果当前单元格中的数据是数字时则下划线的宽度是当前单元格的宽度）xlUnderlineStyleNone 没有下划线xlUnderlineStyleSingle 单下划线xlUnderlineStyleSingleAccounting 会计用单下划线（如果当前单元格中的数据是数字时则下划线的宽度是当前单元格的宽度）3. 设置字体的颜色Selection.Font.ColorIndex = Selection.Font.Color = 4. 设置字体的特殊效果Selection.Font.Strikethrough = 删除线Selection.Font.S
7、uperscript = 上标Selection.Font.Subscript = 下标八、 清空选中单元格里的内容Selection.ClearContents例：Range(“A1:A2,B7,2:2”).Select 选中“A1”、“A2”、“B7”五个不连续的单元格和第二行Selection.ClearContents 清空“A1”、“A2”、“B7”五个不连续单元格中的所有内容九、 设置选中单元格的边线属性XlBordersIndex(边线):xlEdgeLeft 单元格左边线xlEdgeTop 单元格上边线xlEdgeRight 单元格右边线xlEdgeBottom 单元格下边线x
8、lDiagonalDown 单元格左上右下斜线xlDiagonalUp 单元格左上右下斜线xlInsideVertical 多个单元格内垂直线xlInsideHorizontal 多个单元格内水平线1. 设置边线的类型Selection.Borders().LineStyle = XlLineStyle(边线类型):xlLineStyleNone 无样式xlContinuous 单线xlDash 破折号线(间隔线)xlDashDot 破折号 点线xlDashDotDot 破折号 点 点线xlDot 点线xlDouble 双横线xlSlantDashDot 斜点线2. 设置边线的宽度Select
9、ion.Borders().Weight = XlBorderWeight(宽度值):xlHairline 极细xlThin 细xlMedium 中等xlThick 粗3. 设置边线的颜色Selection.Borders(xlEdgeLeft).ColorIndex = Selection.Borders(xlEdgeLeft).Color = 十、 删除选中的单元格Selection.Delete Selection.EntireRow.DeleteSelection.EntireColumn.Delete例：Selection.Delete Shift:=xlToLeft 删除选中的单元
10、格,并将已删除单元格所在位置右面的单元格向左移动Selection.Delete Shift:=xlUp 删除选中的单元格,并将已删除单元格所在位置下面的单元格向上移动Selection.EntireRow.Delete 删除选中单元格所在的行Selection.EntireColumn.Delete 删除选中单元格所在的列十一、设置单元格背景色及图案1. 背景色Selection.Interior.ColorIndex = Selection.Interior.Color = 2. 图案样式Selection.Interior.Pattern = Constants(图案样式):xlSoli
11、d 实心 xlGray75 75% 灰色 xlGray50 50% 灰色 xlGray25 25% 灰色 xlGray16 12.5% 灰色 xlGray8 6.25% 灰色 xlHorizontal 水平 条纹 xlVertical 垂直 条纹 xlDown 逆对角线 条纹 xlUp 对角线 条纹 xlChecker 对角线 剖面线 xlSemiGray75 粗 对角线 剖面线 xlLightHorizontal 细 水平 条纹 xlLightVertical 细 垂直 条纹 xlLightDown 细 逆对角线 条纹 xlLightUp 细 对角线 条纹 xlGrid 细 水平 剖面线 x
12、lCrissCross 细 对角线 剖面线 3. 图案颜色Selection.Interior.PatternColorIndex = Selection.Interior.PatternColor = 十二、返回工作表中的行数Sheet1.UsedRange.Rows.Count 返回从最小已输入内容的行号到最大已输入内容的行号之间的行数Sheet1.UsedRange.Rows(Sheet1.UsedRange.Rows.Count).Row 最大已输入内容的行号十三、得到当前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
