30 makr - VBA - Excellent Work.pdf

(346 KB) Pobierz
30 MAKR
GOTOWYCH DO UŻYCIA
dodatek do kursu VBA i Makra
Excellent work
–
skuteczna nauka Excela
Michał Kowalczyk
www.makraivba.pl
Przygotowałem dla Ciebie
listę 30 makr łatwych do użycia.
Kod
y, które widzisz poniżej, należy wkleić do dowolnego
modułu w edytorze makr VBA. Dodałem również komentarz, aby ułatwić Ci ich edycję
według potrzeb. Możesz kopiować makra razem z komentarzami. Usprawni to Twoją pracę
kiedy wrócisz do wcześniej napisanego kodu po dłuższej przerwie.
W kursie VBA i Makra nie sposób zawrzeć wszystkich
możliwości
języka VBA. Poniższe linijki
kodu też
są podatne na modyfikacji z Twojej strony. Nie wahaj się dodawać
do nich
zmiennych, edytować zakresów czy korzystać z innych metod i właściwości.
Ten
30 przykładów powinno pozwolić Ci lepiej zrozumieć na co stać kod VBA i dać Ci
rozwiązania podane
niemal na talerzu.
Powodzenia w kodowaniu,
Twórca
i trener w
Excellent Work
–
Skuteczna nauka Excela
str. 1
(kliknij w
wybraną linijkę, aby przejść do kodu)
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
Usuń
scalanie wszystkich scalonych komórek arkusza
.............................................................. 3
Odkryj wszystkie wiersze i kolumny w arkuszu ................................................................................ 3
Zabezpiecz wszystkie arkusze w pliku ................................................................................................... 3
Zdejmij zabezpieczenie z wszystkich arkuszy w pliku ................................................................. 4
Odkryj wszystkie arkusze pliku ................................................................................................................... 4
Ukryj wszystkie arkusze poza aktywnym ............................................................................................. 4
Sprawdź czy arkusz o konkretnej nazwie znajduje się w pliku
.............................................. 5
Skopiuj aktywny arkusz do nowego pliku ........................................................................................... 5
Wstaw arkusz w wybranym miejscu pliku .......................................................................................... 6
Usuń dowolny plik...............................................................................................................................................
6
Zamień wszystkie formuły w arkuszu na wartości
......................................................................... 6
Zamień na wartości wszystkie formuły wybranego obszaru
................................................... 7
Usuń puste wiersze w aktywnym arkuszu
.......................................................................................... 7
Wstaw wiersz po każdym wierszu w zaznaczeniu (czyli co drugi pusty wiersz)
......... 8
Użyj auto-wypełniania (np. do numerowania)
.................................................................................. 8
Odśwież kolejno wszystkie tabele przestawne w pliku
............................................................... 9
Podświetl
puste komórki w zaznaczonym obszarze.....................................................................
9
Zafiltruj się na wybranej kolumnie –
jedno kryterium.................................................................. 9
Zafiltruj się na wybranej kolumnie – wiele kryteriów
.................................................................. 10
Posortuj dane w kolumnie........................................................................................................................... 10
Posortuj dane w wielu kolumnach......................................................................................................... 10
Posortuj alfabetycznie arkusze w pliku .................................................................................................11
Wylistuj wszystkie nazwy arkuszy pliku w aktywnym arkuszu ..............................................11
Formuła do wyciągania liczb z komórki...............................................................................................12
Otwórz plik przy użyciu okna dialogowego
.......................................................................................12
Formuła sumy kolorów
...................................................................................................................................13
Zapisz i zamknij wszystkie pliki................................................................................................................. 14
Zapisz arkusz jako PDF .................................................................................................................................. 14
Załącz plik do maila – jeśli korzystasz Outlook
................................................................................ 14
Zamień
w zaznaczeniu puste komórki na zera
...............................................................................15
Spis treści
str. 2
1.
Usuń scalanie wszystkich scalonych komórek arkusza
'Kod
odwołuje się do wszystkich komórek arkusza i rozdziela
'scalone
komórki
Sub RozdzielScalone()
ActiveSheet.Cells.UnMerge
End Sub
2. Odkryj wszystkie wiersze i kolumny w arkuszu
'Kod
odwołuje się do wszystkich wierszy i kolumn w arkuszu,
'odkrywając
je
Sub OdkryjWierszIKolumny()
Rows.EntireRow.Hidden = False
Columns.EntireColumn.Hidden = False
End Sub
3. Zabezpiecz wszystkie arkusze w pliku
'Kod zablokuje wszystkie arkusze w pliku za jednym razem
Sub ZabezpieczArkusze()
Dim wsh As Worksheet
Dim haslo As String
haslo = "twojehaslo"
'zastąp "twojehaslo" wybranym hasłem
For Each wsh In Worksheets
wsh.Protect password:=haslo
Next wsh
End Sub
str. 3
4. Zdejmij zabezpieczenie z wszystkich arkuszy w pliku
'Kod odblokuje wszystkie arkusze w pliku za jednym razem,
'ale
pamiętaj, że musisz znać hasło!
Sub OdblokujArkusze()
Dim wsh As Worksheet
Dim haslo As String
haslo = "twojehaslo"
'zamiast "twojehaslo" wpisz hasło, które zostało
użyte do zablokowania arkuszy
For Each wsh In Worksheets
wsh.Unprotect password:=haslo
Next wsh
End Sub
5. Odkryj wszystkie arkusze pliku
'Kod odkryje wszystkie arkusze w aktywnym pliku
Sub OdkryjArkusze()
Dim wsh As Worksheet
For Each wsh In ActiveWorkbook.Worksheets
wsh.Visible = xlSheetVisible
Next wsh
End Sub
6. Ukryj wszystkie arkusze poza aktywnym
'Ukryj wszystkie arkusze poza aktywnym
Sub UkryjArkuszeBezAktywnego()
Dim wsh As Worksheet
For Each wsh In ThisWorkbook.Worksheets
If wsh.Name <> ActiveSheet.Name Then wsh.Visible =
xlSheetHidden
Next wsh
'Czyli
pętla jeśli nazwa arkusza jest inna niż nazwa aktywnego
'arkusza
to zmień widoczność na xlSheetHidden
- ukryte
End Sub
str. 4

Plik z chomika:

Inne pliki z tego folderu:

Inne foldery tego chomika:

Zgłoś jeśli naruszono regulamin