《Excel word ppt office使用技巧大全(DOC格式)》第5章

Private　Sub　Workbook_Open（）　Application。WindowState　=　xlMaximized　End　Sub　38　、　
ActiveSheet　属性　参阅应用于示例特性返回一对象，该对象代表活动工作簿中的，或者指定　
的窗口或工作簿中的活动工作表（最上面的工作表）。只读。如果没有活动的工作表，则返回
Nothing。　说明　如果未给出对象识别符，本属性返回活动工作簿中的活动工作表。　如果某一　
工作簿在若干个窗口中出现，那么该工作簿的　ActiveSheet　属性在不同窗口中可能不同。　示　
例　本示例显示活动工作表的名称。　MsgBox　〃The　name　of　the　active　sheet　is　〃　&
ActiveSheet。Name　39、Calculate　方法　参阅应用于示例特性计算所有打开的工作簿、工作簿　
中的一张特定的工作表或者工作表中指定区域的单元格，如下表所示：　要计算　依照本示例　所　
有打开的工作簿　Application。Calculate （或只是　Calculate）　指定工作表　指定工作表　指　
定　区　域 Worksheets（1）。Rows（2）。Calculate expression。Calculate expression 对　于
Application　对象可选，对于　Worksheet　对象和　Range　对象必需。该表达式返回―应用于‖　
列表中的对象之一。　示例　本示例计算　Sheet1　已用区域中　A　列、B　列和　C　列的公式。
Worksheets（〃Sheet1〃）。UsedRange。Columns（〃A：C〃）。Calculate　程序的核心是算法问题　40、　
End　属性　参阅应用于示例特性返回一个　Range　对象，该对象代表包含源区域的区域尾端的单　
元格。等同于按键　End＋　向上键、End＋　向下键、End＋　向左键或　End＋　向右键。Range　对象，　
只读。　expression。End（Direction）　expression　必需。　该表达式返回―应用于‖列表中的对　
象之一。　Direction　XlDirection　类型，必需。所要移动的方向。　XlDirection　可为
XlDirection　常量之一。　xlDown　xlToRight　xlToLeft　xlUp　示例　本示例选定包含单元格　B4
的区域中　B　列顶端的单元格。
XXIV
…………………………………………………………Page　25……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
Range（〃B4〃）。End（xlUp）。Select　本示例选定包含单元格　B4　的区域中第　4　行尾端的单元格。
Range（〃B4〃）。End（xlToRight）。Select　本示例将选定区域从单元格　B4　延伸至第四行最后一　
个 包 含 数 据 的 单 元 格 。 Worksheets（〃Sheet1〃）。Activate Range（〃B4〃；
Range（〃B4〃）。End（xlToRight））。Select　41、应用于　CellFormat　和　Range　对象的　Locked　属　
性。　本示例解除对　Sheet1　中　A1：G37　区域单元格的锁定，以便当该工作表受保护时也可对　
这　些　单　元　格　进　行　修　改　。 Worksheets（〃Sheet1〃）。Range（〃A1：G37〃）。Locked = False
Worksheets（〃Sheet1〃）。Protect　42、Next　属性　参阅应用于示例特性返回一个　Chart、Range
或　Worksheet　对象，该对象代表下一个工作表或单元格。只读。　说明　如果指定对象为区域，　
则本属性的作用是仿效　Tab，但本属性只是返回下一单元格，并不选定它。　在处于保护状态　
的工作表中，本属性返回下一个未锁定单元格。在未保护的工作表中，本属性总是返回紧靠指　
定单元格右边的单元格。　示例　本示例选定　sheet1　中下一个未锁定单元格。如果　sheet1　未　
保护，选定的单元格将是紧靠活动单元格右边的单元格。　Worksheets（〃Sheet1〃）。Activate
ActiveCell。Next。Select　43、想通过target来设置　（A1：A10）区域内有改动，就发生此事件。　
不知道如何　if　target。row　=　1　and　target。column