Kaip padaryti invert selection arba invertuoti pasirinkimą

Šioje situacijoje be makroso neapsieisime, bet neišsigąskime tai lengvai padaroma. Taigi ...

Pirmiausia iškviečiam kaip koki hotabyčių - stebukladarį Visual Basic'ą VBA su klavišais Alt +F11

Tuomet ieškome Insert > Module

ir įkeliam žemiau esanti kodą

Sub InvertuotiPasirinkima()
Dim cell As Range, RngSelect As Range
With ActiveSheet
.UsedRange
If Selection.Address = .UsedRange.Address Then
Else
For Each cell In .UsedRange
If Intersect(cell, Selection) Is Nothing Then
If RngSelect Is Nothing Then
Set RngSelect = cell
Else
Set RngSelect = Union(RngSelect, cell)
End If
End If
Next cell
If Not RngSelect Is Nothing Then
RngSelect.Select
End If
End If
End With
End Sub

Turėtu atrodyti taip

Tada einam į excelį ir prieš paleisdami makrosą padarome celių pasirinkimą kurį norėsime invertuoti, taigi ant programos viršutinio meniu spaudžiam Developer > Macros

Susirandame makrosą pavadinimu "InvertuotiPasirinkima" pasirenkame jį ir spaudžiam "Run"

Makrosas invertuoja pasirinkimą, jei Jums pasirinkimo laukas po invertavimo per mažas pačiame apatiniame dešiniame lentelės kampe įdėkite bent kokį ženklą.

Sėkmes žaidžiant