【VBA编程】11.Application对象

【VBA编程】11.Application对象
Application对象常⽤属性
【ActiveCell属性】
ActiveCell属性返回⼀个Range对象，表⽰当前窗⼝或指定窗⼝中的单元格。

如果窗⼝没显⽰⼯作表，则此属性⽆效。

【代码区域】
Sub激活单元格()
Worksheets("sheet1").Activate '激活当前单元格
With ActiveCell
.Value = "娑娜"
With .Font
.Bold = True'设置为粗体
.Italic = True'设置为斜体
.Size = 20'设置字体⼤⼩
End With
End With
End Sub
【结果展⽰】
注意：之所以该单词显⽰于B2，是因为在执⾏之前我已经将⿏标悬停此处。

【ActiveWorkbook属性】
ActiveWorkbook是⼀个只读属性，⽤于返回⼀个Workbook对象，该对象表⽰活动窗⼝中的⼯作簿
没有打开的窗⼝或信息窗⼝或剪贴板窗⼝作为活动窗⼝，则返回Nothing
【代码区域】
Sub测试ActiveWorkbook属性()
Dim obj As Object
Set obj = ActiveWorkbook
Debug.Print CStr(obj.Application.Value)
End Sub
【结果展⽰】
【Caption属性】
Caption是⼀个可读写属性，⽤于设置或返回Microsoft的主窗⼝标题栏上显⽰的名称，其返回的是String类型。

如果没有为Microsoft的主窗⼝设置标题，或者将其值设置为Empty,则将此属性返回⼀个
"Microsoft Excle"作为默认标题
【代码区域】
Sub更改标题()
Application.Caption = "OLIVER--Excle 2013"
End Sub
【结果展⽰】
【Range属性】
Range属性返回⼀个Range对象，表⽰⼀个单元格或单元格区域
Range实例地址：
【Selection属性】
Selection属性表⽰为Application对象返回在活动窗⼝中选定对象
【代码区域】
Sub测试Selection属性()
Worksheets("sheet1").Activate
Range("A1").Select
Selection.Clear '清除sheet1⼯作表中内容
End Sub
【结果展⽰】
执⾏前
执⾏后
【sheets⽅法】
sheets属性是⼀个只读属性，⽤于返回⼀个sheets集合，其类型是⼀个Sheets对象Sub测试sheets属性()
Dim wss As Sheets
Dim i As Integer
Application.Workbooks(1).Activate
Set wss = Application.Sheets
Debug.Print "当前⼯作簿名称如下："
Debug.Print
For i = 1To Sheets.Count
Debug.Print Sheets(i).name
Next
End Sub
【结果展⽰】。