PreviousSelections 属性

       

返回一个数组,数组中包括最近选定的 4 个区域或者名称。此数组中的每一个元素是一个 Range 对象。Variant 类型,只读。

expression.PreviousSelections(Index)

expression   可选。该表达式返回一个 Application 对象。

Index   Variant 类型,可选。前面区域或者名称的索引号(从 1 到 4)。

说明

每次使用“名称”框或者用“编辑”菜单中的“定位”命令转到另一个区域或者另一个单元格,或者每次宏调用 Goto 方法时,前一区域就会被记录到数组的第一个元素中,其他元素依次向下顺延。

示例

本示例显示前一次选定的数组中所有项的单元格地址。如果前一次没有选定任何内容,则 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"