excel宏教程.doc

excel宏编程简明教程.docExcel 宏编程简明教程一)、宏学习首先需要明确的是，本文不可能教会您关于宏的所有内容。

您需要学会利用'录制宏'的方法来学习宏：点击Excel'工具'下拉菜单中'宏'下?quot;录制新宏'，此后可象平时一样进行有关操作，待完成后停止录制。

然后再点击'工具'下拉菜单中'宏'下'宏'的'编辑'选项即可打开刚才所录制的宏的Visual Basic源程序，并且可以在此时的'帮助'下拉菜单中获得有关的编程帮助。

对录制宏进行修改不仅可以学习宏的使用，还能大大简化宏的编写。

二)、基本概念为了学习Excel中的宏，我们需要先了解以下一些基本概念。

1、工作簿：Workbooks、Workbook、ActiveWorkbook、ThisWorkbook Workbooks集合包含Excel中所有当前打开的Excel工作簿，亦即所有打开的Excel文件；Workbook对应Workbooks中的成员，即其中的Excel文件；ActiveWorkbook代表当前处于活动状态的工作簿，即当前显示的Excel文件；ThisWorkbook代表其中有Visual Basic代码正在运行的工作簿。

在具体使用中可用Workbooks(index)来引用Workbook对象，其中index为工作簿名称或编号；如Workbooks(1)、Workbooks('年度报表.xls')。

而编号按照创建或打开工作簿的顺序来确定，第一个打开的工作簿编号为1，第二个打开的工作簿为2……。

2、工作表：Worksheets、Worksheet、ActiveSheet Worksheets集合包。

Excel宏的使用教程Visual Basic for Applications(VBA)是Visual Basic的一种宏语言，主要能用来扩展 Windows的应用程式功能，特别是Microsoft Office软件，此中包含Excel 、PPT、Word、Outlook 等。

使用 Excel 的 VBA开发的 Excel 文档，在 Excel 中运转时需要开启 Excel 的宏功能，不然此文档的 VBA自动化功能将被完整障蔽，文档的功能没法实现。

所以，在翻开这些 Excel 程序言件以前，您需要先对您的 Excel 宏安全性进行设置 ( 设置永远有效，在同一台电脑上无需再次设置 )在 Excel2003 版本中，能够依以下步骤操作：1，在 Excel 的菜单栏上挨次单击“工具”——“宏”——“安全性”，翻开下列图所示的“安全性”对话框，2，在“安全级”选项卡中将宏的安全级别设置为“中”或“低”。

此中介绍使用“中”级，这样的设置其实不会降低您的安全性，您仍旧对随意一个宏文件都拥有主动选择能否运转的权利。

在宏的安全性级别设置成功后，再次翻开 Excel 程序言件时，会出现下列图所示信息框，此时点击“启用宏”按钮即可使本程序正常运转：在 Excel2007/2010 版本中，能够依以下步骤操作：1，挨次单击 Excel 的 Office按钮(2010版本为“文件”按钮)——“ Excel 选项”，翻开下列图所示的“Excel 选项”选项卡，在左边列表中选择“相信中心”，在右边出现的窗口中点击“相信中心设置”按钮，2，翻开“相信中心”选项卡，在左边选择“宏设置”，在右边出现的窗口中选择“禁用全部宏，并发出通知”选项，单击确立达成。

