对象的基本操作
- 格式:doc
- 大小:104.00 KB
- 文档页数:7
窗口(Window 对象)基本操作应用示例Window 对象代表一个窗口,约有48个属性和14个方法,能对窗口特性进行设置和操作。
Window 对象是Windows 集合中的成员,对于Application 对象来说,Windows 集合包含该应用程序中的所有窗口;对于Workbook 对象来说,Windows 集合只包含指定工作簿中的窗口。
下面介绍一些示例,以演示和说明Window 对象及其属性和方法的运用。
示例 02-01:激活窗口(Activate 方法)Sub SelectWindow()Dim iWin As Long i As Long bWinMsgBox "依次切换已打开的窗口"iWin = Windows.CountMsgBox “您已打开的窗口数量为:” & iWinFor i = 1 To iWinWindows(i).ActivatebWin = MsgBox("您激活了第" & i & "个窗口,还要继续吗?" vbYesNo)If bWin = vbNo Then Exit SubNext iEnd Sub示例02-02:窗口状态(WindowState属性)[示例02-02-01]Sub WindowStateTest()MsgBox "当前活动工作簿窗口将最小化"Windows(1).WindowState = xlMinimizedMsgBox "当前活动工作簿窗口将恢复正常"Windows(1).WindowState = xlNormalMsgBox "当前活动工作簿窗口将最大化"Windows(1).WindowState = xlMaximizedEnd Sub示例说明:使用WindowState属性可以返回或者设置窗口的状态。
第五章Range对象基本操作应用示例Range对象可能是VBA代码中最常用的对象,Range对象可以是某一单元格、某一单元格区域、某一行、某一列、或者是多个连续或非连续的区域组成的区域。
下面介绍Range对象的一些属性和方法。
[示例05-01] 赋值给某单元格[示例05-01-01]Sub test1()Worksheets("Sheet1").Range("A5").Value = 22MsgBox "工作表Sheet1内单元格A5中的值为" _& Worksheets("Sheet1").Range("A5").ValueEnd Sub[示例05-01-02]Sub test2()Worksheets("Sheet1").Range("A1").Value = _Worksheets("Sheet1").Range("A5").ValueMsgBox "现在A1单元格中的值也为" & _Worksheets("Sheet1").Range("A5").ValueEnd Sub[示例05-01-03]Sub test3()MsgBox "用公式填充单元格,本例为随机数公式"Range("A1:H8").Formula = "=Rand()"End Sub[示例05-01-04]Sub test4()Worksheets(1).Cells(1, 1).Value = 24MsgBox "现在单元格A1的值为24"End Sub[示例05-01-05]Sub test5()MsgBox "给单元格设置公式,求B2至B5单元格区域之和"ActiveSheet.Cells(2, 1).Formula = "=Sum(B1:B5)"End Sub[示例05-01-06]Sub test6()MsgBox "设置单元格C5中的公式."Worksheets(1).Range("C5:C10").Cells(1, 1).Formula = "=Rand()"End Sub[示例05-02] 引用单元格Sub Random()Dim myRange As Range'设置对单元格区域的引用Set myRange = Worksheets("Sheet1").Range("A1:D5")'对Range对象进行操作myRange.Formula = "=RAND()"myRange.Font.Bold = TrueEnd Sub示例说明:可以设置Range对象变量来引用单元格区域,然后对该变量所代表的单元格区域进行操作。