ExcelVBA编程系列之对象模型

《ExcelVBA编程系列之对象模型》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、]ExcelVBA编程系列之对象模型(1)VBA入门文章,整理了近两天,希望能给VBA初学者有所帮助.Excel2003对象模型编程快速入门[摘要]本文全面概括地讲解了一些关于Excel2003对象模型编程的基础知识，包括创建VBA子程序和宏，对象、方法、属性和集合的基本概念，如何使用事件、使用窗体创建对话框等，为您提供了使用程序自动化处理工作的基本方法。阅读本文后，您应该对关键的编程概念和知识有所了解，并能开发一些简单实用的应用程序以解决工作中遇到的实际问题。通过一个示例认识ExcelVBA程序首先，让我们看看下面的代码，在每行代码的前面都附有代码功能的解释。Sub隔行设置背景色()   

2、'声明常量值为15,即灰色的颜色索引值   ConstGray=15   '选择工作表中的第2行,其中活动单元格为最左边的单元格   Range("A2").EntireRow.Select   '开始循环.若活动单元格不为空,则重复循环,   '直到活动单元格值为空时退出循环   DoWhileActiveCell.Value<>""     '将所选行背景色设置为常量值Gray所代表的颜色,     '本例中为灰色即15所代表的颜色索引值色     Selection.Interior.ColorIndex=Gray     '选择从活动单元格起向下的第2行     '选择整行后,其活动

3、单元格为最左边的单元格     ActiveCell.Offset(2,0).EntireRow.Select   LoopEndSub试试看，在Excel中运行上面的程序，只用短短的6行代码，就能迅速地将你当前工作表中每隔一行添加背景色，使你的工作表更具有可读性。通过Excel对象模型编程，可以： 定制Excel，实现自动化操作，以满足你特定的需要l 添加额外的功能l 节省时间和资源l提示学习需要实践，将所学习到的知识通过实践才能真正理解和掌握。因此，边阅读边上机操作，才能达到好的学习效果。认识VBA和宏VBA是VB整合到MicrosoftOffice应用程序中的一个版本，在VBA中创建的

4、代码也称作宏，宏是一系列的VB指令，通过在VB指令中使用Excel对象模型来执行Excel操作任务。在Excel中，你可以通过自已写代码来创建宏，也可以通过宏录制器来创建宏。■创建宏开启Excel2003，选择菜单“工具——宏——宏”，出现的“宏”对话框。在“宏名”文本框中输入所创建宏的名字，如“我的第一个宏”，单击“创建”按钮，Excel将自动打开VBE编辑器。缺省的VBE编辑器显示了3个窗口(可在“视图”菜单中控制是否显示)，即：●代码窗口窗口标题为“Book1–[模块1(代码)]”。在该窗口中编写程序代码。也可在“工程窗口”中双击模块名或对象名打开相应的代码窗口。●工程窗口位于屏幕左侧

5、上方，窗口标题为“工程-VBAProject”。该窗口中显示了当前所有的Excel对象和模块，方便查看和管理。如单击“MicrosoftExcel对象”前的加号将展开所有的对象，当前共有4个对象即Sheet1，Sheet2，Sheet3和ThisWorkbook。●属性窗口位于屏幕左侧下方，窗口标题为”属性-模块1”。该窗口显示了当前所选项目的属性设置。在这里，所选项为模块1，可在属性窗口中为模块1改名为一个合适的名字，如在名称文本框中，输入“我的第一个模块”后按Enter键，则工程窗口中的模块名称和代码窗口标题名称也相应变化。现在，在“我的第一个宏”程序中输入下面的代码：Sub我的第一个宏

6、()   DimwsAsWorksheet   Setws=ActiveWorkbook.Worksheets.Add   Range("A1").Value="Iamastudent."EndSub您先不需要明白这些代码的含义以及它们如何工作，以后我们会讲解。接下来，关闭VBE编辑器，返回Excel主界面(可单击VBE编辑器左上角的Excel图标或选择菜单命令来进行此操作)。然后，选择菜单“工具——宏——宏”，可看到在出现的“宏”对话框中已选取了“我的第一个宏”，单击“执行”按钮，此时，一个新的工作表被创建，且在该工作表的单元格A1中自动输入文本“Iamastudent.”■录制宏除了在V

7、BE编辑器中通过输入代码创建宏之外，您还可以通过宏录制器录制菜单命令、按键和其它操作来创建宏。首先，选择菜单“工具——宏——录制新宏”，在弹出的“录制新宏”对话框中输入宏名，如“年级”；在“快捷键”文本框中，输入使所录制的宏运行的快捷键，如B；在“保存在”下拉框中选“当前工作簿”；在“说明”文本框中输入宏的功能描述，如“自动生成年级号”，单击“确定”按钮，开始录制宏。此时，在工作表中出现一个如下图1所示的悬浮