Application.PreviousSelections 属性

返回最后选择的四个区域或名称的数组。数组中的每个元素就是一个 Range 对象。Variant 类型，只读。

语法

表达式.PreviousSelections(Index)

表达式 一个代表 Application 对象的变量。

参数

名称	必选/可选	数据类型	说明
Index	可选	Variant	前一区域或者名称的索引号（从 1 到 4）。

说明

每次使用“名称”框或“定位”命令（“编辑”菜单）转到一个区域或单元格，或每次宏调用 Goto 方法时，前一区域都会作为第 1 个元素添加该数组中，而数组中的其他项则相应下移。

示例

本示例显示前一次选定的数组中所有项的单元格地址。如果前一次没有选定任何内容，则 LBound 函数将返回一个出错标志。该错误将被捕获，并显示一个消息框。

示例代码

示例代码
`On Error GoTo noSelections For i = LBound(Application.PreviousSelections) To _ UBound(Application.PreviousSelections) MsgBox Application.PreviousSelections(i).Address Next i Exit Sub On Error GoTo 0 noSelections: MsgBox "There are no previous selections"`

On Error GoTo noSelections
For i = LBound(Application.PreviousSelections) To _
            UBound(Application.PreviousSelections)
    MsgBox Application.PreviousSelections(i).Address
Next i
Exit Sub
On Error GoTo 0

noSelections:
    MsgBox "There are no previous selections"

请参阅