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

下载本书

添加书签

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


按键盘上方向键 ← 或 → 可快速上下翻页,按键盘上的 Enter 键可回到本书目录页,按键盘上方向键 ↑ 可回到本页顶部!
1.  激活VBE窗口  
2.  在Selection。SpecialCells(xlCellTypeConstants; 2)。Select前面点击一下,将光标移至该 
     语句开头,回车          
3.  将光标往上移一行到空白处,并且添加如下注释,注意前面有单引号(译者:英文状态下的 
     单引号)  
        ‘ Find and format cells containing text  
4.  在Selection。SpecialCells(xlCellTypeConstants; 1)。Select前面点击一下,将光标移至该 

                                           21 

… 页面 38…

     语句开头,回车  
5.  将光标往上移一行到空白处,并且添加如下注释,注意前面有单引号(译者:英文状态下的 
     单引号)  
        ‘ Find and format cells containing numbers  
6.  在Selection。SpecialCells(xlCellTypeFormulas; 23)。Select前面点击一下,将光标移至该 
     语句开头,回车  
7.  将光标往上移一行到空白处,并且添加如下注释,注意前面有单引号(译者:英文状态下的 
     单引号)  
        ‘ Find and format cells containing formulas  
8.  在Range(〃A1:A3〃)。Select前面点击一下,将光标移至该语句开头,回车  
技巧1-6:关于注释  
在VBE代码窗口里,以单引号开头的都是注释。注释的默认颜色是绿色。可以通过“选项”对话框 
 (“工具”-“选项”-“编辑器格式”)更改注释颜色。注释也可以写在代码的后面。例如,在语 
句lorIndex = 11之后添加注释。点击该语句句末,按下Tab键,输入单引号,然后输入注释。 
显示如下:  
    lorIndex = 11 ' Sets the font color to Violet  
注释除了给用户提供代码目的信息之外,没有任何作用。请别忘记给你的代码写上注释。如果你几 
个月后还要回到你的代码,那么注释将帮你大忙。同样,注释可以使别人很快理解你的程序。  
9.  将光标往上移一行到空白处,并且添加如下注释,注意前面有单引号(译者:英文状态下的 
     单引号)  
        ‘Create legend  

8 分析宏代码  

所有宏过程都以关键词“Sub”开始,以关键词“End Sub”结束。在关键词“Sub”之后是宏的真 
正的名字,然后紧跟着是一对括号。在关键词Sub 和End Sub之间是那些你每次运行宏代码时VB执 
行的语句。VB从上到下读取语句,忽略那些句前带单引号的语句(参见上节关于注释的内容),读 
到End Sub时停止。请注意,录制的宏代码里包含许多停顿(译者:英文模式下的句号)。每行代码 
中都有停顿,用来连接VBA语言中不同的要素。如何阅读这种语言的用法呢?要从最后一个停顿的 
右边向左读。看看WhatsInACell里的一些语句:  
    Range(〃A1:A3〃)。Select  
选择A1到A3单元格  
       Selection。EntireRow。Insert  
往选中的区域中插入行。因为前面你选中的是三个单元格(译者:应该说是占据了三行的单元格), 
VB将插入三行。  
    ActiveCell。FormulaR1C1 = 〃Text〃  
往当前单元格里输入“Text”。因为,之前的代码是Range(〃B1〃)。Select,选择单元格B1,B1是当 
前激活的单元格,所有VB往B1单元格里面输入文本。  
       With Selection。Interior   
              lorIndex = 3   
              。Pattern = xlSolid   
              。PatternColorIndex = xlAutomatic   
       End With   
这是一段特别的代码块,解释如下:给当前选中的单元格设置单元格填充色为红色(ColorIndex =  
3),设置填充模式为实心(xlSolid),并且给当前单元格明确为默认的填充模式(xlAutomatic)。 
这个代码块以关键词With开始,End With结束,它将加速宏代码的执行。宏代码知道走捷径,而不 
会每次都重复下面的说明:  
       Selection。InteriorlorIndex = 3   
       Selection。Interior。Pattern = xlSolid  
       Selection。Interior。PatternColorIndex = xlAutomatic  
在关键词With后面紧跟重复的Selection。Interior,再以End With结尾。  

                                           22 

… 页面 39…

9 清除宏代码  

你已经逐行解析了你宏代码,你会发现Excel录制了许多你并不想要包含进去的信息。例如,在选 
中了文本单元格后,除了设置字体为粗体和颜色为紫色之外,Excel 还录制了其它在字体页的选项 
——字体名称,字体大小,删除线,上标,下标,阴影和下划线。请看下列代码片断:  
       With Selection。Font   
              。Name = 〃Arial〃   
              。FontStyle = 〃Bold〃   
              。Size = 10   
              。Strikethrough = False   
              。Superscript = False   
              。Subscript = False   
              。OutlineFont = False   
              。Shadow = False   
              。Underline = xlUnderlineStyleNone   
              lorIndex = 13   
       End With   
