通过

Application.SaveSheetSelection Method

  • 项目
Project Developer Reference

Saves row and column information for a selected sheet view.

Syntax

expression.SaveSheetSelection

expression   A variable that represents an Application object.

Return Value
Boolean

Example

The following example demonstrates how SaveSheetSelection and RestoreSheetSelection work.

Visual Basic for Applications 
  Sub SelectionDemo()

'1) In your sheet view, make column/row/cell selections, then run this 
'2) macro which toggles the Project Guide display state, and 
'   clears the ActiveSelection (saved via Application.SaveSheetSelection).
'3) The macro then restores the ActiveSelection via Application.RestoreSheetSelection

'Save the ActiveSelection in the active sheet view
Application.SaveSheetSelection
    
'Toggle the Project Guide display state
Dim boolPGON As Boolean
boolPGON = Application.DisplayProjectGuide
    
If boolPGON = True Then
    Application.DisplayProjectGuide = False
Else
    Application.DisplayProjectGuide = True
End If

MsgBox "The Project Guide display state has been toggled. " _
    & "Notice that your active selection was cleared in the " _
    & "process." & Chr(10) & Chr(10) _
    & "Now the call to RestoreSheetSelection restores the ActiveSelection...", _
    vbOKOnly
    
Application.RestoreSheetSelection



End Sub

See Also