按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
两个自变量。第一个是你要选取的行数，第二个则是要选取的具体列数因此，指令
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窗口的“设置单元格格式”对话框里查找必要的格式代码（“格式”－“单元格”）。
如果你要的格式没有列在“设置单元格格式”对话框里，那么请参考在线帮助，查找创建用户定义
的格式指导。
图2－26 你可以使用设置单元格格式对话框里的自定义给选择的单元格或单元格区域设置不同的
格式
35 移动，复制和删除单元格
在你做一个新的工作表模板时，你会发现经常要移动，复制和删除单元格内容。VB让你的工作表编
辑工作自动化变得可能，只要使用一些容易使用的方法就行：Cut；，Copy和 Clear。
VBA操作 立即窗口输入
移动单元格A5的内容到单元格A4里面 Range（〃A5〃）。Cut
Destination：=Range（〃A4〃）
复制单元格A3里的公式到区域D5：F5中 Range（〃A3〃）py
Destination：=Range（〃D5：F5〃）
清除单元格A4里的内容 Range（〃A4〃）。Clear
Range（〃A4〃）。Cut
注意，使用在Range对象上的Cut和Copy方法都需要一个叫“Destination”的特殊自变量。这个自
变量明确你要放置剪切或复制的数据的单元格或单元格区域地址。在最后一个例子中，使用了没有
Destination自变量的Cut方法来去除具体单元格的数据。Clear方法将删除具体单元格或单元格区
域的所有内容，包括格式和批注。如果你想要明确你要删除什么，使用下列方法：
66
… 页面 83…
36 操作工作簿和工作表
既然你已经涉足操作工作表单元格和单元格区域，是时候上一个台阶，学习如何控制单个工作簿，
已经整个工作簿集合了。如果你不知道如何打开一个新工作簿的话，你就不知道准备一个新的电子
表格了；如果你不知道如何关闭工作簿，你就不知道如何将工作簿从屏幕上消除。这些重要的任务
由两个VBA方法处理：Add和Close。下面的练习将给你必要的如何操作工作簿和工作表的语言技巧。
VBA操作 立即窗口输入
打开一个新工作簿 Workbooks。Add
获得第一个工作簿的名称 ？Workbooks（1）。Name
获得打开的工作簿数目 ？Workbooksunt
激活第二个打开的工作簿 Workbooks（2）。Activate
激活工作簿Chap02。xls Workbooks（〃Chap02。xls〃）。Activate
当前活动的工作簿存盘为NewChap。xls ActiveWorkbook。SaveAs Filename：=〃NewCha