excell makra


1
Makropolecenie formatowania i wstęp do Visual Basic for Applications (VBA)
Ćwiczenie1.
1) Wprowadzmy poniższe dane do arkusza nowego kalkulacyjnego (i nadajmy mu swoją nazwę).
Aby skorzystać z powyższych danych upewnijmy się, że sumy w miesięczne i kwartalne są obliczone
przy zastosowaniu funkcji SUMA.
2) Procedura formatowania:
- wybierz (kliknij) jakąś dowolną komórkę
- z menu Edycja wybierz Przejdz Do
- w oknie dialogowym Przejdz Do kliknij przycisk Specjalne
- kliknij opcję Stałe następnie skasuj zaznaczenie opcji Liczby, Logiczne i Błędy (pozostaw
zaznaczony Tekst)
- kliknij OK
- zauważ, że są zaznaczone komórki zawierające tekst (postaraj się nie anulować zaznaczenia, gdyż
będziemy je formatować)
- formatuj zaznaczone komórki za pomocą menu Format > Komórki  kliknij zakładkę Czcionka
- wybierz czcionkę pogrubioną i zmień kolor na granatowy
- kliknij OK.
- wybierz (kliknij) jakąś dowolną komórkę
- z menu Edycja wybierz Przejdz Do
- w oknie dialogowym Przejdz Do kliknij przycisk Specjalne
- kliknij opcję Stałe następnie skasuj zaznaczenie opcji Tekst, Logiczne i Błędy (pozostaw
zaznaczone Liczby)
- kliknij OK
- zauważ, że są zaznaczone komórki zawierające liczby (postaraj się nie anulować zaznaczenia,
gdyż będziemy je formatować)
- formatuj zaznaczone komórki za pomocą menu Format > Komórki  kliknij zakładkę Czcionka
- wybierz czcionkę pogrubioną i zmień kolor na zielony
- kliknij OK.
- wybierz (kliknij) jakąś dowolną komórkę
- z menu Edycja wybierz Przejdz Do
- w oknie dialogowym Przejdz Do kliknij przycisk Specjalne
- kliknij opcję Formuły
- kliknij OK
2
- zauważ, że są zaznaczone komórki zawierające liczby będące wynikiem
wykonania funkcji (postaraj się nie anulować zaznaczenia, gdyż będziemy je formatować)
- formatuj zaznaczone komórki za pomocą menu Format > Komórki  kliknij zakładkę Czcionka
- wybierz czcionkę pogrubioną i zmień kolor na czerwony
- kliknij OK.
Teraz dodajmy jeszcze opis.
- zaznacz zakres A1:A3 i wybierz Wstaw > Wiersze
- kliknij w komórce A1
- wybierz menu Format > Komórki, zakładka Desenie i wybierz granatowy kolor jako
Cieniowanie komórki
- kliknij OK.
- kliknij w komórce B1 i wpisz: Tekst
- kliknij w komórce A2
- wybierz menu Format > Komórki, zakładka Desenie i wybierz zielony kolor jako Cieniowanie
komórki
- kliknij OK.
- kliknij w komórce B2 i wpisz: Liczby
- kliknij w komórce A3
- wybierz menu Format > Komórki, zakładka Desenie i wybierz czerwony kolor jako
Cieniowanie komórki
- kliknij OK.
- kliknij w komórce B3 i wpisz: Formuły
- wciśnij Enter
Efekt naszej pracy powinien wyglądać tak jak na poniższym rysunku:
Ćwiczenie 2
Mając już dokładnie zaplanowane czynności, które chcemy wykorzystać, możemy przystąpić do
zarejestrowania makra. W tym celu usuńmy formatowanie z naszego arkusza. Aby tego dokonać użyjmy
kombinacji klawiszy CTRL+A (by zaznaczyć cały arkusz) a potem menu Edycja > Wyczyść > Format.
Zaznaczamy jeszcze zakres A1:A3 i wybieramy Edycja > Usuń (w oknie dialogowym Usuń zaznaczamy
Cały wiersz) i klikamy OK.
Procedura zarejestrowania nowego makra:
1) Wybierz pojedynczą komórkę arkusza
2) Z menu Narzędzia > Makro wybierz Zarejestruj nowe makro
3
3) Pojawia siÄ™ okno dialogowe Rejestruj makro
4) Nadaj swoją nazwę (np.  FormatowanieZawartości )
5) Możesz też dodać swój opis w polu Opis (np.  różnicuje tekst, liczby i formuły )
6) Kliknij OK.
7) Teraz kolejno powtórz czynności z poprzedniego ćwiczenia i po ich wykonaniu kliknij Zatrzymaj
rejestrowanie na pasku narzędzi lub menu Narzędzia > Makro > Zatrzymaj rejestrowanie
8) Po zarejestrowaniu makropolecenia trzeba je przynajmniej raz odtworzyć, by sprawdzić czy działa ono
poprawnie
9) W celu obejrzenia wyników działania naszego makra usuńmy formatowanie z naszego arkusza. Aby
tego dokonać:
- naciśnij kombinację klawiszy CTRL + A (by zaznaczyć cały arkusz)
- potem z menu Edycja wybierz Wyczyść > Formaty
- zaznacz zakres A1:A3 i wybierz Edycja > Usuń, a w oknie dialogowym Usuń zaznacz opcję
Cały wiersz i kliknij OK.
Ćwiczenie 3
Samodzielnie zarejestruj makro usuwajÄ…ce formatowanie z arkusza.
Ćwiczenie 4
Czasami po pierwszym odtworzeniu makra dostrzegamy potrzebę poprawek. W excelu możemy dokonać
poprawek bez konieczności ponownego nagrywania. Aby rozpocząć modyfikacje należy znalezć miejsce
w którym umieścił je rejestrator makr (my wybraliśmy domyślną opcję Ten skoroszyt); najprościej
będzie otworzyć okno dialogowe Makro:
1) Z menu Narzędzia wybierz Makro > Makra
2) Wybierz z listy nazwę swojego makra ( FormatowanieZawartości jeśli tak je nazwałeś)
3) Wciśnij przycisk Edycja
4) Otworzyło się (jeśli nic nie namieszałeś& ) okno Visual Basic Editor, a okno Excela jest nadal
otwarte w tle. Między tymi oknami możemy się poruszać za pomocą skrótu ALT+F11 (lub standardowo
ALT+TAB).
W razie gdybyśmy chcieli zamknąć ekran edytora Visual Basic (ale na razie tego nie robimy!), wybieramy
ostatnie polecenie z menu Plik: Zamknij i powróć do Microsoft Excel.
Okno edytora Visual Basic służy do modyfikacji makr oraz do pisania procedur w języku Visual Basic for
Applications (VBA). W trakcie pracy z nagranymi makrami (i w rezultacie pisania własnych procedur)
zapoznamy się dokładnie ze wszystkimi elementami tego ekranu. Opcje menu oraz paski narzędzi w oknie
edytora Visual Basic (VB) różnią się one od menu i pasków narzędzi, które są dostępne w oknie Microsoft
Excel. W oknie edytora VB pasek menu i pasek narzędzi mają polecenia i przyciski pomocne w trakcie
programowania i testowania procedur. Ekran edytora VB to głownie trzy okna Projekt, Właściwości oraz
Kod programu. W oknie Projekt w otwartym folderze Moduły zaznaczony jest Moduł 1. MS Excel
wpisuje zarejestrowane czynności w specjalnych arkuszach o nazwie Moduł l, Moduł 2 itp. W przyszłości
będziemy używać modułów do wpisywania kodu swoich procedur. Moduł przypomina swoim wyglądem
pusty dokument w edytorze tekstów MS Word.
5) W oknie Kod programu wyświetla nam się kod makra  FormatowanieZawartości . Zwróć uwagę na
linie poprzedzone znakiem apostrofu  to sÄ… linie komentarza. Linie te sÄ… pomijane w trakcie
wykonywania procedury (a dokładniej wszystko co znajduje się po znaku apostrofu aż do końca linii).
Komentarze dodaje się by ułatwić  czytanie kodu procedury.
6) Dodajmy teraz kilka komentarzy:
a) Przejdz do okna edytora Visual Basic.
b) Kliknij przed liniÄ… kodu:
Selection.SpecialCells(xlCellTypeConstants, 2).Select
i naciśnij Enter.
c) Przesuń kursor do wolnej linii, wstawionej powyżej i dodaj komentarz przedstawiony poniżej,
pamiętając o poprzedzeniu go znakiem apostrofu:
Znajd" i sformatuj komórki zawieraj" ce tekst
d) Kliknij przed instrukcjÄ…:
Selection.SpecialCells(xlCellTypeConstants, 1).Select
4
i naciśnij Enter.
e) Przesuń kursor do pustej linii powyżej i dodaj następujący komentarz:
 Znajd" i sformatuj komórki zawieraj" ce liczby
