Makra to specjalne programy, dzięki którym różne czynności zostaną wykonane w Excelu automatycznie, np. Twoje zestawienie błyskawiczne nabierze uporządkowanego wyglądu. W tym ebooku pokazujemy kilka sposobów scalania komórek właśnie z użyciem makr.
Znajdź podobne książki Ostatnio czytane w tej kategorii
Darmowy fragment publikacji:
Szybkie scalanie, rozdzielanie
i obramowywanie komórek
Szybkie scalanie, rozdzielanie i obramowywanie komórek
Szybkie scalanie, rozdzielanie
i obramowywanie komórek, cz. 1
S 055/001
Piotr Dynia, specjalista MS Office
Scalanie komórek, aby nadać arkuszowi pożądany układ, bywa uciąż-
liwe. Równie niewdzięcznym zadaniem jest nadawanie komórkom
odpowiednich obramowań, aby nadać arkuszowi bardziej czytelny układ.
Z pomocą przychodzą makra, dzięki którym te czynności zostaną wykona-
ne automatycznie i zestawienie błyskawiczne nabierze uporządkowanego
wyglądu. W tym artykule pokazujemy kilka sposobów scalania komórek.
Scalanie wielu komórek w pionie
Scalanie wielu komórek w poziomie
S 055/002
S 055/007
AEX147-Srodki.indb 43
2015-05-06 08:24:07
2
S 055/002 Szybkie scalanie, rozdzielanie
i obramowywanie komórek, cz. 1
Szybkie scalanie, rozdzielanie i obramowywanie komórek
SCALANIE WIELU KOMÓREK W PIONIE
Przyjmijmy, że mamy harmonogram wdrażania nowe-
go systemu informatycznego widoczny na rysunku 1.
Rysunek 1. Arkusz przed uruchomieniem makra
Chcemy scalić komórki dla poszczególnych etapów,
tj. A2:A4, B2:B4 itd. Niestety, łączenie poszczególnych
zakresów jest pracochłonne, a poza tym można błędnie
zaznaczyć obszar przed scalaniem, co dodatkowo utrud-
nia zadanie. Pokażemy, w jaki sposób napisać makro,
które bezbłędnie scali wszystkie komórki pojedynczego
etapu w każdej kolumnie.
Otwórzmy Edytor Visual Basic (np. kombinacją
[Alt]+[F11]), utwórzmy nowy moduł standardowy za
pomocą polecenia menu Insert/Module i wpiszmy w nim
następujący kod:
Sub ScalajPionowo()
Dim i As Long
Dim j As Long
44 Maj 2015
3
Wiedza i Praktyka
Szybkie scalanie, rozdzielanie
i obramowywanie komórek, cz. 1
Szybkie scalanie, rozdzielanie i obramowywanie komórek
S 055/003
Dim tekst As String
Application.DisplayAlerts = False
For i = 1 To Selection.Columns.Count
tekst = Selection.Cells(1, i)
For j = 2 To Selection.Rows.Count
tekst = tekst Chr(10) Selec-
tion.Cells(j, i)
Next
Selection.Columns(i).Merge
Selection.Cells(1, i) = tekst
Next
Application.DisplayAlerts = True
End Sub
Jeśli chcemy scalić komórki w poszczególnych kolum-
nach każdego etapu, to zaznaczmy komórki A2:D4
i włączmy makro ScalajPionowo. Następnie podświetl
komórki A5:D9 i ponownie włączmy makro ScalajPio-
nowo. Komórki zostaną scalone, jak jest to przedstawio-
ne na rysunku 2.
Zmian wprowadzonych przez makro nie można cof-
nąć, więc należy korzystać z niego z uwagą. Dobrze
też mieć kopię zapasową danego pliku.
Na początku kodu zdefiniowane są trzy zmienne: dwie
służą jako liczniki w pętlach, a zmienna tekstowa prze-
chowuje tekst scalanej komórki. Pierwsza pętla prze-
chodzi po kolejnych kolumnach zaznaczonego obszaru
komórek. W każdej takiej kolumnie do zmiennej tekst
Wiedza i Praktyka
4
Excel w praktyce © 45
Pobierz darmowy fragment (pdf)
Gdzie kupić całą publikację:
Opinie na temat publikacji:
Inne popularne pozycje z tej kategorii:
Czytaj również:
Prowadzisz stronę lub blog? Wstaw link do fragmentu tej książki i współpracuj z Cyfroteką :
