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 属性可返回这些表
联系客服