Invert Selection

[stelea]

Tin minte ca la excel 2003 (si versiunile anterioare) puteai selecta cateva celule, apoi din meniu Edit > Invert Selection erau selectate toate celelalte celule (in afara de acelea selectate initial). Era destul de folositoare aceasta functionalitate. Stie cineva daca mai exista si in Excel 2007?

[Dr.Excel]

Din pacate invert selection nu exista in nicio versiune de Excel. Toate comenzile ce nu apar in interfata le gasesti in Excel Options/Customize/All Commands
Apoi poti sa vezi toate comenzile ce au legatura cu selectiile. In excel 2007 sunt mai multe decat in Excel 2003, dar din pacate NU exista ce vrei tu

Ti-am facut totusi un macro care rezolva problema

Cod: Selectaţi tot

Sub InvertSelection()
    
    Dim rBig As Range
    Dim rSmall As Range
    Dim cell As Range
    Dim rNew As Range
    
    If TypeName(Selection) = “Range” Then
        Set rBig = Selection.Parent.UsedRange
        Set rSmall = Selection
    End If
    
    If Not rSmall Is Nothing Then
        For Each cell In rBig.Cells
            If Intersect(cell, rSmall) Is Nothing Then
                If rNew Is Nothing Then
                    Set rNew = cell
                Else
                    Set rNew = Union(rNew, cell)
                End If
            End If
        Next cell
    End If
    
    If Not rNew Is Nothing Then
        rNew.Select
    End If

spune-mi daca este ok 
            
End Sub