f) Kliknij przed instrukcjÄ…:
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
i naciśnij Enter.
g) Przesuń kursor do pustej linii i dodaj następujący komentarz:
 Znajd" i sformatuj komórki zawieraj" ce formuły
h) Kliknij przed instrukcjÄ… Range("A1:A3").Select
i naciśnij Enter.
i) Przesuń kursor do pustej linii powyżej i dodaj następujący komentarz:
'Sporz" d" legend"
Kilka słów o komentarzach:
Na ekranie VBE (edytor Visual Basic) w oknie kodu każda linia rozpoczynająca się znakiem apostrofu
jest komentarzem. Komentarze wyświetlane są w kolorze zielonym. Kolor komentarzy możemy zmienić w
oknie dialogowym Opcje. W tym celu wybieramy Narzędzia > Opcje, po czym klikamy kartę Edytor
Format. Komentarz można również dodać po prawej stronie wpisanego kodu. Na przykład, aby dodać
komentarz na końcu linii kodu .ColorIndex = 11, klikamy na końcu tego wiersza, naciskamy
klawisz tabulacji TAB, wpisujemy apostrof, a następnie tekst komentarza. Omawiana linia kodu powinna
wyglądać tak:
ColorIndex = 11 ' ustawia kolor czcionki na ciemnoniebieski
Linie komentarza nie wykonują innego zadania poza informowaniem użytkownika o tym jakie zadanie
spełnia dana procedura lub pewna jej część. W czasie pisania własnych procedur pamiętajmy o
umieszczeniu w nich szczegółowych komentarzy zarówno dla siebie, jak i dla innych, którzy będą
wprowadzić w przyszłości zmiany do napisanej przez nas procedury.
Ćwiczenie 5
 Czytanie kodu makra
