贝壳电子书 > 基础科学电子书 > excel_vba_编程教程(完整版) >

第26章

excel_vba_编程教程(完整版)-第26章

小说: excel_vba_编程教程(完整版) 字数: 每页4000字

按键盘上方向键 ← 或 → 可快速上下翻页,按键盘上的 Enter 键可回到本书目录页,按键盘上方向键 ↑ 可回到本页顶部!
————未阅读完?加入书签已便下次继续阅读!



VBA操作                                     立即窗口输入  
选择单元格A1                                Cells(1)。Select or Cells。Item(1)。Select  
选择单元格C1                                Cells(3)。Select or Cells。Item(3)。Select  
选择单元格IV1                               Cells(256)。Select or Cells。Item(256)。Select  
选择单元格A2                                Cells(257)。Select or Cells。Item(257)。Select  
  
注意,Item是返回一个集合成员的属性。因为Item是一个集合的默认成员,你可以直接引用工作表 
单元格,而不必明确地使用Item属性。  
现在你发现了两种方法选择单元格(Range属性和Cells属性),你也许很迷惑为什么要使用更复杂 
的Cells属性呢?很明显Range属性更具有可读性,毕竟,你远在决定学习VBA之前就在Excel公式和 
函数里面使用了Range引用。然而,当需要将单元格当做集合操作的时候,Cells属性则使用更方便。 
使用这个属性去访问单元格集合中的所有单元格或者单个单元格。  

28 使用 Offset 属性  

另外一个引用工作表单元格非常灵活的方法是使用Offset属性。当工作表任务自动化时,你也许不 
知道某个单元格的确切地址。你如何能够选择一个你根本不知道地址的单元格?你可以让Excel基 
于当前选择的单元格来选择一个位置。Offset属性通过计算从开始选择的单元格向下或向上移动的 
具体行数,来得到新的区域。同样也可以从当前选择的单元格区域向右或向左移动具体的列数。 
Offset属性使用两个自变量来获得新单元格区域的地址。第一个自变量表示行偏移,第二个自变量 
则表示列偏移。我们来测试一下几个例子:  
VBA操作                                     立即窗口输入  
选择单元格A1下面一行和右边三列的单元格      Range(〃A1〃)。Offset(1; 3)。Select  
选择单元格D15上面两行和左边一列的单元格     Range(〃D15〃)。Offset(…2; …1)。Select  
选择当前单元格上面一行的单元格(同列)      ActiveCell。Offset(…1; 0)。Select  
  
上面的第一个例子里,Excel选择的时单元格D2。一旦你输入了第二个例子,Excel选择了单元格C13。  
如果单元格A1和D15已经被选中了,你也可以将上面的两个例子改写为这样:  
    Selection。Offset(1; 3)。Select   
    Selection。Offset(…2; …1)。Select  
注意,上面第三个例子里的第二个自变量是0,第一个或第二个自变量为0时,Offset属性相应表示 
当前行或当前列。如果当前活动单元格在第一行,那么指令ActiveCell。Offset(…1; 0)。Select会 
导致错误。  
当使用Offset属性时,你可能有时需要改变选择区域的大小。假设开始选择的区域是A5:A10,如何 
将选择区域向下移动两行,向右移动两列,然后再改变新选择区域的大小呢?假设新的选择区域应 
该是C7:C8。Offest属性只能完成前面部分,后面部分要求另外一个属性来完成。Excel有个专门的 
Resize属性,你可以结合Offset属性和Resize属性来回到上面的问题。在你结合这两个属性之前, 

                                            63 

… 页面 80…

我们先来看看如何独立地使用它们:  
1。  将Excel窗口和VB窗口并排显示  
2。  激活立即窗口,并且输入下述指令:  
    Range(〃A5:A10〃)。Select   
    Selection。Offset(2; 2)。Select   
    Selection。Resize(2; 4)。Select  
上面的第一条指令选择区域A5:A10,当前活动单元格是A5。第二条指令将选区偏移到C7:C12。单元 
格C7处于活动单元格A5的向下两行和向右两列。现在,活动单元格是C7。最后一条指令将当前选区 
改变大小,单元格区域C7:C8被选中了,而不再是C7:C12。象Offset属性一样,Resize属性也需要 
两个自变量。第一个是你要选取的行数,第二个则是要选取的具体列数因此,指令 
Selection。Resize(2; 4)。Select将当前选择区域改为两行和四列  
后面两行指令可以结合成下面方式:  
    Selection。Offset(2; 2)。Resize(2; 4)。Select  
上面的例子,先是Offset属性计算得到新区域的起始点(译者:选区左上角的单元格),接着是Resize 
属性决定新选区的大小,然后是Select方法选取具体的单元格区域。  
技巧2-6:录制单元格的选择  
宏录制器默认地使用Range属性录制选择单元格。如果你打开宏录制器,并且选择单元格A2,输入 
 “text”,再选择单元格A5,你将在VB编辑器窗口里得到下述代码:  
