Excel – Zmiana przypisanych funkcji klawiszom funkcyjnym

Pobierz przykładowe pliki do ćwiczenia.

Jakiś czas temu natrafiłem na ciekawy fragment kodu VBA (utwórz nowy moduł i wklej poniższy kod lub otwórz plik 01 klawiszF1.xlsm):

Private Sub KlawiszF1()
    MsgBox "O! nacisnąłeś klawisz F1", 64
End Sub

Sub Przypisz()
    Application.OnKey "{F1}", "KlawiszF1"
End Sub

Po uruchomieniu procedury Przypisz od tej pory zostanie przedefiniowany klawisz funkcyjny F1. Od tej pory po naciśnięciu klawisza F1 użytkownik zamiast pomocy zobaczy żartobliwy komunikat o treści: O! nacisnąłeś klawisz F1.

Wbrew pozorom jest to dość ciekawa opcja gdyż pisząc jakąś większą aplikację w VBA możemy przypisać dla niektórych skrótów klawiszowym możliwość uruchomienia naszej aplikacji.

Jeśli chcemy, aby nasze makro uruchamiało się automatycznie wraz z otworzeniem skoroszytu należy zmienić nazwę funkcji z Przypisz na auto_open (zobacz plik 02 klawiszF1_autoopen.xlsm)

Niestety, ale możemy przedefiniować tylko skóry klawiszowe dla klawiszy funkcyjnych (wraz z kombinacjami z klawiszami Alt, Ctrl i Shift). Excel nie pozwala na przedefiniowanie istniejących skrótów klawiszowych dla liter (np. Ctrl+B). No, ale przedefiniujmy skróty klawiszowe te, które się da.

Przykładowy kod wraz z graficzną zachętą do włączenia makr znajdziesz w pliku 03 klawisze dowcip.xlsm

Możesz temu plikowi zmienić nazwę na np. raport.xlsm i wysłać do kolegi zza biurka.

Własny dodatek do programu Excel

Możemy nasz skoroszyt zapisać jako specjalny dodatek programu Excel i ustawić, aby był otwierany przy każdym uruchomieniu programu Excel. W tym celu należy otworzyć plik 03 klawisze dowcip.xlsm a następnie wybierz opcję Plik->Zapisz jako. Jako typ wybierz Dodatek programu Excel (*.xlam). Program Excel zaproponuje, aby dodatek zapisać w specjalnym folderze

c:\Users\<NAZWA UŻYTKOWNIKA>\AppData\Roaming\Microsoft\AddIns\

Następnie wybierz opcję Plik->Opcje. Pojawi się okno dialogowe Opcje programu Excel.

Kliknij w zakładkę Dodatki następnie w dolnej części okna dialogowego upewnij się, że jest wybrana opcja Dodatki programu Excel i kliknij w przycisk Przejdź…

Pojawi się okno dialogowe Dodatki. Zaptaszkuj nowo utworzony dodatek (u mnie nazywa się 04 Klawisze Dowcip Addin) i kliknij w przycisk OK.

W ten oto sposób nasz plik będzie zawsze ładował się automatycznie po uruchomieniu programu Excel. Co najlepsze dodatki to takie niewidoczne skoroszyty z makrami.

Dodatki tworzy się po to, aby np. własne funkcje zawsze ładowały się wraz z uruchomieniem programu Excel, w naszym przypadku ten dodatek służy tylko do zirytowania nielubianego kolegi w biurze.

Ten wpis został opublikowany w kategorii Kawały biurowe i oznaczony tagami , , , , , , . Dodaj zakładkę do bezpośredniego odnośnika.

Dodaj komentarz

Twój adres e-mail nie zostanie opublikowany.

Witryna wykorzystuje Akismet, aby ograniczyć spam. Dowiedz się więcej jak przetwarzane są dane komentarzy.