Kilka słów o makroprocedurach:
Makroprocedury zaczynają się od słowa kluczowego Sub i kończą się słowami kluczowymi End Sub. Po
słowie kluczowym Sub znajduje się nazwa makra i para nawiasów. Pomiędzy słowami kluczowymi Sub i
End Sub mieszczą się instrukcje procedury, które Visual Basic wykonuje za każdym razem, gdy
przystąpimy do odtwarzania makra. Visual Basic czyta wiersze procedury od góry do dołu, pomijając
instrukcje poprzedzone apostrofem (patrz Informacje odnośnie komentarzy w zagadnieniu omówionym
powyżej) i zatrzymuje się po dotarciu do słów kluczowych End Sub.
Zwróćmy uwagę na dużą liczbę kropek w zarejestrowanym kodzie makra. Występują one dosłownie w
każdej linii kodu. Kropki te wiążą poszczególne elementy języka Visual Basic. Instrukcje procedury
czytamy zaczynając od prawej strony po ostatniej kropce. Prześledzmy teraz całą procedurę
 FormatowanieZawartości (ze względu na możliwą różną kolejność wykonywanych czynności u różnych
studentów zajmiemy się poszczególnymi instrukcjami w dowolnej kolejności).
Range("A1:A3").Select
Wybierz komórki A1, A2, A3.
Selection.EntireRow.Insert
Wstaw nowy wierz w wybranym obszarze. Ponieważ poprzednia linia kodu wybrała komórki w
trzech wierszach, Visual Basic wstawi trzy puste wiersze.
ActiveCell.FormulaRlC1 = "Tekst"
Niech wpisem w aktywnej komórce będzie słowo "Tekst". Ponieważ poprzednia linia kodu,
Range("Bl").Select, zaznaczyła komórkę B1, komórka ta jest w tej chwili aktywną
komórką i w niej właśnie Visual Basic wpisze podany tekst.
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Ten specjalny blok kodu należy zinterpretować następująco: niech kolor wnętrza obecnie
wybranych komórek będzie czerwony (ColorIndex = 3), deseń niech będzie pełny
(xlSolid), a kolor desenia wybranych komórek będzie automatyczny (xlAutomatic).
5
Blok kodu rozpoczynający się od słowa kluczowego With i kończący się słowami
kluczowymi End With przyśpiesza wykonanie kodu procedury. Zamiast powtarzać za każdym
razem podobne instrukcje:
Selection.Interior.ColorIndex = 3
Selection.Interior.Pattern = xlSolid
Selection.Interior.PatternColorIndex = xlAUtomatic
Rejestrator makr skorzystał ze skróconego zapisu umieszczając powtarzający się tekst instrukcji
Selection.Interior po prawej stronie słowa kluczowego With i zakończył blok instrukcji
odnoszący się do tego samego zakresu komórek słowami kluczowymi End With.
Ćwiczenie 6
 Poprawianie kodu makra