Range(〃A2〃)。Select   
ActiveCell。FormulaR1C1 = 〃text〃   
Range(〃A5〃)。Select  
如果你使用相对引用方式,宏录制器会使用Offset属性。你可以在录制前,点击宏录制工具条上的 
相对引用按钮。宏录制器将得到如下代码:  
ActiveCell。Offset(…3; 0)。Range(〃A1〃)。Select   
ActiveCell。FormulaR1C1 = 〃text〃   
ActiveCell。Offset(3; 0)。Range(〃A1〃)。Select  
当你使用相对引用方式录制宏时,过程总是会选择相对于当前活动单元格的单元格。注意,上面指 
令中的第一和第三行的引用单元格A1,即使我们没有涉及到A1的任何东西。你可能记得,在第一章 
中,宏录制器用它自己的方式将事情搞定。为了将上面的指令变简单一些,你可以删除对单元格A1 
的引用:  
ActiveCell。Offset(…3; 0)。Select   
ActiveCell。FormulaR1C1 = 〃text〃   
ActiveCell。Offset(3; 0)。Select  
使用相对引用来录制过程后,不要忘记再次点击这个按钮,如果下次录制一个非相对地址的过程。  

29 选择单元格的其它方法  

如果你经常需要访问你工作表里某些遥远的单元格,你可能已经对下面的键盘快捷键很熟悉:End+ 
上箭头, End+下箭头, End+左箭头和End+右箭头。在VBA中,你可以使用End属性快速地移动到遥 
远的单元格。  
VBA操作                                   立即窗口输入  
选择任何行的最后一个单元格                ActiveCell。End(xlright)。Select  
选择任何列的最后单元格                    ActiveCell。End(xldown)。Select  
选择任何行的第一个单元格                  ActiveCell。End(xleft)。Select  
选择任何列的第一个单元格                  ActiveCell。End(xlup)。Select  
  
注意,End属性要求一个自变量来表示你要移动的方向。使用下列Excel内置的常数来跳到具体的方 
向:xlright; xlleft; xlup; xldown。  

30 选择行和列  

Excel使用EntireRow和EntireColumn属性来选择整行或整列。  

                                            64 

… 页面 81…

VBA操作                                  立即窗口输入  
选择当前活动单元格所在行的整行           Selection。EntireRow。Select  
选择当前活动单元格所在列的整列           Selection。EntireColumn。Select  
  
你选择了一个单元格区域,你也许想要知道选区包括多少行,多少列。我们来让Excel计算区域 
A1:D15中的行数和列数:  
1。  在立即窗口里输入下述VBA语句  
    Range(〃A1:D15〃)。Select  
如果Excel窗口可见,当你按回车后,VBA会选中区域A1:D15  
2。  输入下列语句来得到选区的行数  
    ?Selection。Rowsunt  
一旦你回车,VBA在下一行显示结果。你的选择包括15行  
3。  输入下列语句来得到选区的列数  
    ?Selectionlumnsunt  
现在VBA告诉你,选中的区域A1:D15占据了四列的宽度。  
4。  将光标放在关键字Rows或Columns中的任意位置,并且按下F1,获取这些有用属性的更多信息。  

31 获取工作表信息  

Excel工作表有多大?它有多少单元格,列和行?即使你忘记了这些细节,使用Count属性。  
VBA操作                                     立即窗口输入  
计算Excel工作表里总单元格数                 ?Cellsunt  
计算Excel工作表里总行数                     ?Rowsunt  
计算Excel工作表里总列数                     ?Columnsunt  
  
 Excel 2002工作表里有16;777216个单元格,65;536行和256列。  

32 往工作表输入数据  

输入工作表里的信息可以是文本,数字或者公式。你可以使用Range对象的两种属性之一来往单元 
格或单元格区域里输入数据:Value属性或者Formula属性。  
Value属性:  
    ActiveSheet。Range(〃A1:C4〃)。Value = 〃=4 * 25〃  
Formula属性:  
    ActiveSheet。Range(〃A1:C4〃)。Formula = 〃=4 * 25〃  
上面两种例子,A1单元格都显示4乘25的结果100。  
VBA操作                                     立即窗口输入  
在单元格A5里输入文本“Amount Due”          Range(〃A5〃)。Formula = 〃Amount Due〃  
在单元格D21里输入数字“123”                Range(〃D21〃)。Formula = 123   
                                            Range(〃D21〃)。Value = 123  
在单元格B4里输入公式“=D21*3”              Range(〃B4〃)。Formula = 〃=D21 * 3〃  
  

33 返回工作表中的信息  

毫无疑问,你在某些VB过程中可能需要返回单元格或者单元格区域的内容。虽然你既可以使用Value 
属性也可以使用Formula属性,但是,这次,Range对象的这两个属性是不可互用的。  
    令?Range(〃A1〃)。Value将会返回值100  
    Excel将会显示公式“=4*25”而不是结果100  

                                           65 

… 页面 82…

34 单元格格式  

一个频繁的任务就是给选中的单元格或区域设置格式。你的VBA过程可能需要查明某个具体单元格 
的格式。我们可以使用NumberFormat属性来找回单元格格式:  
    ?Range(〃A1〃)。NumberFormat  
在立即窗口输入上面的问题后,Excel显示“General”(译者:中文版本是“常规”,G/通用格式), 
它表示所选的单元格没有设置任何特殊的格式。要用VBA改变单元格格式,输入下列指令:  
    Range(〃A1〃)。NumberFormat = 〃#;##0。00〃  
如果你在单元格A1里输入125,当你使用上面的指令给它设置格式后,单元格A1将显示“125。00”。 
你可以在Excel窗口的“设置单元格格式”对话框里查找必要的格式代码(“格式”-“单元格”)。 
如果你要的格式没有列在“设置单元格格式”对话框里,那么请参考在线帮助,查找创建用户定义 
的格式指导。  

                                                              

返回目录 上一页 下一页 回到顶部 0 0

你可能喜欢的