《excel_vba_编程教程(完整版)》

下载本书

添加书签

excel_vba_编程教程(完整版)- 第25节


按键盘上方向键 ← 或 → 可快速上下翻页,按键盘上的 Enter 键可回到本书目录页,按键盘上方向键 ↑ 可回到本页顶部!
        End Sub  
RmDir方法允许你从硬盘上删除不需要的文件夹。  

21 用对象浏览器来定位过程  

除了定位对象,属性和方法外,对象浏览器还是个定位在不同工程里面的过程非常方便的工具。下 
面的例子给你演示如何查看存在“Personal”工作簿里面的过程:  
1。  激活对象浏览器并且选择工程/库下拉列表里的Personal。(译者:因为我没有Personal这个文 
     件。。。)  

                                                                             
图2-22 对象浏览器列出所有在某个特定VBA工程里可用的过程  
对象浏览器的左边显示所选工程里面对象名称,而右边则列出了所有可用的过程。  
2。  双击NewFolder过程名称,VB将光标定位到该过程的第一行  
3。  关闭对象浏览器  

22 使用立即窗口  

在你开始创建一个完善的VBA过程前(在下一章),先来做一些热身练习,增加你的VBA词汇。你怎 
样才能学得快而且没有痛苦?你如何试验一下一些新学的VBA指令?这里有一些简短的,互动的语 
言练习:输入一个简单的VBA指令,Excel会检查并且将结果显示在下一行。我们开始来设定你的练 
习屏幕:  
1。  在VB编辑器窗口,选择“视图”-“立即窗口”  
在决定使用在你自己的VBA过程之前,立即窗口可以用来试验VB语言中不同的指令,函数和运算符。 
这是一个非常好的调试新语言的工具,你输入在这个窗口里面的指令,将会立即显示结果。  
立即窗口可以在VB编辑器窗口上任意移动,也可以设置为可连接的,这样它就会出现在相同的地方。 
可以通过选项对话框上的“可连接的”页来打开或关闭可连接设置。在VB编辑器窗口上按下Ctrl+G 
就可以快速访问立即窗口。立即窗口允许你输入VBA语句,并且测试它们的结果,而不需要写成一 
个过程。立即窗口就像一个草稿板,你可以用它测试你的语句。如果该语句输出了你希望的结果, 
你就可以将立即窗口上的语句复制到你的过程中去(或者,你也可以将语句拖曳到代码窗口,如果 
代码窗口是可见的)  

                                                  59 

… 页面 76…

2。  将Excel和VB编辑器窗口并排排列  
3。  在立即窗口里输入下述指令,并且回车  
    Worksheets(〃Sheet2〃)。Activate  
当你按下回车键,VB开始工作,如果你上面输入的语句是正确的话,VBA激活当前工作簿里的第二 
个工作表。工作簿底部的Sheet2这时应该是突出显示的。  
4。  在立即窗口,输入其它VBA语句并回车  
    Range(〃A1:A4〃)。Select  
你一旦按下回车,VB将选中当前工作表的A1,A2,A3和A4  
5。  在立即窗口里输入下述指令:  
    'A1:A4'。Value = 55  
当你按下回车,VB在A1:A4中的每个单元格里放置数字55。上面的语句是引用Range对象的一种所写 
方式,完整的语法可读性更强:  
    Range(〃A1:A4〃)。Value = 55  

                                                                                               
图2-23 将Excel和VB窗口并排排列让你可以观察指令的运行  
6。  在立即窗口输入下述指令:  
    Selection。ClearContents  
回车后,VBA清除所选单元格区域的内容,区域A1:A4现在是空的  
7。  在立即窗口输入下述指令:  
    ActiveCell。Select  
回车后,VB激活A1单元格  

                                                           
图2-24 在立即窗口里输入指令,一旦你按下回车键,指令就会被执行  

                                          60 

… 页面 77…

图2-24显示了上面练习中在立即窗口里输入的所有指令。你每次按下回车键后,Excel总是执行光 
标所在行的语句。如果你想要再次执行同一指令,那么点击该指令行的任意位置,回车。为了更多 
的练习,重新运行图2-24里语句,从立即窗口的第二行指令开始,点击合适的地方并回车,一个 
一个地执行这些指令。  

23 获取立即窗口里的信息  

到目前为止,你已经使用立即窗口执行操作了,这些操作也可以是手动地在工作表的任意区域点击 
鼠标并且输入数据。立即窗口也允许你问问题。假设你想要找到下面问题的答案:“现在选中的是 
哪些单元格?”,“当前单元格里的值是多少?”,“当前工作表的名称是什么?”,“当前窗口的编号 
是多少?”使用立即窗口,你可以轻易地找到这些问题,以及其它问题的答案。在前面的例子里, 
你输入了好几个指令,让我们返回立即窗口去问几个问题。Excel甚至在你关闭了立即窗口后还能 
记住你在立即窗口里输入的指令。当你退出Excel时,立即窗口的内容自动会被删除。  
1。   鼠标点击立即窗口第二行你输入Range(〃A1:A4〃)。Select的任意地方  
2。  回车,让Excel再次选择单元格A1:A4  
3。  在立即窗口新的一行输入下面的问题:  
    ?Selection。Address  