在宏的安全性级别设置成功后，再次翻开Excel 程序言件时，在信息栏( 编辑栏上方 ) 会出现下列图所示的警示信息，此时点击此中的“选项”按钮翻开 Offi ce 安全选项对话框，在此中选择“启用此内容”选项并确立即可使本程序正常运转。

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 ‘选中整行Columns("<列地址>:<列地址>").Select ‘选中整列例：Row s(“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 = <值>例：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 = "Archer"Range("B3").ActivateActiveCell.FormulaR1C1 = "37"五、得到指定单元格中的值Range("<单元格地址>").Text六、插入单元格Selection.Insert Shift:=<XlDirection值>Selection.EntireRow.InsertSelection.EntireColumn.Insert例：Selection.Insert Shift:=xlToRight ‘在当前选中单元格的位置插入单元格并将当前选中的单元格向右移动Selection.Insert Shift:=xlDown ‘在当前选中单元格的位置插入单元格并将当前选中的单元格向下移动Selection.EntireRow.Insert ‘在当前选中单元格的上面插入一行Selection.EntireColumn.Insert ‘在当前选中单元格的左侧插入一列七、设置字体属性1. 设置字体名称和大小 = <字体名称>Selection.Font.Size = <字号>例： = "隶书"Selection.Font.Size = 152. 设置字体样式Selection.Font.Bold = <True / False> ‘加粗Selection.Font.Italic = <True / False> ‘斜体Selection.Font.Underline = < XlUnderlineStyle(下划线样式)> ‘下划线XlUnderlineStyle(下划线样式):xlUnderlineStyleDouble ‘双下划线xlUnderlineStyleDoubleAccounting ‘会计用双下划线（如果当前单元格中的数据是数字时则下划线的宽度是当前单元格的宽度）xlUnderlineStyleNone 没有下划线xlUnderlineStyleSingle ‘单下划线xlUnderlineStyleSingleAccounting ‘会计用单下划线（如果当前单元格中的数据是数字时则下划线的宽度是当前单元格的宽度）3. 设置字体的颜色Selection.Font.ColorIndex = <0到56之间的数字>Selection.Font.Color = <RGB值>4. 设置字体的特殊效果Selection.Font.Strikethrough = <True / False> ‘删除线Selection.Font.Superscript = <True / False> ‘上标Selection.Font.Subscript = <True / False> ‘下标八、清空选中单元格里的内容Selection.ClearContents例：Range(“A1:A2,B7,2:2”).Select‘选中“A1”、“A2”、“B7”五个不连续的单元格和第二行Selection.ClearContents ‘清空“A1”、“A2”、“B7”五个不连续单元格中的所有内容九、设置选中单元格的边线属性XlBordersIndex(边线):xlEdgeLeft '单元格左边线xlEdgeTop ‘单元格上边线xlEdgeRight ‘单元格右边线xlEdgeBottom ‘单元格下边线xlDiagonalDown ‘单元格左上右下斜线xlDiagonalUp ‘单元格左上右下斜线xlInsideVertical ‘多个单元格内垂直线xlInsideHorizontal ‘多个单元格内水平线1. 设置边线的类型Selection.Borders(<边线>).LineStyle = < XlLineStyle(边线类型)>XlLineStyle(边线类型):xlLineStyleNone ‘无样式xlContinuous ‘单线xlDash ‘破折号线(间隔线)xlDashDot ‘破折号点线xlDashDotDot ‘破折号点点线xlDot ‘点线xlDouble ‘双横线xlSlantDashDot ‘斜点线2. 设置边线的宽度Selection.Borders(<边线>).Weight = <XlBorderWeight(边线的宽度值)>XlBorderWeight(宽度值):xlHairline ‘极细xlThin ‘细xlMedium ‘中等xlThick ‘粗3. 设置边线的颜色Selection.Borders(xlEdgeLeft).ColorIndex = <0到56之间的数字>Selection.Borders(xlEdgeLeft).Color = <RGB值>十、删除选中的单元格Selection.Delete <XlDirection值>Selection.EntireRow.DeleteSelection.EntireColumn.Delete例：Selection.Delete Shift:=xlToLeft ‘删除选中的单元格,并将已删除单元格所在位置右面的单元格向左移动Selection.Delete Shift:=xlUp ‘删除选中的单元格,并将已删除单元格所在位置下面的单元格向上移动Selection.EntireRow.Delete ‘删除选中单元格所在的行Selection.EntireColumn.Delete ‘删除选中单元格所在的列十一、设置单元格背景色及图案1. 背景色Selection.Interior.ColorIndex = <0到56之间的数字> Selection.Interior.Color = <RGB值>2. 图案样式Selection.Interior.Pattern = <Constants(图案样式)>Constants(图案样式):xlSolid '实心xlGray75 '75% 灰色xlGray50 '50% 灰色xlGray25 '25% 灰色xlGray16 '12.5% 灰色xlGray8 '6.25% 灰色xlHorizontal '水平条纹xlVertical '垂直条纹xlDown '逆对角线条纹xlUp '对角线条纹xlChecker '对角线剖面线xlSemiGray75 '粗对角线剖面线xlLightHorizontal '细水平条纹xlLightVertical '细垂直条纹xlLightDown '细逆对角线条纹xlLightUp '细对角线条纹xlGrid '细水平剖面线xlCrissCross '细对角线剖面线3. 图案颜色Selection.Interior.PatternColorIndex = <0到56之间的数字>Selection.Interior.PatternColor = <RGB值>十二、返回工作表中的行数edRange.Rows.Count ‘返回从最小已输入内容的行号到最大已输入内容的行号之间的行数edRange.Rows(edRange.Rows.Count).Row ‘最大已输入内容的行号十三、得到当前EXCEL的文件名ThisWorkbook.Path ‘文件路径 ‘文件名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 = <True/False>4. 删除批注ClearComments例：Selection.Range("B1").ClearComments5. 选中批注Comment.Shape.Select True例：Range("D8").Comment.Shape.Select True6. 改变批注大小和位置Selection.ShapeRange.ScaleWidth <宽度比例>, msoFalse, <MsoScaleFrom> Selection.ShapeRange.ScaleHeight <高度比例>, msoFalse, <MsoScaleFrom>例：Selection.ShapeRange.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft ‘每次增加5%的宽度Selection.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 <option>十七、改变列宽Selection.ColumnWidth = <宽度值> ‘指定列宽例：Columns("A:A").SelectSelection.ColumnWidth = 30 ‘改变已选列的宽度EntireColumn.AutoFit ‘自动改变列宽例：Columns("C:C").EntireColumn.AutoFit ‘根据C列的内容自动改变列的宽度在Excel 97中，"宏"是一个难以理解的概念，但对于一个具体的"宏"而言，却是容易理解的，如果说"将一块文字变为注释：黑体注释：，字号为注释：三号注释："就可以看作一个"宏"的话，那么"宏"就不难理解了，其实Excel 97中的许多操作都可以是一个"宏"。

Excel宏的使用教程第一章：Excel宏的介绍Excel宏是 Excel 中的一项强大功能，通过编写一些脚本代码，可以实现自动化处理数据以及完成繁琐的重复性任务。

它可以让用户更高效地利用Excel进行数据处理、数据分析等工作。

本章将介绍宏的基本概念、作用以及宏的应用场景。

第二章：录制宏Excel宏的录制是一种简单而又方便的方式，可以将用户的操作记录下来并生成相应的VBA代码。

录制宏可以帮助用户快速生成一些特定操作的代码，减少手工操作的繁琐性。

本章将详细介绍如何录制宏以及如何调整宏的录制步骤。

第三章：编辑与运行宏在录制宏后，用户可以对录制的宏代码进行编辑以满足自己的需求。

本章将介绍如何编辑宏代码，如何运行宏以及如何给宏代码添加注释等。

第四章：使用宏实现数据处理Excel宏的一个主要应用场景是数据处理。

用户可以编写宏代码来实现自动化的数据清洗、整理、筛选等操作，提高数据处理的效率。

本章将介绍如何使用宏来进行数据处理，并提供一些常用的数据处理宏示例。

第五章：使用宏实现数据分析Excel宏还可以应用于数据分析领域。

用户可以编写宏代码来实现一些常用的数据分析功能，例如统计分析、图表创建等。

本章将介绍如何使用宏进行数据分析，并提供一些常用的数据分析宏示例。

第六章：宏安全性的注意事项在使用Excel宏时，用户需要注意宏的安全性问题，以防止恶意代码的运行造成数据泄漏或病毒感染。

本章将介绍宏的安全性注意事项，并提供一些常用的宏安全设置建议。

第七章：VBA基础知识VBA是Excel宏的编程语言，掌握一些VBA基础知识对于编写复杂的宏代码非常有帮助。

本章将介绍一些常用的VBA语法和函数，以便用户能够更好地理解和编写宏代码。

第八章：自定义宏按钮和快捷键为了更方便地使用宏，用户可以在Excel界面中自定义宏按钮和快捷键。

本章将介绍如何在Excel中添加自定义宏按钮和创建自定义宏快捷键，以及如何将宏添加到快速访问工具栏中。