【烟花原创】VBA零基础之第83篇 Application对象（一）

hwc2ycy

Range对象常用的方法，属性均介绍完成，余下不常用的大家用时可以F1，录制宏来学习。

今天我们开始了解Application对象。

在Excel VBA中，这个对象代表Microsoft Excel 应用程序自身。

ActiveCell 属性

　返回一个 Range 对象，它代表活动窗口（最上方的窗口）或指定窗口中的活动单元格。

　如果窗口中没有显示工作表，此属性无效。

　由于如果活动表不是工作表则 ActiveCell 属性无效，

　说明：

　　如果不指定对象识别符，此属性返回活动窗口中的活动单元格。

　　请仔细区分活动单元格和选定区域。

　　活动单元格为选定区域内部的一个单元格。

　　而选定区域可以包含多个单元格，但只有一个单元格为活动单元格。

　下列表达式都是返回活动单元格，并且都是等效的。

　　ActiveCell

　　Application.ActiveCell

　　ActiveWindow.ActiveCell

　　Application.ActiveWindow.ActiveCell

　示例：

　　If ActiveCell Is Nothing Then Exit Sub

　　'先判断属性是否有效

　　MsgBox ActiveCell.Address & vbCr &ActiveCell.Value

　　'消息框显示活动单元格的地址和值

ActiveChart 属性

　返回一个 Chart 对象，它代表活动图表（嵌入式图表或图表工作表）。

　嵌入式图表在被选中或激活时被认为是活动的。

　当没有图表处于活动状态时，此属性返回 Nothing。

　示例：

　　If ActiveChart Is Nothing Then Exit Sub

　　'判断属性是否有效

　　ActiveChart.HasLegend = NotActiveChart.HasLegend

　　'切换图例的显示与隐藏

ActiveSheet 属性

　返回一个对象，它代表活动工作簿中或指定的窗口或工作簿中的活动工作表（最上面的工作表）。

　如果没有活动的工作表，则返回 Nothing。

　说明：

　　如果不指定对象识别符，则此属性返回活动工作簿中的活动工作表。

　　如果某个工作簿出现在若干个窗口中，那么该工作簿的 ActiveSheet 属性在不同窗口中可能不同。

　示例：

　　If ActiveSheet Is Nothing Then Exit Sub

　　MsgBox ActiveSheet.Name

ActiveWindow 属性

　返回一个 Window 对象，该对象表示活动窗口（顶部窗口）。

　如果没有打开的窗口，则返回 Nothing。

　该属性只读。

　示例：

　　If ActiveWindow Is Nothing Then Exit Sub

　　MsgBox ActiveWindow.Caption

　　'显示窗口标题

ActiveWorkbook 属性

　返回一个 Workbook 对象，该对象表示活动窗口（顶部窗口）中的工作簿。

　如果没有打开的窗口，或者“信息”窗口或“剪贴板”窗口为活动窗口，则返回 Nothing。

　示例：

　　If ActiveWorkbook Is Nothing Then Exit Sub

　　If Len(ActiveWorkbook.Path) = 0 Then

    　'如果工作簿未保存，则提示

　　　MsgBox "工作簿尚未保存"

　　Else

    　　'保存

   　　ActiveWorkbook.Save

　　End If

Cells 属性

　返回一个 Range 对象，它代表活动工作表中的所有列。

　如果活动文档不是工作表，则此属性无效

Columns 属性

　返回一个 Range 对象，它代表活动工作表中的所有列。

　如果活动文档不是工作表，则 Columns 属性失效。

　说明：

　　在不使用对象识别符的情况下使用此属性等效于使用 ActiveSheet.Columns。

Rows 属性

　返回一个 Range 对象，它代表活动工作表中的所有行。

　如果活动文档不是工作表，则 Rows 属性失效。

Charts 属性

　返回一个代表活动工作簿中所有图表工作表的集合。

　示例:

　　MsgBox Charts.Count

Selection 属性

　为 Application 对象返回在活动窗口中选定的对象。

说明：

　返回的对象类型取决于当前所选内容（例如，如果选择了单元格，此属性将返回 Range 对象）。
　如果未选择任何内容，Selection 属性将返回 Nothing。

　在不使用对象识别符的情况下，使用此属性等效于使用 Application.Selection。

Sheets 属性

　返回一个 Sheets 集合，它代表活动工作簿中所有的工作表。

　说明：

　　在不使用对象识别符的情况下使用此属性等效于使用 ActiveWorkbook.Sheets。

Workbooks 属性

　返回一个 Workbooks 集合，该集合表示所有打开的工作簿。

　说明：

　　在不使用对象识别符的情况下，使用该属性相当于使用

　　Application.Workbooks

Worksheets 属性

　对于 Application 对象，返回一个 Sheets 集合，它代表活动工作簿中的所有工作表。

　对于 Workbook 对象，返回一个 Sheets 集合，它代表指定工作簿中的所有工作表。

说明：

　在不使用对象识别符的情况下，使用此属性将返回活动工作簿中所有的工作表。

　此属性不返回宏表；使用 Excel4MacroSheets 属性或 Excel4IntlMacroSheets 属性可返回这些表。

tingfeng461002

ANDY0393

谢谢分享，标记，八十三