W trakcie przeglądania i analizowania kodu makra linia po linii z pewnością zauważymy, że rejestrator
makr zarejestrował również zbędne polecenia, których nie zamierzaliśmy wcale umieścić w makrze. Na
przykład, po wybraniu komórek zawierających tekst, oprócz ustawienia stylu czcionki pogrubionej i
fioletowego koloru, Excel również nagrał bieżące ustawienia innych opcji na Czcionka - nazwę czcionki,
j jej rozmiar, efekty przekreślenia, indeksu dolnego/górnego, cienie i styl podkreślenia.
With Selection.Font
.Name = "Arial CE"
.FontStyle = "Pogrubiony"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 11
End With
Automatyczny rejestrator procedur zawsze zapisuje wszystkie ustawienia, bez względu na to, czy zależy
nam na nich, czy nie. Wszystkie dodatkowe instrukcje niepotrzebnie wydłużają procedurę. Dlatego też,
po zakończeniu rejestracji makra możemy przeanalizować nagrane instrukcje i zrezygnować ze zbędnych.
1) Z podanego bloku kodu usuń przekreślone instrukcje
With Selection.Font
.Name = "Arial CE"
.FOntStyle = "Pogrubiony"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFOnt = False
.Shadow = False
.Underline = xlUnderlineStyleNOne
.COlorIndex = 11
End With
2) Znajdz w kodzie makroprocedury blok instrukcji formatujący komórki zawierające liczby i dokonaj
zmian w kodzie procedury według wzoru poniżej:
'Znajd" i sformatuj komórki zawieraj" ce liczby
Selection.SpecialCells(xlCellTypeConstants, 1).Select
With Selection.Font
.ColorIndex = 10 ' ustawia kolor czcionki na zielony
End With
Range("C6").Select
3) Znajdz kod makra, który formatuje komórki zawierające wzory i zmodyfikuj go według wzoru poniżej:
'Znajd" i sformatuj komórki zawieraj" ce formuły
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
With Selection.Font
.FontStyle = "Pogrubiony"
.ColorIndex = 3
6
End With
4) Znajdz następujące dwie linie kodu;
Range("A1:A3").Select
Selection.EntireRow.Insert
5) Zamień powyższe dwie linie kodu na jedną, według wzoru poniżej:
Range("A1:A3").EntireRow.Insert
Zwróć uwagę, że rejestrator makr korzysta z adresowania w stylu R1C1 przy rejestrowaniu wzoru w
aktywnej komórce:
ActiveCell.FormulaR1C1 = "Text"
Actic·eCell.FormulaR1C1 = "Numbers
ActiveCell.FormulaR1C1 = "Formulas
A po zaznaczeniu aktywnej komórki rejestrator makr raz używa instrukcji ActiveCell, innym zaś razem
posługuje się instrukcją Selection. Obie te instrukcje noszą nazwę właściwości. Jeśli jest wybrana tylko
jedna komórka, można stosować na przemian ActiveCell lub Selection.
6) Testowanie zmodyfikowanej procedury
W czasie modyfikacji zarejestrowanego makra jest możliwe, że dostaną się do kodu makra błędy. Na
przykład, możemy usunąć niezbędną linię kodu (albo konieczną kropkę). Aby upewnić się, że makro
nadal działa poprawnie po zakończeniu modyfikacji, musimy je ponownie odtworzyć.
a) W oknie kodu VBE kliknij myszą w dowolnej linii kodu makroprocedury  FormatowanieZawartości i
wybierz Run > Run Sub /UserForm.
Jeżeli nie zostały wprowadzone dodatkowe błędy w czasie modyfikacji makra, powinno ono nadal
działać poprawnie i bez problemów. Aby zobaczyć rezultat działania makra, uruchom okno Microsoft
Excel klikając jego przycisk na pasku zadań lub naciskając klawisze Alt+F11.
b) Jeżeli Visual Basic napotka błąd w czasie odtwarzania makra, pojawi się komentarz o typie błędu w
oknie informacji. Przed odtworzeniem makra należy upewnić się, że makro to można uruchomić z
bieżącego arkusza. Na przykład, jeśli spróbujemy wywołać makro  FormatowanieZawartości z pustego
arkusza, uzyskamy okno z błędem  Run time error  1004 - No cells were found (Błąd wykonania
`1004 ·- nie znaleziono komórek). Musimy kliknąć przycisk End i wybrać wÅ‚aÅ›ciwy arkusz przed próbÄ…
ponownego uruchomienia tego makra.
c) Jeżeli wybrany arkusz zawiera tylko komórki, w których wpisano tekst, to przy próbie odtworzenia
makra  FormatowanieZawartości Visual Basic napotka błąd przy odtwarzaniu instrukcji polecających
mu wybranie komórek zawierających liczby. W tym przypadku zostanie wyświetlony ten sam komunikat
błędu   No cells were found .
d) Jeżeli pominiemy kropkę w instrukcji With Selection.Font, to przy próbie odtworzenia tej instrukcji
kodu Visual Basic wyświetli komunikat błędu  Run time error  424 - Object required" (Bład wykonania
424 - wymagany jest obiekt). Musimy kliknąć przycisk Debug w polu komunikatu. Zostaniemy
przeniesieni na ekran kodu w edytorze VB. W tym momencie nastÄ…pi przerwa w odtwarzaniu procedury
(tzw. stan przerwania, ang. Break mode) VB zaznaczy na żółto linię kodu, której nic potrafił wykonać z
powodu błędu. Po naniesieniu poprawki i próbie kontynuowania procedury, VB może oznajmić w
specjalnym komunikacie:  This action will reset your project, proceed anyway?"(Czynność ta zresetuje
projekt. Czy chcesz mimo wszystko kontynuować?). Klikamy OK. Mimo, że możemy dokonać
modyfikacji kodu w stanie przerwania, niektóre poprawki wniesione do kodu makra nie dopuszczają na
kontynuację procedury. Po poprawieniu musimy odtworzyć ponownie makro, gdyż mogą być w nim
jeszcze inne błędy, które trzeba poprawić zanim makro będzie mogło poprawnie działać.
7) Sposoby uruchamiania makropoleceń
Procedury w Excelu można uruchomić z poziomu programu MS Excel lub z poziomu edytora VB. Kiedy
odtwarzamy procedurę z poziomu edytora VB, Visual Basic wykonuje poszczególne czynności procedury
za kulisami swojego ekranu. Możemy  usłyszeć , ale nie widzimy jak VB wykonuje krok po kroku
polecenia. By obejrzeć wykonywane przez Visual Basic czynności, musimy odtwarzać procedurę z
poziomu programu MS Excel przy użyciu polecenia Makra z menu Narzędzia lub tak ustawiając ekran,
aby można było oglądać okno MS Excel oraz okno edytora VB w tym samym czasie. Jest to wygodny
sposób, więc ustawmy oba okna obok siebie:
a) Kliknij prawym przyciskiem myszy na wolnym polu w pasku zadań Windows
7
b) Z menu podręcznego wybierz Okna sąsiadująco w pionie
Ćwiczenie 7
Dalsze ulepszanie makropolecenia
Czasami po zakończeniu rejestrowaniu makra wpadamy na pomysł, że makro to mogłoby dodatkowo
wykonać jednocześnie jeszcze inne zadania. Dodanie nowych instrukcji do makroprocedury nie jest zbyt
trudne, gdy zna się już składnię Visual Basica. Jednakże zwykle to zrobić jeszcze szybciej, polecając
wykonanie dodatkowych zadań rejestratorowi makr. To prawda, że rejestrator makr wpisuje często
znacznie więcej instrukcji niż potrzeba. Jedno jednak jest pewne: nie robi błędów i w pełni można na nim
polegać!
Jeżeli pragniemy dodać dodatkowe polecenia do utworzonego makra korzystając z rejestratora makr,
musimy zarejestrować nowe makro, następnie zaś skopiować odpowiednie fragmenty kodu i wkleić je do
oryginalnego makra. Spróbujmy teraz wprowadzić grubą ramkę wokół zakresu A1:B3.
1. Uaktywnij okno Microsoft Excel
2. Wybierz Narzędzia > Makro > Zarejestruj nowe makro.
3. W oknie dialogowym Makro kliknij OK, aby zaakceptować sugerowaną nazwę makra
(prawdopodobnie typu:  Makro2 ) i rozpocząć jego rejestrowanie.
4. Zaznacz komórki A1:B3.
5. Wybierz Format > Komórki i kliknij zakładkę Obramowanie.
6. W obszarze ustawień kliknij przycisk Kontur.
7. Kliknij najgrubszÄ… liniÄ™ w polu Styl.
8. Kliknij OK, aby zamknąć okno dialogowe.
9. Kliknij w komórce A1. Zwróć uwagę, że wokół komórek A1:B3 znajduje się teraz gruba ramka.
10. Kliknij przycisk Stop Recording (Zatrzymaj rejestrowanie) na pasku narzędzi Stop Recording lub
wybierz Narzędzia > Makro > Zatrzymaj rejestrowanie.
Aby uzyskać wgląd do kodu zarejestrowanego makra, musimy przejść do ekranu :edytora Visual Basic.
Okno kodu wyświetla makro pokazane poniżej
Sub Makro2()
' Makro2 Makro
' Makro zarejestrowane 2002-03-16, autor andrzej
'
Range("A1:B3").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("G16").Select
End Sub
Tworząc makra za pomocą rejestratora makr a potem analizując ich kod możemy szybko dowiedzieć się,
jak instrukcje języka Visual Basic odpowiadają poszczególnym opcjom menu Excela oraz ustawieniom w
oknach dialogowych. Następnie możemy odszukać znaczenie i użycie tych poleceń Visual Basica we
8
wbudowanym systemie pomocy. Rzecz jasna, im więcej instrukcji Visual Basic trzeba przeczytać,
tym wolniejsze będzie odtwarzanie naszej procedury. Wyeliminowanie zbytecznych poleceń przyśpieszy
wykonanie makra. Jednakże aby kod makra był łatwiejszy do zrozumienia, musimy często sami ruszyć
głową i poszukać lepszego sposobu wykonania danego zadania. Na przykład, spójrzmy na powyższą
procedurę. Widzimy, że rejestrator makr potraktował każdą krawędz ramki oddzielnie. Aatwo się
domyślić, że VB oferuje pojedyncze polecenie, które wprowadzi ramkę wokół zaznaczonego zakresu.
Poznanie właściwych instrukcji lub wyrażeń w każdym języku wymaga czasu, jednak gdy trochę
poszperamy to dowiemy się, że VB zawiera metodę BorderAround, umożliwiającą dodanie obramowania
do zaznaczonych komórek i ustawienie koloru, stylu oraz grubości linii ramki. Korzystając z VB
najszybszym sposobem tworzenia grubej .ramki wokół zaznaczonych komórek jest zastosowanie
następującego polecenia:
Range("A1:A3").BorderAround Weight:=xlThick
Powyższa instrukcja posługuje się metodą BorderAround w odniesieniu do obiektu Range. Poleca
ona użycie grubej linii przy tworzeniu obramowania zakresu komórek A1:B3.
Dodajmy teraz powyższą instrukcję do makroprocedury  FormatowanieZawartości :
1. Uruchom okno Kod programu z procedurą  FormatowanieZawartości .
2. Dodaj nowÄ… liniÄ™ po linii kodu:
ActiveCell.FormulaR1C1 = "Formuły"
3. Wprowadz w następnym wierszu linię:
Range("A1:A3").BorderAround Weight:=xlThick
4. Umieść kursor w dowolnej linii wewnątrz makra I uruchom zmodyfikowaną wersję (np. poleceniem
F5)
Ćwiczenie 8
Dodanie własnej instrukcji kodu VB do istniejącego makra
Umieścimy teraz polecenie, aby VB  ogłosił nam , że zakończył wykonywanie kodu makra. Takiego
polecenia nie da się zarejestrować przy użyciu rejestratora, bo Excel nie ma takiego zadania w swoich
menu.
1) W oknie Kod programu kliknij przed słowami kluczowymi End Sub i naciśnij Enter
2) Cofnij kursor do pustej linii i wpisz poniższą linię:
MsgBox  Wykonywanie procedury zostało zako" czone.
3) Umieść kursor w dowolnej linii wewnątrz makra I uruchom zmodyfikowaną wersję (np. poleceniem
F5)
Ćwiczenie 9
Zmiana nazwy makropolecenia
Aby zmienić nazwę zmodyfikowanej wersji kodu makra wystarczy w oknie Kod programu znalezć starą
nazwę znajdującą się po słowie kluczowym Sub i zastąpić ją nową nazwą.


Wyszukiwarka