当你按回车,Excel不会选择工作表的任何东西,取而代之,立即窗口上会在另外一行显示该指令 
的结果。在该例中,Excel返回的是当前被选择的单元格的绝对地址(A1:A4)。问号(?)告诉 
Excel在立即窗口显示指令的结果。除了问号,你还可以使用Print关键字。让我们使用关键字Print 
问工作表名称  
4。  在立即窗口新的一行,输入下述问题:  
    Print ActiveWorkbook。Name  
回车后,Excel在立即窗口新的一行输入了当前工作簿的名称。  
找找应用程序的名称如何?Chap02。xls的父对象是谁?  
5。  在立即窗口新的一行,输入下述问题:  
    ?Application。Name  
Excel会显示它自己的全名:Microsoft Excel  
立即窗口也可以用来做一个快速计算  
6。  在立即窗口新的一行,输入下述问题:  
    ?12/3  
回车后,Excel会在下一行显示该除法运算的结果。但是,万一你想立即知道3+2和12*8的结果呢? 
你可以将它们输入在一行,而不必分成两行,例如:  
    ?3+2:?12*8  
注意,冒号将两个代码块分割开来。  
当你按下回车键,Excel分别在立即窗口的两行显示结果5,96。  
下面是你在立即窗口里输入的所有指令,以及Excel对你问题的回答:  
    Worksheets(〃Sheet2〃)。Activate   
    Range(〃A1:A4〃)。Select   
     'A1:A4'。Value = 55   
    Selection。ClearContents   
    ActiveCell。Select   
    ?Selection。Address   
    A1:A4   
    Print ActiveWorkbook。Name   
    Chap02。xls   
    ?Application。Name   
    Microsoft Excel   
    ?12/3   
    4   
    ?3+2:?12*8   

                                             61 

… 页面 78…

    5   
    96  
要清除立即窗口里的指令,只要选中所有指令并且按下Delete键  

24 学习对象  

要在Excel里创建一些自定义应用程序,需要一些常用对象或者对象集合的工作知识,例如Range, 
Workbook (Workbooks),Worksheet (Worksheets),Window (Windows)和 Application。在前面部 
分,你开拓了学习VB的许多方法。这里有一个总结关于什么时候使用什么工具:  
    象浏览器  
本章剩余的几页里有一些VBA语言训练,可以帮助你更好地理解VBA语法。如果你花些时间在立即窗 
口过一遍这些语法训练,你将理解绝大部分。  

                                                                              
图2-25 Excel对象模型里的Range对象  

25 电子表格单元格操作  

当你已经准备好编写你自己的VBA过程,将电子表格任务自动化的时候,你很可能是从寻求操作电 
子表格单元格的指令开始的。你需要知道如何选择单元格,如果在单元格输入数据,如何给单元格 
区域命名,如何设置单元格格式,以及如何移动,复制和删除单元格。虽然这些任务可以通过鼠标 
或键盘轻易执行,掌握VBA这些方面的技术需要一些练习。你必须使用Range对象来引用单个单元格, 
单元格区域,行或列。如果你看了Excel对象模型,你会注意到Range对象是另外一个大对象—— 
Worksheet对象——的一部分。有三种属性让你访问Range对象:Range属性,Cells属性和Offset 
属性。  

26 使用 Range 属性  

Range属性返回一个单元格或者单元格区域。引用必须是A1在引号里的样式(例如:”A1”)引用 
可以包括区域运算符冒号(例如:”A1:B2”)或者联合运算符逗号(例如:”A”;”B12”)  
VBA操作                                      立即窗口输入  
选择单个单元格(例如A5)                     Range(〃A5〃)。Select  
选择一个单元格区域(例如A6:A10)             Range(〃A6:A10〃)。Select  
选择一些不相邻的单元格(例如A1; B6; C8)  Range(〃A1; B6; C8〃)。Select  
选择一些不相邻的单元格和单元格区域(例如     Range(〃A11:D11; C12; D3〃)。Select  
A11:D11; C12; D3)  
  

27 使用 Cells 属性  

当你要选择一个确定的单元格时,Cells属性要求两个自变量,第一个是行号,第二个是列号或者 
列字母。自变量输入在括号中。如果忽略自变量,Excel将会选择当前工作表的所有单元格。  

                                             62 

… 页面 79…

VBA操作                                       立即窗口输入  
选择单个单元格(例如A5)                      Cells(5; 1)。Select或Cells(5; A)。Select  
选择一个单元格区域(例如A6:A10)              Range(Cells(6; 1); Cells(10; 1))。Select  
选择工作表中所有单元格                        Cells。Select  
  
注意,在上面的例子中,你如何结合使用Range和Cells属性:  
    Range(Cells(6; 1); Cells(10; 1))。Select  
在上面的例子里,第一个Cells属性返回单元格A6,而第二个返回单元格A10。Cells属性返回的单 
元格之后又当做Range对象的参数。结果Excel就选择了上面单元格为第一个Cells属性返回的结果 
和下面为第二个Cells属性返回单元格的区域了。  
工作表是单元格的集合,你也可以使用只带一个自变量的Cells属性来表示单元格在工作表所有单 
元集合中的位置。Excel按下列方式给单元格编号:单元格A1是工作表中的第一个单元格,B1是第 
二个,C1是第三个,等等。Cell256是第一行中的最后一个单元格。你也许会想起Excel只有256列。  
VBA操作                                     立即窗口输�
小提示:按 回车 [Enter] 键 返回书目,按 ← 键 返回上一页, 按 → 键 进入下一页。 赞一下 添加书签加入书架