Własne klawisze skrótów

Dla tych, którzy pracują klawiaturą może okazać się, że nie wystarczające są dostępne klawisze skrótów, ale od czego VBA? Możemy sobie sami stworzyć własne klawisze skrótów wykonujące czynności jakie tylko nam się zamarzy. Wystarczy tylko przypisać klawisz skrótu do makra: menu: "narzędzia/makro/makra" wybieramy nazwę makra, do którego chcemy przypisać klawisz i naciskamy przycisk "opcje" i wybieramy literę skrótu.

Najczęściej używane przeze mnie osobiście własne klawisze skrótów, to:

Ctrl+Q - wklej wartości:

Sub wklejspecjalnie()

 

    Selection.PasteSpecial Paste:=xlPasteValues
 

End Sub

 

Ctrl+A - wklej formuły:

 

Sub wklejspecjalnie()

 

    Selection.PasteSpecial Paste:=xlPasteFormulas
 

End Sub

 

Ctrl+E - zaznacz wiersz na żółto i przejdź do komórki poniżej, jeśli już zaznaczony na ten kolor to brak wypełnienie, często potrzebuje taki klawisz przy sprawdzaniu jakichś danych, odznaczam sobie wtedy te wiersze, które już sprawdziłem:

 

Sub zaznaczwiersz()

    If Selection.Interior.ColorIndex <> 36 Then
        Selection.EntireRow.Interior.ColorIndex = 36
    Else
        Selection.EntireRow.Interior.ColorIndex = xlNone
    End If

    Selection.Offset(1, 0).Select

End Sub

 

Ctrl+L szybkie otwarcie pewnego, często używanego szablonu:

 

Sub otworz()

 

    Workbooks.Open Filename:="C:\My Documents\Spis.xlt"
 

End Sub

 

Ctrl+Z Kopiuje sumę zaznaczonych komórek do schowka i następnie umożliwia wklejenie sumy jako jednej liczby do innej komórki - patrz: Sumowanie wartości komórek przez kopiowanie.

---