《EXCEL宏编程实例》由会员分享，可在线阅读，更多相关《EXCEL宏编程实例（17页珍藏版）》请在装配图网上搜索。

1、Excel 宏编程举例说明学习宏编程，需要 VB 基础，如果一点 VB 基础和面向对象的概念，建议先去补补VB ，不然即使自认为学好了也只能拿着高射炮打蚊子！一)、宏学习 首先需要明确的是， 本文不可能教会您关于宏的所有内容。 您需要学会利用 录制宏 的方法来学习 宏：点击Excel工具”下拉菜单中”宏”下？quot;录制新宏”，此后可象平时一样进行有关操作，待完成后 停止录制。然后再点击 工具下拉菜单中 宏下宏的编辑选项即可打开刚才所录制的宏的 Visual Basic 源程序，并且可以在此时的 帮助下拉菜单中获得有关的编程帮助。对录制宏进行修改不仅可以 学习宏的使用，还能大大简化宏的编写。

集合包含工作簿中所有的工作表，即一个 Excel 文件中的所有数据表页；而 Worksheet 则代表其中的一个工作表； ActiveSheet 代表当前处于的活动状态工作表，即当前显示的 一个工作表。可用 Worksh

With显示 x 轴主网格线，默认情况下为显示 显示 x 轴次网格线，默认情况下为不显示标出 x 轴主网格值，默认情况下为标注取消 x 轴次网格值标注，默认情况下为不标注With ActiveChart.Axes(xlC

xlRight 图例显示在图表右侧2、嵌入式图表 嵌入式图表仅在添加方式及引用格式上与工作表图表有所不同， 而对图表的设置基本类似。 详见下 例。Set 嵌入表 =ActiveSheet.ChartObjects.Ad

工作表之前3、命名ActiveSheet.Name= 工作表名 将当前工作表命名为 工作表名 4、删除 可以用以下语句删除当前工作表。ActiveSheet.Delete但在删除前 Excel 会自动弹出提示框， 需在用户

在工作上处理控件时， 必须 注意和了解如下事项：(一 )用 Excel5.0/95 工作簿文件格式保存 Excel97 工作簿时，将选择 ActiveX 控件信息。当用户通过双击鼠标来编辑内嵌在其它应用程序文档中的

36、Excel97 工作簿时， 该工作簿上的控件将不会正常工作。如果用户是通过用右键单击工作簿，然后选中快捷菜单上的“打 开”命令来编辑工作簿的话，工作簿上的控件就能正常工作了。(二 ) 当 ActiveX 控件处于激活状态时， 将禁用某些 MicrosoftExcelVisualBasic 方法和属性。 例如， 当某一控件激活时， 就不能使用 Sort 方法，

Type=msoOLEControlObjectThens Left=10Next请注意， 当在控件所在工作表的类模块之外使用控件的名称时，必须用工作表的名称限定该控件的名称。在工作表上 ActiveX 控件的事件处理过程中， Me

40、关键字所指向的是工作表，而非控件 在 Excel 中利用 VBA 创建多级选单Excel 是我们常用的报表处理软件之一，对于大多数人来说只是使用它进行打印报表，没有注意其他功 能， 其实利用 Excel 内嵌的 VBA 语言完全可以快速开发出自己企业的应用系统来， 而且应用系统界面 与其它专业编程语言相当相似。下面笔者简单通过一个实例说明如何利用VBA 创建多级选单。首先，我们对 Excel 中两个重要的内置函数 auto_open() 和 auto_close() 作一简单说明。 auto_open() ：在打开工作簿时系统将自动执行该函数，因此我们可以在该函数中调用自己应用程序 的选单函数

41、以及其它需要初始化设置的函数及宏语句；auto_close() ：在关闭工作簿时系统将自动执行该函数。所以我们需要在该函数中放置删除用户自定义选单语句，否则只有退出 Excel 才能恢复 EXCEL 的系统选单。 在以下语句中，我们定义了选单设置函数 序内注释，详细代码如下：自定义多级选单函数OpenMyMenu() ，用于设置多级选单，其他有关说明见程Sub

即可运行。66、用VBA（编程）保护Excel文档VBA（Visual Basic for Application ）是 Excel 应用程序中功能非常强大的编程语言，为了规范不 同的用户对 Excel 应用程序的访问能力，需要对 Excel 文档及有关的数据进行有效

47、的保护， 这里根据 自己及同行们的体会，从以下二个方面介绍用 VBA 编程法实现对 Excel 文档的保护。 对工作簿的保护1. 利用 VBA 中 Workbook 对象的 SaveAs 方法实现对工作簿的保护， 下面就对 SaveAs 有 关的参量 作一介绍：Filename ：该字符串表示要保存的文件名。 可包含完整路径。 如果不指定路径， Microsoft Excel 将 文件保存到当前文件夹。FileFormat ： 可选，文件的保存格式。 Password ：为一个区分大小写的字符串（不超过 15 个字符） ，用于指定文件的保护密码。 WriteResPassword ： 该字符串

48、表示文件的写保护密码。 如果文件保存时带有密码，但打开文件时不 输入密码，则该文件以只读模式打开。ReadOnlyRecommended ：如果为 True 则在打开文件时显示一条信息， 提示该文件以只读模式打开。 下例就是在Excel应用程序中添加一工作簿，将工作簿按常规文件格式存为“C:经济评价.xls文件，并给该文件指定保护密码“12”以及写保护密码“23 ”。Sub

49、. 利用 VBA 中 Workbook 对象的 Protect 方法对工作簿的结构和窗口进行保护， Workbook 对象的 Protect 方法带有以下三个参量：Password ： 为加在工作表或工作簿上区分大小写的密码字符串。如果省略本参数，不用密码就可以取消对该工作簿的保护。否则，取消对该工作表或工作簿的保护时必须提供该密码。如果忘记了密码， 就无法取消对该工作表或工作簿的保护。最好在安全的地方保存一份密码及其对应文档名的列表。Structure ： 若为 True 则保护工作簿结构（工作簿中工作表的相对位置）。默认值为False。Windows 若为 True 则保护工作簿窗口。下例

护工作表时所用的口令。3. 对工作簿进行隐藏保护，可使他人无法看到其对应的窗口。操作方法如下：在 VBA 中使用 Workbook对象下面的 WindowsVisible 属性的值可取“True”和“ False对象的 Visib

53、隐藏状态， 且用户不能通过“取消隐藏”对话框将其改为显示状态。 当 Visible 的值为 XlVerHidden 时，只能利用 VBA 将其重新设置为 True 。Sub 隐藏工作表（）Worksheets（ 基础数据表 ）.Visible=FalseEnd sub67、求 :将所选区域中的数值全部转化为万元的最简代码 .求:将所选区域中的数值全部转化为万元 的最简代码

orogressbar control, 再点击确定，这时，你会发现在你的工具箱中增加 了进度条工具，如图： 下面说说进度条的用法：属性： Max ： 设置进度条控件的最大值Min ： 设置进度条控件的最小值Value ：设置进度条控件

环中去。设置进度条控件的最大值进度条控件对象的当前值ProgressBar1.Max= 最大值， ProgressBar1.Value = 当前值放入循69 、 Excel 是一个优秀的电子表格软件，如果你编的程序需要以报表的形式显示最终结果，它会是个不 错的

57、选择。你可以通过 VB 控制 Excel 显示数据表格。如果你不愿意深入了解 Excel 这些琐碎的细节，也不是没有权宜之计：你可以打开Excel中的工具t宏t录制新宏，然后进行手工操作，结束后把所录的宏代码贴进你的 VB 程序就行。这样得到的程序一般都能正常运行，但其中的宏代码往往不够简洁，效率和可读性都不高。Excel 编程碰到的第一个问题是表头。有时表头的形式比较复杂，需要横向或纵向合并单元格。 请放心，只要没有斜杠， Excel 都能应付得了。例如合并 A2A5 这 4 个单元格，你录制的宏代码会是这样： Range(A2:A5).SelectWith Selection .Horiz

“ A2:A5 ” ).mergecells=True 就可以解决问题。 表头形式定了，再就是表头的内容。如果单元格中的文本长度超过了列宽，往往只能显示部分内 容， 行尾那一格的内容则会“越境”进入右边那个空白单元格