如果你使用了对话框,Excel总会录制所有的设定。这些多余的代码使得你的宏代码冗长而难以理 
解。因此,你完成录制宏后,最好检查一遍你录制的代码并删除不必要的行。  
1.  在下面的代码中,删除带删除线的行:  
       With Selection。Font   
              。Name = 〃Arial〃   
              。FontStyle = 〃Bold〃   
              。Size = 10   
              。Strikethrough = False   
              。Superscript = False   
              。Subscript = False   
              。OutlineFont = False   
              。Shadow = False   
              。Underline = xlUnderlineStyleNone   
              lorIndex = 13   
       End With   
    清除后,在关键词With和End With之间只剩下了两句代码,这些才是你在录制宏的时候真正做 
    的设置:  
       With Selection。Font   
              。FontStyle = 〃Bold〃   
              lorIndex = 13   
       End With   
2.  找到设置数字单元格格式的代码,依照下面的例子修改代码:  
       ' Find and format cells containing numbers   
       With Selection   
              。SpecialCells(xlCellTypeConstants; 1)。Select   
              。FontlorIndex = 11 ' Sets the font color to Violet   
       End With   
       Range(〃C6〃)。Select   
3.  找到设置公式单元格格式的代码,依照下面的例子修改代码:  
       ' Find and format cells containing formulas   
       Selection。SpecialCells(xlCellTypeFormulas; 23)。Select   
       With Selection。Font   
              。FontStyle = 〃Bold〃   
              lorIndex = 3   

                                           23 

… 页面 40…

        End With   
4.  找到下述两行代码:  
        Range(〃A1:A3〃)。Select   
        Selection。EntireRow。Insert  
5.  用下面的一句代码取代上面的两句代码:  
        Range(〃A1:A3〃)。EntireRow。Insert  
注意,Excel使用了R1C1形式来设置选中单元格个公式:  
        ActiveCell。FormulaR1C1 = 〃Text〃   
        ActiveCell。FormulaR1C1 = 〃Numbers〃   
        ActiveCell。FormulaR1C1 = 〃Formulas〃   
宏录制器使用了一次“ActiveCell”和一次“Selection”来选择当前单元格。这两个词都称为属 
性。你将在第二章里学习属性。当仅有一个单元格被选中时,你可以随意使用“ActiveCell”或者 
 “Selection”。  

10 测试修改好的宏  

当你修改宏的时候,很可能会带入一些错误。例如,你可能会删除一行重要的代码,或者可能不注 
意清除或忽略了一个逗点(停顿)。为了确保你的宏在你修改之后还能正确地工作,你必须运行它。  
在VBE窗口,将光标放在宏代码WhatsInACell的任意行,选择“运行”-“运行模块/窗体”  
如果你在修改代码的时候,没有带入任何问题,那么宏将顺利运行,而不会有任何报错。你需要切 
换到Excel界面取看你的宏运行的结果。你可以点击任务栏,或者按Alt+F11回到Excel界面。  
如果宏在运行的过程中遇到错误,你将会看到一个对话框显示发现的错误类型。在你运行宏命令之 
前,你必须确保你的宏可以在当前激活的工作表里面运行。例如,你当前电脑上激活的时一个空的 
Excel工作表,你试图运行WhatsInACell,这时你将看到一个错误信息:“运行时间错误‘1004’- 
找不到单元格”。点击“结束”按钮,在你重新运行宏之前,确保选择了正确的工作表。  
如果选择的工作表只含有文本,你在运行WhatsInACell的时候,VB试图选择含有数字的单元格时会 
遇到同样的“找不到单元格”的错误。  
如果你忽略了With Selection。Font中的逗点,VB会出现“运行时间错误‘424’-需要对象”的信 
息。点击信息框上的“调试”按钮,你将进到代码窗口。同时,VB会进入“中断”模式,并且将有 
问题的行用黄色突出出来。在你更正代码后,VB可能会弹出信息:“这个操作将会重置你的工程, 
继续?”点击确定。尽管你可以在中断模式修改代码,但是,有些修改会终止宏的继续执行。更正 
宏代码后,重新运行它,也许你会需要解决更多的错误,之后才能顺利地运行它。你将在第二章和 
第十三章里面学到更多的关于如何处理VBA错误的方法。  

11 两个层面运行宏的方法  

你既可以在Excel界面运行宏,也可以在VB编辑器界面运行它。当你从VB编辑器屏幕执行 
WhatsInACell时,VB在屏幕之后执行这些代码。你看不到VB选择和设置格式,也看不到VB插入三空 
行做图例。为了观察到VB的执行情况,你必须在Excel界面,通过选择“工具”-“宏”,或者将你 
Excel界面和VB编辑器界面同时显示在电脑屏幕上(参见图1-6)  

                                              24 

… 页面 41…

  
图1-6 如果你从VB编辑器运行宏时,想观察宏的运行情况,你必须将Excel界面和VB编辑器并排地 
布置在一起  
按照下列步骤来并排布置你的Excel界面和VB编辑器界面:  
1.  在任务栏上的空白处单击右键。任务栏在屏幕的下端,“开始”按钮的位置。  
2.  下列菜单中,选择“纵向平铺窗口”  
3.  最小化那些不需要的窗口,重复步骤1  
4. 
小提示:按 回车 [Enter] 键 返回书目,按 ← 键 返回上一页, 按 → 键 进入下一页。 赞一下 添加书签加入书架