59、， 很不美观。 这个问题可以通过在程序中 设置列宽加以解决。Columns(14).columnwid th=12设置第14 列列宽为 12 (缺省列宽为 8.38 )如果你不愿意劳神去逐列估计实际所需的列宽，干脆来一行Columns(“ a:i ” ).autofit 到i列自动调整列宽让 Excel 随机应变吧。 但也许你不喜欢这种方法，认为表头撑大了列宽，弄得浏览一张小表格还得向右滚动，太不方便 了。要是能保持默认列宽，让文本自动换行就好了。没问题，Excel 包你满意。Rows(3).WrapText=True让第三行各单元格中的文本自动换行不过你最好再加一句 Rows(3) .Ver

60、ticalAlignment = xlTop让表头自动向上对齐，这样比较符合习惯。你还可以给表头打上底色，让你的读者不至于看了打哈欠。Rows(2). Interior .ColorIndex = 5 设置第 2 行底色为蓝色 再给表格的标题上色，这样更醒目一点。Rows(1).Font.ColorIndex=4 表头完成后该填数据了，一个一个地填实在是太 ? ，如果你的数据是存放在一个二维数组中，那 问题就简单多了。Dim Data(3,4) 数据处理Range( “ a2:d4 ” ).Value=Data这样可以一次填入一个表的所有数据，够快了吧！不过提醒一句， Range 对象大小最好

　　有时在excel中录制好宏，但是需要做一些小的修改，那么excel中录制好的宏如何更改?下面就为大家详细介绍excel录制宏更改方法，来看看吧!

　　1、首先，打开Visual Basic 编辑器。以此点击【工具】-【宏】-【Visual Basic 编辑器】　　

　　2、在弹出的窗口中，如图所示可以看到宏对应的代码。　　

　　3、单价鼠标就可以更改编写代码了，如图所示。　　

　　4、更改完成后，全选代码，点击如图所示【运行】按钮。　　

　　5、这是运行的就是编写后的新代码，原excel表格内容也相应执行了新的宏代码。　　

　　6、点击如图所示右上角【保存】，以后就可以从工具-宏执行新的代码了。　　

　　编写代码注意英文字符的切换

　　以上就是excel中录制好的宏如何更改方法介绍，操作很简单的，大家学会了吗?希望能对大家有所帮助!