Excel VBA

ACTA

2012-01-27T19:09:00.001+01:00

Wybaczcie, że nie na temat. Ale mam tego dość a temat dotyczy prawie wszystkich!

Zliczanie rozmiaru użytego fragmentu arkusza

2012-01-19T09:49:00.002+01:00

Sub UsedRange()

  Set sR = ActiveSheet.UsedRange

  Cells(1, 1).Value = sR.Columns.Count & " " & sR.Rows.Count

End Sub

Prosta wizualizacja danych

2012-01-10T22:20:00.002+01:00

Czasem zdarza się, że chcielibyśmy szybko porównać dane. Dla przykładu wyszukać najmniejszy, największy element. A w zasadzie nie szukać, tylko "mieć go na oku". Można to wykonać w prosty sposób i to bez użycia dość obszernych i nie zawsze wygodnych wykresów.

A więc, gdy mamy już wprowadzone dane:

Wpisujemy formułę =powt("I";E5), która oznacza, że wartość "wielkie i" ma się powtórzyć tyle razy ile wynosi wartość komórki po jej lewej (w tym wypadku E5). W angielskim Excel-u frunkcja powt ma nazwę rept - zapewne od repeat.

Zatwierdzamy i oto efekt:

Teraz należy ciągnąć za mały kwadracik po prawej w dół by skopiować formułę dla wszystkich wierszy. Otrzymujemy bardzo prosty a jednocześnie przejrzysty wykres.

Uruchamianie skryptów VBA przyciskiem Excela

2011-06-16T21:38:00.005+02:00

Przede wszystkim aby stworzyć przycisk do uruchamiania procedur

będziemy musieli włączyć deweloperski pasek zadań.
Można to zrobić wchodząc w opcje Excel-a 2007 (lub 2010) i na zakładce popularne zaznaczyć właśnie "Pokaż kartę deweloper na wstążce".

Powinna pojawić się nowa zakładka na górnej wstążce. Należy pobrać z niej ikonę przycisku (button).

Po wstawieniu przycisku na arkusz pojawia się okno wyboru procedury przypisanej jako akcja kliknięcia:

Wybieramy i gotowe!

CSV rozdzielany przecinkami - eksport pliku Excel .xls do tekstowego .csv

2011-04-27T21:26:00.007+02:00

Jeśli chcemy fragment arkusza (jak wyżej) wyeksportować do pliku tekstowego sformatowanego - .csv pojawi się spora trudność. Nie dla wszystkich pól dane są otaczane cudzysłowami (nie dla wszystkich jest to konieczne) - Excel minimalizuje wielkość pliku wyjściowego i omija wpisywanie tych nadmiarowych znaków.
przykład:

a;b;c
x;a\;6
y;a\;"spac ja;"

Niestety wiele aplikacji wymaga od nas by w plikach .csv poszczególne pola były zamknięte cudzysłowami i oddzielone przecinkami. Na próżno szukać takiej opcji w okienku "zapisz jako".

A więc co zrobić, żeby uzyskać wynik w postaci:

"a";"b";"c"
"x";"a\";"6"
"y";"a\";"spac ja;"

?

Bardzo przyda się makro VBA:

Sub ZapiszJakoCSV()

Dim plikWyjsciowy As Variant

Dim zakresZrodlowy As Range
Dim wiersz As Range
Dim komorka As Range
Dim tekst As String
Dim separator As String

plikWyjsciowy = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")

' z ustawień Excela - średnik
separator = Application.International(xlseparatorarator) 
' lub przecinek (webrunner1981 wielkie dzięki!)
' separator = Application.International(xlDecimalSeparator)
  
' jeżeli jest coś zaznaczone to eksportu to
If Selection.Cells.Count > 1 Then
  Set zakresZrodlowy = Selection
Else
  Set zakresZrodlowy = ActiveSheet.UsedRange
End If

Open plikWyjsciowy For Output As #1

' dla każdego wiersza
For Each wiersz In zakresZrodlowy.Rows
 tekst = ""
 
 ' po wszystkich komorkach wiesza
 For Each komorka In wiersz.Cells
   tekst = tekst & """" & komorka.Value & """" & separator
 Next
 
 ' za ostatnim polem nie powinno być separatora
 While Right(tekst, 1) = separator
   tekst = Left(tekst, Len(tekst) - 1)
 Wend
 
' wypisz do pliku
Print #1, tekst
Next

Close #1

End Sub

Uważasz, że znasz Excela?

2011-04-19T22:07:00.002+02:00

Z powodu innych obowiązków dawno już nie pisałem. Dziś przykuło mą uwagę coś wyjątkowego. Rysowanie w MS Excel - polecam!

Tabliczka mnożenia w kilku krokach - formuły tablicowe

2011-03-20T19:27:00.007+01:00

Jak w kilku prostych krokach stworzyć tabliczkę mnożenia 10x10 - taką jak widać poniżej?

W pierwszym kroku w wpisujemy wartości 1, 2 jak na obrazku poniżej. Najeżdżając myszką na prawy dolny róg łapiemy kursor (lewy przycisk myszy - LPM)

i ciągniemy w dół aż do 10.

Zaznaczmy całość, przechodzimy do komórki powyżej i w prawo, dalej wybieramy z menu wklej opcję Transpozycja.

W ten sposób wygenerujemy wiersz na górze: 1-10.
Dalej zaznaczamy pola wewnętrzne.

Wpisujemy formułę: która wymnaża pierwszą kolumnę z pierwszym wierszem (formułę tablicową).
Wygodnie jest to wykonać zaznaczając zakresy myszką.

I teraz najważniejsza sztuczka: zamiast ENTER naciskamy CTRL + SHIFT + ENTER (skrót na zatwierdzenie formuły tablicowej)

Gotowe!

Łamanie wierszy (enter) w komórkach arkusza Excel

2010-11-24T12:09:00.005+01:00

Żeby złamać wiersz w komórce Excel wystarczy kombinacja klawiszy
ALT + ENTER.

Makro pogrubiające tekst w komórkach

2009-12-12T16:13:00.003+01:00

Sub pogrubKomorki()

    If TypeName(Selection) <> "Range" Then Exit Sub
    
    Application.ScreenUpdating = False
    
    For Each c In Selection
      If c.Value > 100 Or c.Value < 0 Then
         c.Font.Bold = True
      Else
         c.Font.Bold = False
      End If
    Next c
    
    Application.ScreenUpdating = True

End Sub

Zablokuj okienka - Blokowanie okienek w Excel 2007

2009-12-03T22:44:00.012+01:00

Opcja umożliwia zachowanie w polu widzenia początkowego fragmentu arkusza podczas przesuwania suwakami na inną część. A więc z górnego menu wybieramy: Widok | Zablokuj Okienka

Do dyspozycji mamy trzy wersje: Zablokuj pierwszy wiersz - chyba najbardziej popularna opcja - kiedy mamy do dyspozycji nagłówki kolumn często chcielibyśmy aby były widoczne pomimo przesunięcia się do setnego wiersza.

Zablokuj pierwszą kolumnę - chyba najbardziej popularna opcja - kiedy mamy do dyspozycji nagłówki kolumn często chcielibyśmy aby były widoczne pomimo przesunięcia się do setnego wiersza. Zablokuj okienka - pierwsza i najciekawsza opcja - pozwala "zakotwiczyć" pozycję okna na podstawie aktualnie zaznaczonej komórki

Odblokowanie okna

Kiedy w arkuszu zablokowane są jakieś wiesze/kolumny wówczas w menu Widok | Zablokuj Okienka mamy do dyspozycji dodatkową opcję Odblokuj okienka

Wypełnieniae arkusza kolejnymi liczbami naturalnymi

2009-12-03T22:31:00.003+01:00

Aby szybko wypełnić arkusz kalkulacyjny kolejnymi liczbami naturalnymi
wystarczy że na początek wpiszemy 1 i 2 do dwóch pierwszych komórek.

Zaznaczmy obie komórki i ustawiamy kursor w prawym dolnym rogu zaznaczenia (aż pojawi się jednolity czarny krzyżyk). Przyciskamy lewy przycisk myszy (lpm) i rozciągamy obszar w dół. (Podobnie zabieramy się do kolumny B)

Zaznaczymy cały wypełniony obszar i ustawiamy kursor myszy w prawym dolnym rogu - tak aż pojawi kursor: krzyżyk. Dalej rozciągamy obszar w prawo.

Zwalniamy przycisk myszki i gotowe:

Ukrywanie i odkrywanie arkuszy

2009-12-02T22:20:00.002+01:00

Aby ukryć arkusz - ich lista dostępna jest na dole ekranu: domyślnie po stworzeniu nowego arkusza są to Arkusz1, Arkusz2, Arkusz3 lub w wersji angielskiej Sheet1, Sheet2, Sheet3 :). Wybieramy odpowiedni arkusz i z górnego menu:

Narzędzia główne | Format | Ukryj i odkryj | Ukryj arkusz

Lista arkuszy w dolnym menu powinna się zmniejszyć o ten ukryty. Żeby odkryć ukryty arkusz należy wybrać:

Narzędzia główne | Format | Ukryj i odkryj | Odkryj arkusz

Pojawi się wtedy okienko z listą ukrytych arkuszy w bieżącym skoroszycie.

Wybieramy ten właściwy. Klikamy OK.

Gotowe. Lista arkuszy w dolnym menu zawiera teraz wcześniej ukryty arkusz.

Ukrywanie arkuszy w VBA

Excel - lista wartości (lista rozwijana)

2009-10-24T23:49:00.007+02:00

Jak przypisać komórce Excel-a słownik - na bazie listy rozwijanej.

Excel Formatowanie warunkowe... - Conditional Formatting

2008-10-09T08:52:00.023+02:00

Excel oferuje opcje formatowania tekstu. Wystarczy zaznaczyć komórkę lub nawet cały blok i w menu kontekstowym pod prawym klawiszem myszki znajduje się opcja "Format" (Format cells). Tam można wybrać format, czcionkę, kolory, ramki, wzorce i dodatkowo zablokować komórkę / komórki.

Czasami jednak chcielibyśmy, żeby formowanie czcionek w skoroszycie odbywało się na podstawie wartości czy formuł tychże komórek. Wtedy arkusz staje się bardziej przejrzysty i gdy wyliczone wartości będą np przekraczać graniczne ramki trzeba to koniecznie podkreślić - wyróżnienie kolorem jak najbardziej się sprawdzi. Do tego celu należy posłużyć się funkcją dostępną w górnym menu Excela w zakładce Format - Formatowanie warunkowe.

Aby skorzystać z tej opcji należy zaznaczyć dowolny blok komórek (najlepiej wypełnionych tak żeby było widać jakieś różnice). Wybieramy z menu opcje Formatowanie warunkowe i zaczynamy wypełniać warunki.

W zależności czy w zaznaczone komórki będziemy sprawdzać na podstawie warunku mniejszości/większości (>,>=,<,<=, =, <>) czy zwyczajnej Excelowej formuły wybieramy z pierwszego ComboBoxa wartości lub formuły i podajemy kolejne warunki np. jeśli wartości są większe od 100 to należy ustawić w nich tło na czerwono jeśli mniejsze od zera to czcionka na niebiesko itp.

Formatowanie warunkowe w Excel 2007

Narzędzia główne | Formatowanie warunkowe

Excel operacje na zakresach, zakresy a formuły tablicowe

2008-09-03T11:14:00.005+02:00

Pracując nad tworzeniem formuł odwołujących się do operatorów zakresowych należy używać CTRL + SHIFT + ENTER zamiast samego Entera.

Jeśli np chcemy policzyć średnią dla wszystkich komórek danego zakresu wpisujemy np:

F2 (edycja komórki C1)
=average(A1:B100)
Enter

Jeśli potrzebujemy średniej ograniczanej warunkami na wartości komórek powinniśmy zrobić coś takiego:

F2 (edycja komórki C1)
=AVERAGE(IF((A1:B100<50)*(A1:B100>0);B1:C2;0))
CTRL + SHIFT + Enter

W ten sposób obliczymy sobie średnią komórek z zakresu A1:B100 zachowujących własność bycia większym 0 i mniejszym od 50

Trzeba zwrócić uwagę na to, że łączenie warunków odbyło się tutaj z pomocą operatora:

() * ()

Ostatnia pełna i pierwsza pusta komórka

2008-07-09T20:35:00.007+02:00

Regions

lastCell = Application.WorksheetFunction.CountA(Range("B:B"))

można też:

CurrentRegion.Rows.Count
'lub
CurrentRegion.Cols.Count
'lub
CurrentRegion.Count

Liczba zaznaczonych obszarów:

Selection.Areas.Count

Wielkość obszaru

wielkość jakiegoś obszaru to:

myregion.count

Wielkość tą możemy przyrównać do:

Cells.Count 'liczba komórek na arkuszu (region to cały arkusz)
Cells.Rows.Count 'liczba wierszy (kolumna)
Cells.Columns.Count 'liczba kolumn (wiersz)

Obsługa zdarzeń klawiatury GetKeyState - Shift

2008-07-08T18:35:00.002+02:00

Public Declare Function GetKeyState Lib "USER32" _
(ByVal nVirtKey As Long) As Integer

Sub Klawisz()
  If GetKeyState(16) < 0 Then
  ' &H10 = VKSHIFT
    MsgBox "Wciśnięto klawisz Shift"
  Else
    MsgBox "Shift został zwolniony"
  End If
End Sub

słowa kluczowe: klawiatura zdarzenie klawisz

Katalog systemowy Windows

2008-07-07T19:57:00.003+02:00

Jak wyświetlić ścieżkę do katalogu systemowego Windows?

Sub WindowsSystemFolder()
   Set obj = CreateObject("Scripting.FileSystemObject")
   WindowsDirectory = obj.GetSpecialFolder(WindowsFolder)
   Set obj = Nothing
   MsgBox WindowsDirectory
End Sub

słowa kluczowe: windows dir, katalog Windowsa, PATH, ścieżka windows

VBA Function Average - Średnia

2008-07-07T19:35:00.006+02:00

Przedstawiam w miarę uniwersalną i prostą funkcję do obliczania wartości średniej z zaznaczonych komórek:

Function MyAverage(rng As Range) As Double
Application.Volatile

'default for MyAverage is 0
Dim numElements As Integer

numElements = 0
For Each cell In rng
  If Not IsEmpty(cell) Then
   If IsNumeric(cell) Then
       MyAverage = MyAverage + cell
       numElements = numElements + 1
   End If
  End If
Next

If numElements > 0 Then
  MyAverage = MyAverage / numElements
ElseIf numElements = 0 Then
  MyAverage = 0
End If

End Function

Przykład użycia:

' w komórce A1 wpisujemy
=MyAverage(B1:B100)

Objaśnienia:
Application.Volatile - Funkcja zareaguje automatycznie na zmianę wartości w komórkach

IsEmpty(cell), isNumeric(cell) - najpierw sprawdzamy czy komórka nie jest przypadkiem pusta a dopiero potem czy znajduje się tam liczba

numElements > 0 - nie zawsze zakres będzie przechowywał jakieś liczby

słowa kluczowe: własna funkcja na obliczanie średniej arytmetycznej, średnia arytmetyczna, średnio, wylicz średnią, średnia w Excelu, skrypt na średnią w VBA

Obsługa błędów - Errors - Jak obsługiwać błędy w VBA

2008-05-20T20:32:00.008+02:00

W VBA podobnie jak w innych językach możemy przechwytywać nietypowe zdażenia w postaci błędów. Aby dobrać się do tych błędów (Errors) należy posłużyć się funkcją CVErr, która zwraca wartość błędu na podstawie jego numeru i tak wyróżnia się błędy

xlErrDiv0
xlErrNA
xlErrName
xlErrNull
xlErrRef
xlErrNum
xlErrValue

I tak dla prostej procedurki możemy napisać:

Sub obslugaSytuacjiWyjatkowych()

If (ActiveCell.Offset(0, 1).Value = 0) Then
ActiveCell.Offset(0, 2).Value = CVErr(xlErrDiv0)

ElseIf (ActiveCell.Text = "") Then
ActiveCell.Offset(0, 2).Value = CVErr(xlErrNull)

ElseIf (ActiveCell Is Empty) Then
ActiveCell.Offset(0, 2).Value = CVErr(xlErrNull)

Else
ActiveCell.Offset(0, 2).Value = _
ActiveCell.Value / ActiveCell.Offset(0, 1).Value
End If
End Sub

Teraz należy w polu A1 wpisac liczbę 3, B1 liczbe 4,
ustawić się na A1
Alt + F8
wykonać makro i w C1 powinnien pojawić się wynik dzielnia.

Teraz, jeśli działa należy spróbować manipulować komórkami A1 i B1 wpisując tam 0 liczbę albo np pozostawić pola puste.

Aby wszystko dobrze działało w takich przypadkach należy obsługiwać wszyskie typy błędów - jest to kłopotliwe, jednak tego wymaga tzw dobry styl programowania...

Pokaz obsługi błędów w aktywnej komórce

Sub bledyAktywnejKomorki()
If IsError(ActiveCell.Value) Then
wartoscbledu = ActiveCell.Value
Select Case wartoscbledu
Case CVErr(xlErrDiv0)
MsgBox "Dzielenie przez zero"
Case CVErr(xlErrNum)
MsgBox "Num"
Case CVErr(xlErrRef)
MsgBox "REF"
Case CVErr(xlErrValue)
MsgBox "VALUE"
Case CVErr(xlErrNA)
MsgBox "Nierzeczywiste"
Case CVErr(xlErrName)
MsgBox "Błąd w nazwie"
Case CVErr(xlErrNull)
MsgBox "NULL"
Case Else
MsgBox "Nie ma więcej błędów."
End Select
End If
End Sub

słowa kluczowe: błędy, błąd, wyjątki, obsługa wyjątków, zdarzenia, zdarzenie, err, errors, obsługa błędów

Zabezpieczenia arkusza kalkulacyjnego

2008-05-15T21:35:00.006+02:00

Spotkałem się >> dziś z problemem zabezpieczeń w arkuszu Excel-a. Kod jaki otrzymałem do analizy postanowiłem opisać, bo sprawa jest w sumie ciekawa.

Wprowadzenie.

Arkusze można zabezpieczać na 2 sposoby (najlepiej na 2 równocześnie). Zakładając gdzie tylko możliwe trudne hasła :). I wprowadzając zawartość aktywną w postaci makr VBA - do których dostęp broni hasło.

Przeglądany skrypt zawierał wygenerowaną funkcję

Private Sub Workbook_Open()

która przy każdym wejściu sprawdzała czy przypadkiem nie trzeba wszystkiego zablokować... sposób weryfikacji i blokowania pozostawię bez komentarza ponieważ nie jest on stricte związany z Excelem a bardziej programowaniem...

Poza tym, obsłużone zostały wszystkie zdarzenia arkusza z gatunku

Workbook_SheetBeforeDoubleClick( Cancel As Boolean )

a w nich następowało sprawdzanie wartości "zapadłej" komórki w arkuszu i na tej podstawie cancel był ustawiany na true co skutkowało brakiem reakcji na dowolne kliknięcia i wywołania funkcji.

Aby to wszystko obejść wystarczyło wyłączyć procedurę wywoływaną przy zdarzeniu workbookOpen; no i to samo dla ustawiania tego cancel na true.

Po tych zabiegach pseudo-zabezpieczony arkusz śmiga jak należy :)

Usuwanie spacji z ciągu znaków

2008-05-14T10:42:00.003+02:00

W zmiennej cyfry można też podać inne znaki a funkcja będzie usuwać również inne znaki...

Sub usun_spacje()
  Dim s As String
  Dim sr As String
  sr = ""
  s = str(Selection.Value)
  cyfry = " "
  lcyf = Len(s)

  For i = 1 To lcyf
    Z = Mid(s, i, 1)
    If Z Like cyfry Then
    Else
      sr = sr + Z
    End If
  Next
  Selection.Value = sr
  Selection.Offset(1, 0).Select
End Sub

Można też przypisać jakiś klawisz skrótu i będzie znacznie szybciej...

Ukrywanie zabezpieczanie arkuszy

2008-04-28T22:12:00.010+02:00

Czasami jesteśmy przekonani, że w Excelu ktoś ukrył jakąś kartę a na niej jakieś ciekawe informacje. Aby się do nich dobrać należy włączyć edytor VBA - alt + F11. Tworząc nowy moduł piszemy w nim procedurę wypiszArkusze na wzór:

Sub wypiszArkusze()
  Dim arkusz()
  Dim widoczny()
 
  ile = ActiveWorkbook.Sheets.Count
  ReDim arkusz(1 To ile)
  ReDim widoczny(1 To ile)
  
  For i = 1 To ile
    arkusz(i) = ActiveWorkbook.Sheets(i).Name
    widoczny(i) = ActiveWorkbook.Sheets(i).Visible
    Range("B1").Offset(i, 0).Value = arkusz(i)
    Range("B1").Offset(i, 1).Value = widoczny(i)
    
    If False = widoczny(i) Then
      ActiveWorkbook.Sheets(i).Visible = True
    End If
  Next i
End Sub

W ten sposób otrzymamy kompletną listę zakładek i przy okazji wszystkie uaktywnimy.

słowa kluczowe: arkusz, ukrywanie arkusza arkuszy, ukryta zakładka w Excel,

Co do zabezpieczeń arkusza można w VBA użyć:

ActiveWorkbook.ProtectionStructure = True
' lub
ActiveWorkbook.ProtectionStructure = False

słowa kluczowe: zabezpieczenie arkusza arkuszy blokada Blokada kombinacji klawiszy CTRL + BREAK

Application.EnableCancelKey = xlDisabled
' nie zapomnijmy potem:
Application.EnableCancelKey = xlEnabled

Temat ten rozwiną się praktycznie w poście >>

Excel - Grupowanie danych w skoroszytach

2008-04-28T16:13:00.001+02:00

W zasadzie jedynym sensownym powodem stosowania tego "użytku" jest wizualizacja a konkretnie przejrzystość danych w skoroszycie.

Należy zaznaczyć fragment jakiejś kolumny lub wiersza i...

Dane | Grupy i konspekt | Grupuj | [wierszami, kolumnami]

No i wiersze lub kolumny dostaną swoje +/- w formie rozwijanego menu.

Można też stosować automat znajdujący się pod nazwą Autokonspekt.

Miłej zabawy...

słowa kluczowe: grupowanie danych w skoroszytach, kolekcje danych

Zakotwiczenie wiersza kolumny

2008-04-15T17:37:00.004+02:00

Otrzymałem pytanie:
"jak zrobić w openOffice zakotwiczenie wiersza i kolumny ? chodzi o to żeby pierwszy wiersz zjezdzajac na dol suwakiem był cały czas widoczny?"

Rozwiązanie jest proste:

menu górne | window | freeze

Działa dla wierszy - nigdy nie sprawdzałem jak zrobić, żeby działało dla kolumny

Otwieranie skoryszytu w trybie maximized minimized

2008-03-30T13:46:00.005+02:00

Aby otwierane okno Excela pojawiło się w trybie "na cały ekran" czyli z angielskiego maximized należy stworzyć makro, które będzie się wykonywać przy starcie arkusza. Aby to wykonać należy:

przejść do edytora VBA (Alt + F11) | PPM (prawy przycisk myszy) na ThisWorkbook | ViewCode

W okienku które pojawiło się należy w pierwszym oknie rozwijanym wybrać Workbook natomiast w drugim Open. Zostanie stworzona funkcja

Private Sub Workbook_Open()
End Sub

Aby "rozciągnąć" okno należy wpisać .WindowState=xlMaximized. W całości będzie to wyglądało w sposób następujący

Private Sub Workbook_Open()
 ActiveWindow.WindowState=xlMaximized
End Sub

Inne opcje pozwalają na:

ActiveWindow.WindowState=xlMinimized
ActiveWindow.WindowState=xlNormal

Otwieranie wczytywanie import plików tekstowych

2008-03-30T11:48:00.006+02:00

Excel (VBA) posiada zaimplementowany mechanizm do wczytywania plików - Opentext

plik=Application.GetOpenFilename("Text files, *.txt")
Workbooks.OpenText ...

Ogólnie otwieranie / importowanie zewnętrznych dokumentów można wykonywać za pomocą instrukcji open
Otwieranie arkuszy Excela:

Workbooks.Open FileName:="plik.xls" [, ReadOnly:=True]

Application.GetOpenFilename

Przykład na banalnie proste wczytanie pliku txt do arkusza:

Sub wczytajPlikTekstowy()
  Open ".\dane.txt" For Input As #1
  i = 0
  Do Until EOF(1)
    Input #1, liniatekstu
    Range("A1").Offset(i, 0) = LCase(liniatekstu)
    i = i + 1
  Loop
  Close #1
End Sub

Przypisanie klawisza skrótu do makra

2008-03-30T10:48:00.008+02:00

Kiedy już stworzymy jakąś procedurę w VBA (Alt + F11)

sub test()
end sub

w Excelu Alt + F8 | zaznaczmy makro test | opcje | wybieramy literę np M | OK

teraz w CTRL + SHIFT + m i makro wykona się wywołane skrótem klawiszowym

(jeśli w Excelu 2007 będziemy wpisywać małe literki skrót klawiszowy będzie się zaczynał od CTRL, inaczej gdy są duże - wtedy CTRL + SHIFT;
trzeba równocześnie pamiętać o umożliwieniu 'odtwarzania' makr - gdyż ta opcja jest domyślnie wyłączona w ramach bezpieczeństwa komputera)

VBA - Notacja R1C1 (ang) W1K1 (pl)

2008-03-30T08:19:00.001+02:00

W zasadzie wszystko jest tutaj banalne. Notacja W1K1 odnosi się m.in. do adresów względnych. Czyli takich w stosunku do bieżącego miejsca w arkuszu. Przykład:

Mamy w arkuszu (w lewym górnym rogu) dane:

4    5

w C1 możemy wpisać =A1*B1 i wynik wyjdzie 20

w VBA byłoby to:


Range("C1").Formula = "=A1*B1"

ale można też tak:

Range("C1").FormulaR1C1 = "=R[0]C[-2]*R[0]C[-1]"

i wynik będzie identyczny, dla uproszczenia można też stosować wpisy bez "zer" [0]

Range("C1").FormulaR1C1 = "=RC[-2]*RC[-1]"

VBA - Wyłączanie komunikatów Excela

2008-02-18T16:40:00.001+01:00

Wystarczy dodać przed danym fragmentem:

Application.DisplayAlerts = False

a potem, na koniec (żeby komunikaty w innych częściach aplikacji pokazywały się tak jak zwykle)

Application.DisplayAlerts = True

Aby w 100% zabezpieczyć się przed wyjątkami ze strony MS Office można użyć:

Application.DisplayAlerts = False
On Error Resume Next

Jest to jednak niebezpieczne, gdyż nie wiemy czy makra zostały poprawnie wykonane. Jeśli się z tego korzysta to trzeba wiedzieć po co!

Blokowanie kolumny wiersza

2008-01-30T21:21:00.001+01:00

Jeśli arkusz zbytnio się rozrasta wówczas pojawia się problem z wyświetlaniem wierszy / kolumn nagłówkowych - znikają one gdy przesuwamy się zbytnio w prawo lub w dół i szybko zapominamy o tym który to był wiersz / kolumna. Sprawa jest szczególnie dotkliwa gdy komórki są w dużej części puste i nie bardzo można się zorientować po danych co tak naprawdę reprezentowały.

Rozwiązaniem jest zablokowanie jakiegoś wiersza kolumny (najczęściej nagłówkowej).

Widok | Zablokuj okienka | Zablokuj górny wiersz

Widok | Zablokuj okienka | Zablokuj pierwszą kolumnę

Teraz przesuwając się wiersz / kolumna będzie zawsze na wierzchu.

Jest jeszcze opcja dowolnego zaznaczania obszaru 'statycznego'

Widok | Zablokuj okienka | Zablokuj okienka

Łączenie komórek - merge cells

2008-01-30T10:54:00.000+01:00

tworzymy makro o treści

Sub mergecells()
    With Selection
      .mergecells = True
    End With
End Sub

I przypisujemy mu klawisz skrótu np P (połącz)
czyli wywołanie będzie teraz możliwe za pomocą skrótu CTRL + SHIFT + P

Można też zrobić coś ciekawszego czyli do w/w skrótu przypisać makro zmieniające połączenie komórek na inne od aktualnego

Sub mergecells()
    With Selection
      .mergecells = Not .mergecells
    End With
End Sub

To samo bez bloku with wyglądało by w sposób następujący

Sub mergecells2()
    Selection.mergecells = Not Selection.mergecells
End Sub

VBA - Zaznaczanie wypełnionych komórek w wierszu / kolumnie

2007-12-16T12:48:00.006+01:00

Zaznaczanie wypełnionych komórek w kolumnie

Sub ZaznaczPelneElementyWKolumnie()

 If IsEmpty(ActiveCell) Then
  Exit Sub
 End If

 On Error Resume Next

 Dim Gorna As Range
 Dim dolna As Range

 If IsEmpty(ActiveCell.Offset(-1, 0)) Then
  Set Gorna = ActiveCell
 Else
  Set Gorna = ActiveCell.End(xlUp)
 End If

 If IsEmpty(ActiveCell.Offset(1, 0)) Then
  Set dolna = ActiveCell
 Else
  Set dolna = ActiveCell.End(xlDown)
 End If

 Range(Gorna, dolna).Select

End Sub

Zaznaczanie wypełnionych komórek w wierszu

Sub ZaznaczWypelnioneElementywWierszu()

 If IsEmpty(ActiveCell) Then
  Exit Sub
 End If

 On Error Resume Next

 Dim lewa As Range
 Dim prawa As Range

 If IsEmpty(ActiveCell.Offset(0, -1)) Then
  Set lewa = ActiveCell
 Else
  Set lewa = ActiveCell.End(xlToLeft)
 End If

 If IsEmpty(ActiveCell.Offset(0, 1)) Then
  Set prawa = ActiveCell
 Else 
  Set prawa = ActiveCell.End(xlToRight)
 End If

 Range(lewa, prawa).Select

End Sub

Makra działają oczywiście dla danych przylegających - tzn, że obszary rozdzielone z bieżącym pustymi komórkami a spełniające warunek o tej samej kolumnie czy wierszu nie zostaną podświetlone.

Skróty klawiaturowe Excel

Skróty klawiaturowe Excel do zaznaczania elementów:
CTRL + A - zaznacza wszystkie komórki arkusza
CTRL + SPACJA - zaznacza całą kolumnę
SHIFT + SPACJA - zaznacza cały wiersz
CTRL + SHIFT + HOME - zaznacza wszystko do początku arkusza
CTRL + SHIFT + END - zaznacza wszystkie komórki do końca arkusza
SHIFT + PAGE UP - zaznacza obszar o jeden ekran w górę
SHIFT + PAGE DOWN - zaznacza obszar o jeden ekran w dół
CTRL + SHIFT + SPACJA - zaznacza wszystkie niepuste przylegające komórki

VBA - Zaznaczanie specjalnych komórek

2007-11-15T18:48:00.002+01:00

W VBA zaznacza się np: puste elementy za pomocą: funkcji SpecialCells np:


Range("A1:B10").select
Selection.SpecialCells(xlCellTypeBlanks).Select


xlCellTypeBlanks (puste)
xlCellTypeComments (komentarze)
xlCellTypeAllFormatConditions (wszystkie)
xlCellTypeAllValidation (wszystkie walidowane)
xlCellTypeConstants (stałe)
xlCellTypeFormulas (formuły)
xlCellTypeLastCell (ostatnia)
xlCellTypeSameFormatConditions (te same formatowanie)
xlCellTypeSameValidation (te same opcje walidacji)
xlCellTypeVisible (widoczne)

Zobacz jak to zrobić w Excelu: zaznaczanie specjalnych elementów

VBA - Nauka nowych obiektów i metod

2007-10-18T16:43:00.003+02:00

Moim zdaniem najlepszy do tego typu zadania jest Object Browser (F2)

Po wejściu do MS VBA (Alt + F11) czyli edytora makr

Klika się F2 lub ikonkę "otwarte pudełeczko z wylatującymi kwadracikami".
No i pokazuje się kompletna lista klas metod itp. Jest ona dość toporna ale swoje zadanie spełnia.

Można nieco przyspieszyć szukanie odpowiedniego obiektu poprzez umieszczenie kursora (klawiatury) na nazwie jakiego obiektu np range i naciśnięcie Shift + F2

W ten sposób zostanie włączony Object Browser i automatycznie wyszukany obiekt range - oczywiście dla innych obiektów też powinno zadziałać :-]

To jeden z niewielu przypadków gdy dobrze działa pomoc kontekstowa ;-)

Like Zliczanie wystąpień znaków w ciągu

2007-09-09T15:45:00.002+02:00

Zliczanie ilości wystąpienia znaku (znaków) w ciągu

Function zlicz_cyfry(liczba As Double, cyfry As String) As Integer
ile = 0
Dim sliczba As String
sliczba = Str(liczba)
cyfry = "[" & cyfry & "]"
lcyf = Len(sliczba)
For i = 1 To lcyf
Z = UCase(Mid(sliczba, i, 1))
If Z Like cyfry Then
ile = ile + 1
End If
Next
zlicz_cyfry = ile
End Function

Test funkcji:

Public Sub test()
MsgBox Str(zlicz_cyfry(12341.34211, "12"))
End Sub

Aby funkcja była widoczna w odpowiedniej kategorii (a nie w sztucznej "funkcje użytkownika") należy zastosować sztuczkę:

Application.MacroOptions
Macro:="zlicz_cyfry"
Category := 7

Numer 7 oznacza kategorię tekstową. W helpie można odnaleźć ich wiele więcej:

Financial (finansowe)
Date & Time (data)
Math & Trig (matematyczne)
Statistical (funkcje statystyczne)
Lookup & Reference (wyszukiwania)
Database (bazodanowe)
Text (tekstowe)
Logical (logiczne)
Information (informacyjne)
Commands (polecenia)

itd...
odniesienie do strony helpa: Application.MacroOptions Method

Aby jeszcze lepiej opisać nową funkcję i umożliwić późniejsze efektywne korzystanie z niej należy dodać jej jakiś sensowny opis (o ile sama nazwa nie jest jeszcze dostatecznie wymowna). Np:

Application.MacroOptions
Macro:="zlicz_cyfry"
Description := "Zliczenie liczby wystąpień znaków w ciągu"

Wiele źródeł podaje różne sposoby przechowywania swoich makr... Niestety ich wielką wadą jest wg mnie znacząca niepraktyczność polegająca na wiązaniu własnych funkcji z funkcjami systemowymi Excela. W efekcie często pojawia się problem gdy przenosimy się na inną maszynę albo ponownie instalujemy system Windows.

Jedyną radą na to jest przechowywanie wszystkich sowich (upublicznionych) makr w konkretnym pliku .xls lub .xla. Znając jego ścieżki (albo trzymając go w katalogu bieżącym) możemy bez problemu korzystać z pewnych funkcji, a w razie kopiowania gdy będziemy kopiować całe katalogi zniknie zupełnie problem przenośności.

debug okno Immediate debuging

2007-08-19T19:57:00.003+02:00

Jest to dość rzadko używana funkcja edytora VBA - a jest bardzo pożyteczna.

W każdej chwili można w niej wpisać wyrażenia i sprawdzony zostanie jego rezultat - jest to stosowane do sprawdzania wartości kryjących się pod zmiennymi.
np:

? moja_zmienna
? ActiveWorkbook.Sheets(1).name
' lub
? ActiveWorkbook.Sheets.Count

Okienko Immediate można też stosować do ciągłego podglądu zdarzeń w aplikacji. Zamiast używać MsgBox , gdy chcemy testowo wyprowadzić wyniki na ekran można użyć:

Debug.Print "jakiś tam tekst"

Wynik tego pojawi się właśnie w okienku Immediate, co jest znacznie przyjemniejsze niż okienka MsgBox.

Bardziej praktyczne będzie śledzenie wykonania pętli For

for i = 1 to 10
debug.print i
next i

Procedury Sub Funkcje Function

2007-08-19T19:32:00.010+02:00

Wygląd - kod procedury

sub
' ...
end sub

private - procedura prywatna
public - procedura publiczna
static - procedura statyczna
exit sub - wyjście z procedury
optional - argument opcjonalny np: (optional i as integer = 1)

Gdy na początku umieścimy wpis
Option Private Module - wszystkie procedury w module będą domyślnie typu private

Uruchamianie procedur

W edytorze VBA: F5 lub Run | Run Macro
Klawiszem skótu
Poleceniem menu (należy uprzednio dostosować wygląd menu)
Z innej procedury - call procedura lubprocedura
Z innego modułu - call module.procedura
Z innego skoroszytu - Application.Run "'plik.xls'!procedura"Argumenty procedury

sub procedura ( argumenty)
end sub

Domyślnie argumenty przekazywane są przez referencje - ByRef - czyli poprzez adresy do miejsca w pamięci komputera. Aby przekazywać argumenty przez wartość dopisujemy przed nimi ByVal.

Tu problem pojawi się u programistów C, C++ dla których poprzedzanie argumentów dodatkowym słówkiem (var od variable) kojarzy się dokładnie z czymś odwrotnym czyli przekazywaniem przez referencje. Cóż...
Na szczęście roztrzygnięcie, kto jest winny takiemu bajzlowi nie trzeba się długo zajmować wystarczy sprawdzić co było pierwsze C czy MS :-)

Możemy też obywać się bez komunikatów o błędach

On Error Resume Next

lub

On Error GoTo bledy
' ...
' mięso
' ...
GoTo koniec
bledy:
if Err == X then ' (Err <> 0)
  MsgBox Error(Err)
end if
koniec:

a pod koniec procedury sprawdzamy wartość zmiennej systemowej Err tworząc swoje własne, bardziej zrozumiałe komunikaty.

Przy budowie własnych funkcji i procedur przydają się także:

' bez odświeżania po różnych operacjach

Applicatoin.ScreenUpdate = False

' wielkość znaków staje się nierozróżnialna

Option Text Compare

' brak możliwości ręcznego zastopowania makra

Application.EnableCancelKey = xlDisabled

Funkcje nie różnią się w zasadzie od procedur niczym oprócz tego, że zwracają jakąś wartość czyli używamy np:

function moja_funkcja(argument as integer) as integer
moja_funkcja = -argument
end function

Najciekawszą opcją przy tworzeniu funkcji i procedur jest jednak lista argumentów o zmiennej długości. W zasadzie większość wbudowanych funkcji typu suma, średnia itp na co dzień wykorzystywanych w Excelu bazuje na tym rozwiązaniu.

Aby zbudować taką funkcję należy jako argument podać:

ParamArray MojaLista() as Variant

W ten sposób można zbudować prostą funkcję do liczenia średniej

Function Srednia(ParamArray Lista() as Variant) as Double
 dim ile_elementow as integer
 ile_elementow = 0
 For Each element In Lista
   Srednia = Srednia + element
   ile_elementow = ile_elementow + 1
 Next ' Next element
 Srednia = Srednia / ile_elementow
End Function

Do przechodzenia po liście można też stosować LBound(Lista) lub UBound(Lista) - początek i koniec listy.

Tworząc funkcje bazujące na zmiennych pochodzących wprost z arkusza należy pamiętać o typach danych jakie arkusz może przechowywać. Poza tym bardzo istotne jest to, czy faktycznie w danej komórce znajduje się jakaś wartość.
Dobrze jest więc przed pobraniem (wykorzystaniem) danych sprawdzić co takiego faktycznie pobieramy...

Można to zrobić za pomocą funkcji

TypeName()

czyli nazwa typu. Można ją zastosować np:

TypeName(lista(argument))

Funkcja zwraca np Range, Null, Error lub inne.

Aby na czas obliczeń Excel nie przetwarzał zbędnie tego co się zmienia na ekranie można wyłączyć aktualizację ekranu:

Application.ScreenUpdating = False

by później włączyć ją ponownie

Application.ScreenUpdating = True

Inne ciekawe:

Przeliczanie funkcji za każdym razem, gdy cokolwiek w arkuszu ulegnie zmianie:

Function Delikatna()
  Application.Volatile = True
  '...
End Function

W Excel 2007 piszę się jak zwykle nico inaczej:

Function Delikatna2()
  Application.Volatile
  '...
End Function

Brak sprawdzania polskiej pisowni

2007-08-10T13:10:00.001+02:00

OpenOffice PL - Gdy nie działa moduł sprawdzania pisowni

Kiedy nie działa sprawdzanie pisowni w języku polskim po ściągnięciu polskiej wersji Open Office można dojść do wniosku, że ktoś nie do końca przemyślał całe to darmowe rozwiązanie...

Na szczęście w prosty sposób można to włączyć...

Writer | Plik | Kreatory | Zainstaluj nowe słowniki

Wybieramy język polski i dalej prowadzą nas za rączkę...

Excel 2007 Pierwsze kroki i pierwsze rozczarowania

2007-08-08T19:40:00.001+02:00

Wreszcie "spotkałem się" z najnowszym dzieckiem Microsoftu - Excelem 2007

Na pierwszy rzut oka wszystko jest super - ale problemy pojawiają się gdy chcemy odtworzyć stare makra...

Jest gorzej niż przy konwersji makr na Open Offica :(

Nie działają polecenia CommandBar, czy chr dla argumentów mniejszych niż 30 czyli chr(10) czyli twarde łamanie linii nie zadziała! :-/ Trzeba przyznać, że używanie chr(10) jest nieco toporne ale w starszych wersjach działało - a teraz nie :-(
Rada: poprzemieniać w całym projekcie Chr(10) na vbCr lub vbCrLf lub uniwersalnie można zastosować vbNewLine.

Dla CommandBar i innych obiektów problemy mogą pojawić się ze względu na konieczność używania pod Excel 2007 pełnych referencji do obiektów np
Application.CommandBars itp. Ale różnic jest jeszcze więcej nawet polecania Str czy Format dla wersji 2000 i 2007 to zupełnie inna bajka - a szkoda...

Trzeba się zabrać za szukanie trybu zgodności bo nic z tego nie będzie :))))

Paranoja - Microsoft po raz kolejny "leje" na kompatybilność - tym razem nawet w górę co jest już zupełnym kuriozum!

I jak tu żyć, gdy musimy korzystać z produktów tej firmy? Tym samym nie polecam tej aplikacji - ani całego pakietu w którym zapewne jest więcej takich kwiatków ;[

Nie działa Solver pod VBA

2007-08-06T16:44:00.004+02:00

Nie działa Solver pod VBA

Kiedy nie działa Solver (narzędzie do wyznaczania wartości granicznych odwzorowań-funkcji) pod VBA to sprawa wygląda dość dziwnie, ale jest na to proste rozwiązanie.

Wersja pierwsza (dla Excel-a)
Nie włączyliśmy Solvera pod Excelem...

Menu - Narzędzia | Dodatki | Solver

(zaznaczamy go - powinien być na końcu listy)

Wersja druga (dla VBA)
Wykonujemy wszystko to, co zaleciłem w wersji 1 :-) No chyba, że już gotowe... i jeszcze dla każdego projektu oddzielnie! należy wykonać

Włączamy projekt | Alt + F11 (edytor VBA) | Menu - Tools | References

na liście, Solver-a wcale może nie być... należy więc w pod przyciskiem

Browse

odnaleźć go na dysku - znajduje się on w katalogu instalacyjnym MS Office najczęściej

C:\Program Files\Microsoft Office\Office\

i dalej już powinno być podobnie...


\Library\Solver\Solver.xla

Dołączamy to i dalej powinny zadziałać polecenia z gatunku SolverReset czy SolverSolve...

Kontekstowy Help do arkusza kalkulacyjnego

2007-08-06T15:12:00.001+02:00

Słowo wprowadzenia...

Help kontekstowy inaczej mówiąc kontekstowa pomoc. Jest to nic innego jak starannie dopracowany Help spod "F1". Każdy z użytkowników PC-ta korzystał kiedyś z wiedzy zawartej pod owym klawiszem. Sęk w tym, żeby pomoc była faktycznie pomocna to wiedza otrzymana po naciśnięciu F1 powinna być adekwatna do położenia - stanu aplikacji / oknie w jakim się aktualnie znajdujemy.

W telegraficzny skrócie chodzi o to aby każda czynność wykonywana przy pomocy danej aplikacji miała swój odpowiednik w pliku Helpa - i w razie potrzeby klikając F1 wysyłamy (znany tylko dla aplikacji) numer do pliku helpa - no i ten wyświetla się na odpowiedniej stronie.

No więc, aby cały system działał - trzeba "wklepać" tony informacji do pliku .hlp - lub nowszego .chm. Odpowiednio powprowadzać numery rozdziałom i odwoływać się do nich z pliku .xls.

W pliku Excela - w zasadzie w VBA można odwoływać się do plików help-a w ten sposób:

Public Sub WyswietlPomoc(Optional ContextID As Long = 0)
 If ContextID = 0 Then
     Application.Help ThisWorkbook.Path & "\Plik.hlp"
 Else
     Application.Help ThisWorkbook.Path & "\Plik.hlp", ContextID
 End If
End Sub

Potem, do jakiegoś makra (np gdy nasunięta zostanie mysz nad obiekt) wpisujemy np:

WyswietlPomoc 1020

Darmowe aplikacje:

Help Creator firmy Breit Technologies

Łatwe, ale bardzo pracochłonne!

Polecam również lekturę:

http://office.microsoft.com/en-us/orkXP/HA011362801033.aspx

http://indigoware.com/support/docs/Excel_Help.pdf

Excel i VBA - Tutorial (EN)

2007-07-24T10:54:00.003+02:00

Naucz się ukrywać arkusze w Excel 2007. Ukrywanie arkuszy w Excel

Filtrowanie danych w Excel

Bardzo dobry kurs - tutorial dla Excel VBA - oczywiście w języku angielskim.

http://www.excel-vba.com/excel-vba-contents.htm

OpenOffice API - Developer Guide

2007-07-20T22:07:00.001+02:00

Na razie tylko link do całego API OpenOffice-a

UNO (Universal Network Objects)
Basic and many more
DevelopersGuide

Na początek powinno to jednak wystarczyć jako cenne źródło informacji przy pisaniu makr w Calc-u.

VBA - Obiekty lista podwpowiedzi

2007-07-18T16:44:00.002+02:00

Po wpisaniu np. Application piszemy kropkę

Application.

czekamy chwilę i powinna rozwinąć się lista podpowiedzi

jeżeli nie wpisaliśmy pierwszego polecenia to można

CTRL + spacja (CTRL + space)

inny przykład

ramki komórek:
Application.ActiveCell.Borders(

wielkość okna:
ActiveWindow.WindowState=

styl wyświetlania okien:
Windows.Arrange(

gdy nie wyświetlają się podpowiedzi to znaczy, że Excel VBA nie rozpoznaje typu obiektu

VBA - Otwieranie zamykanie kasowanie arkusza

2007-07-18T16:39:00.003+02:00

Zamykanie arkusza:

ActiveWorkbook.Close

ewentualnie można też:

ActiveWorkbook.Close SaveChanges := True
ActiveWorkbook.Close SaveChanges := False

Otwieranie arkusza:

Workbooks.Open Filename := "nazwa_pliku"

Kasowanie arkusza:

ActiveWindow.SelectedSheets.Delete

Excel - Usuwanie duplikatów

2007-07-18T16:33:00.005+02:00

Najprostszym chyba sposobem na pozbycie się duplikatów (ewentualnie generowanie listy unikalnych wartości) w arkuszu jest posłużenie się zaawansowanym filtrem, aby go włączyć należy w menu wybrać:

Dane | Filtr | Filtr zaawansowany

lub

Data | Filter | Advanced Filter

Zaznaczmy listę i zaznaczamy opcję "tylko unikatowe rekordy"

W ten sposób otrzymujemy oczyszczoną listę, dalej kopiujemy ją w pożądane miejsce lub generujemy gotową listę unikalną w innym miejscu arkusza/skoroszytu. Po pomyślnie przeprowadzonej operacji filtr można bez problemu wyłączyć.

słowa kluczowe: redundancja, pozbycie się redundancji danych w Excelu, nadmiarowość danych, duplikaty, kasowanie takich samych wierszy

Excel - Pływające komórki czyli pola tekstowe

2007-07-18T16:31:00.002+02:00

Aby do pewnych informacji mieć bardziej intuicyjny dostęp można jest "wyciosać" z topornego arkusza za pomocą sztuczki zwanej pole tekstowe.

Wybieramy w tym celu ikonę paska narzędziowego - rysowanie, lub:

Widok | Paski narzędzi | Rysowanie

Domyślnie pojawiający się na dole ekranu pasek zawiera ikonę kartki papieru z literką A. Klikamy.

Teraz należy umieścić jakiś prostokąt na arkuszu. Cały urok w tym, że zamiast wpisywać tam konkretne zdania można wpisać formułę.

Trzeba to jednak zrobić przez F2 lub klikając w pasku formuł. Pisząc w polu tekstowym się chyba nie da.

np: =A1

Jeżeli działa to na polu tekstowym powinien znajdować się napis / wartość z komórki A1.

Excel - Pływające komórki czyli pola tekstowe

Excel - Nagłówki i stopki

2007-07-18T16:30:00.002+02:00

Aby na każdej stronie wydruku widniały jakieś informacje typu logo, data czy coś podobnego należy stosować odpowiednio nagłówek lub stopkę (lub oba).

Widok | Nagłówki i stopki | wybieramy z gotowców albo opcja niestandardowe...

Excel - Nagłówki i stopki

Excel - Sprawdzenie jaką wersję posiadamy

2007-07-18T16:27:00.001+02:00

Można to sprawdzić w bardzo prosty sposób w menu:

Pomoc | Microsoft Excel - Informacje

Gotowe! :-)

słowa kluczowe: wersja ms office excel

Excel - Dynamiczne wyszukiwanie i pobieranie danych

2007-07-18T16:22:00.004+02:00

W Excelu dostępne są trzy podstawowe funkcje do wyszukiwania: Wyszukaj, Wyszukaj.Pionowo oraz Wyszukaj.Poziomo.

Pierwsza z nich nie wymaga raczej wyjaśniania a tym bardziej używania chociażby ze względu na to, że nawet Microsoft napisał, że to tylko tak... dla zgodności :-)

A więc co robi Wyszukaj.Pionowo

WYSZUKAJ.PIONOWO(odniesienie;tablica;nr_kolumny;kolumna)

Wygląda okropnie nieprawdaż? Za to stosuje się dużo prościej. A więc przykład :-)

Stwórz w arkuszu taką 2-kolumnową tabelę:


1 kierownik 2000
2 pracownik 1000
3 sprzątacz 500
4 kierowca 1000

Zaznacz ją w całości i nadaj nazwę stanowiska, jak? No tak jak w: praca z zakresami
stwórz drugą tabelę (wypełnij fragment danymi :-) ) w tym arkuszu:
```
Kowalski 1
Kwiatkowski 2
Kowalska 3
```
w wierszu z Kowalskim w kolejnej kolumnie za 1 wpisz:
```
=Wyszukaj.Pionowo(adres_komórki_z_wartoscia_1 ; stanowiska; 2)
```
Powinno wyskoczyć kierownik
podobnie można zrobić w kolejnej komórce:=Wyszukaj.Pionowo(adres_komórki_z_1 ; stanowiska; 3)
Powinno wyskoczyć 2000 czyli jego pensja

Polecenie Wyszukaj.Poziomo to zwykła analogia. Proste!

słowa kluczowe: dynamiczne wyszukiwanie i pobieranie danych

Excel - Zbiory danych czyli praca z zakresami

2007-07-18T16:21:00.003+02:00

Tony komórek indeksowanych literami i liczbami są trudne w obsłudze. W Excelu istnieje możliwość nadawania poszczególnym grupom - zbiorom komórek nazw.
Zaznacz obszar
Wstaw | Nazwa | Definiuj
(lub w Excel 2007: Formuły | Definiuj Nazwę | Definiuj Nazwę)

Nadaj nazwę zakresowi... i gotowe :)
Teraz spróbujmy sztuczki: w jakiejś pustej komórce wpiszmy

=Nazwa_funkcji(Nazwa_zakresu)
np:
=max(moj_zakres)

Robi się coraz przejrzyściej... i przyjemniej :-)
Excel - zbiory danych czyli praca z zakresami

Excel - Tabele i wykresy przestawne

2007-07-18T16:17:00.001+02:00

Tabele i wykresy przestawne

Na początku chciałbym zaznaczyć, że tworzenie tabel przestawnych zawiera więcej terminologii niż faktycznego skomplikowana. Tabele zostały stworzone jako kolejny dość zaawansowany element pozwalający w prosty sposób wizualizować dane.

Dane | Raport tabeli przestawnej i wykresu przestawnego

Osobiście nie bardzo wyobrażam sobie jak w szczegółach można wyjaśnić działanie tego mechanizmu. Najprościej więc zacząć od przykładów. Weźmy sobie jakieś dane - na początek najlepiej 1- wymiarowe czyli w zasadzie 1 kolumna i jedna dodatkowa służąca do opisu. Wpiszmy trochę bzdur, i... teraz czas na testowanie. (tabela to może to być nazwa towaru i cena obok)

Należy zaznaczyć wprowadzone elementy i wyklikać tabele przestawne w menu

Opcje domyślne na początek wystarczą, raport proponuje wkleić do tego samego skoroszytu, żeby efekty były jaśniejsze. Góra 10 min na ogląd całości - efektów - i pierwsze bliskie spotkanie z tym UFO-przestawnym raportem mamy za sobą :-)

Teraz należy mychą poprzeciągać znalezione przez automat elementy w pierwotnym zaznaczeniu do nowych pól, gdzie będą od teraz wyświetlanie zestawienia.

OK i gotowe!

To chyba nie jest strasznie trudne? O ile działa ;P

Jeśli chodzi o wykresy przestawne to... w zasadzie nie widzę jakiejś specjalnej różnicy pomiędzy tworzeniem prostego wykresu czy tabeli przestawnej.

Wystarczy nieznacznie zmodyfikować procedurę odnośnie tabeli przestawnej: zmodyfikować fragment, gdzie odznacza się wykres przestawny zamiast owej tabeli. Tutaj też tworzenie sprowadza się potem do wizualnego rozmieszczenia elementów.

Excel - Menedżer raportów

2007-07-18T16:15:00.001+02:00

Excel - menedżer raportów czyli automatyzacja procesów związanych z wizualizacją podsumowań jako zbiorów danych rozrzuconych po skoroszycie

Opcja menedżer raportów powinna być dostępna w menu Widok, jeśli jednak jej nie ma to należy ją włączyć. Zarządzaniem dodatkami do Excela zajmuje sie opcja.

Narzędzia | Dodatki - tam znajdujemy menedżera raportów i zaznaczmy [OK]

teraz...

Widok | Menedżer raportów

Wpisujemy tytuł, dodajemy sekcje o scenariuszu np: conroy i OK.

Teraz wystarczy z menedżera wybrać odpowiedni raport i drukuj. Czyż to nie piękne? :-)

Excel - Tworzenie prostego wykresu sin, cos

2007-07-17T22:28:00.000+02:00

Aby mieć co rysować przydało by się najpierw wygenerować nieco ciekawych danych na potrzeby tego ćwiczenia.

Tworzenie danych potrzebnych do narysowania funkcji sinus.

W komórce A1 wpisz -2 (to w radianach ale Excel nie musi przecież o tym wiedzieć)
W komórce A2 wpisz =A1+0,1
Złap za prawy dolny kwadracik (róg) komórki A2 i przeciągnij ją kilkadziesiąt pól w dół. Powinny się one uzupełnić liczbami od -1,8 aż do 2 albo i więcej (w zależności od zaznaczenia)
W B1 wpisz =SIN(A1*PI()) i podobnie jak w kolumnie A przekopiuj te do dołu - odpowiednio co do długości jak w kolumnie A. Kolumna powinna uzupełnić się liczbami rzeczywistymi z zakresu -1..1 (tak jak w funkcji sin).

Tworzenie wykresu

Zaznaczamy dane w kolumnie B
Klikamy w ikonę wykresu bądź w menu Wstaw | Wykres
Wybieramy jakiś liniowy typ wykresu
W zakładce serie zmieniamy nazwę na sin, a etykiety osi X na te z kolumny A
Dalej dalej i wstaw jako obiekt w arkuszu

Powinno być gotowe :-) Żeby wykres był ciekawszy można dodać analogicznie cosinus-a.

Tworzenie danych do wykresu funkcji cosinus

w C1 wpisujemy =COS(A1*PI())
kopiujemy to w dół ciągnąc za prawy dolny róg
gotowe :)

Dodawanie kolejnych elementów (cos) do wykresu

Na wykresie PPM (prawy przycisk mychy) Dane źródłowe
Dodajemy nową serię nazywając ją cosinus
Wartości nadajemy jej zaznaczając dane w kolumnie C
gotowe :)

Teraz można pobawić się kolorami - ale to już deser ;D

VBA Zaznaczanie specjalnych komórek - xlCellType

2007-07-17T22:16:00.004+02:00

W VBA zaznacza się np: puste elementy za pomocą: funkcji SpecialCells np:

Range("A1:B10").select
Selection.SpecialCells(xlCellTypeBlanks).Select

xlCellTypeBlanks (puste)
xlCellTypeComments (komentarze)
xlCellTypeAllFormatConditions (wszystkie)
xlCellTypeAllValidation (wszystkie walidowane)
xlCellTypeConstants (stałe)
xlCellTypeFormulas (formuły)
xlCellTypeLastCell (ostatnia)
xlCellTypeSameFormatConditions (te same formatowanie)
xlCellTypeSameValidation (te same opcje walidacji)
xlCellTypeVisible (widoczne)

Dla Excela:

Na liście czasami trzeba wyszukać jakieś specjalne elementy - np. komórki puste. Służy do tego

Edycja | Przejdź do | Specjalnie | Puste (jest do wyboru więcej opcji)

Ctrl + G

Opcji tej należy użyć uprzednio zaznaczając jakiś fragment arkusza.

slowka pl

2007-07-17T22:07:00.002+02:00

Option Explicit

Sub Tworz_tabele()
   Xtitle
   Xpustewiersze
   Xwyrazy
   XpolskieZdania
   Xbolder
   Xformat
   xkolumna
   xwyswiersza
   xprzerwy
   xczcionka
   xbiale
   ActiveWorkbook.Save
End Sub

Sub Xtitle()
   Range("A1").Value = Range("A1").Value + " - " + Range("A2").Value + " - " + Range("A4").Value
  
   Range("a2").EntireRow.Delete
   Range("a3").EntireRow.Delete
End Sub

Sub Xpustewiersze()
   Range("A49").Select
   ActiveCell.EntireRow.Delete
  
   Range("A44").Select
   ActiveCell.EntireRow.Delete
  
   Range("A39").Select
   ActiveCell.EntireRow.Delete
  
   Range("A34").Select
   ActiveCell.EntireRow.Delete
  
   Range("A29").Select
   ActiveCell.EntireRow.Delete
  
   Range("A24").Select
   ActiveCell.EntireRow.Delete
  
   Range("A19").Select
   ActiveCell.EntireRow.Delete
  
   Range("A14").Select
   ActiveCell.EntireRow.Delete
  
   Range("A9").Select
   ActiveCell.EntireRow.Delete
  
   Range("A4").Select
   ActiveCell.EntireRow.Delete
End Sub

Sub Xrozdzielwyraz()
   Dim pl As String
   Dim en As String
   Dim podz As Integer
  
   podz = InStr(ActiveCell.Text, " - ")
  
   pl = Mid(ActiveCell.Text, podz + 3, Len(ActiveCell.Text) - podz - 2)
   en = Mid(ActiveCell.Text, 1, podz)
  
   ActiveCell.Offset(0, -1).Value = pl
   ActiveCell.Value = en
  
End Sub
Sub Xwyrazy()
'
   Range("B3").Select
   Xrozdzielwyraz
  
   Range("B7").Select
   Xrozdzielwyraz
  
   Range("B11").Select
   Xrozdzielwyraz
  
   Range("B15").Select
   Xrozdzielwyraz
  
   Range("B19").Select
   Xrozdzielwyraz
  
   Range("B23").Select
   Xrozdzielwyraz
  
   Range("B27").Select
   Xrozdzielwyraz
  
   Range("B31").Select
   Xrozdzielwyraz
  
   Range("B35").Select
   Xrozdzielwyraz
  
   Range("B39").Select
   Xrozdzielwyraz
End Sub

Sub XpolskieZdania()
   Range("A40").Value = Range("a41").Value
   Range("a41").EntireRow.Delete
  
   Range("A36").Value = Range("a37").Value
   Range("a37").EntireRow.Delete
  
   Range("A32").Value = Range("a33").Value
   Range("a33").EntireRow.Delete

   Range("a28").Value = Range("a29").Value
   Range("a29").EntireRow.Delete

   Range("A24").Value = Range("a25").Value
   Range("a25").EntireRow.Delete

   Range("A20").Value = Range("a21").Value
   Range("a21").EntireRow.Delete

   Range("A16").Value = Range("a17").Value
   Range("a17").EntireRow.Delete

   Range("A12").Value = Range("a13").Value
   Range("a13").EntireRow.Delete

   Range("A8").Value = Range("a9").Value
   Range("a9").EntireRow.Delete

   Range("A4").Value = Range("a5").Value
   Range("a5").EntireRow.Delete
End Sub

Sub Xbolder()
   Range("B3").Select
   Selection.Font.Bold = True
   Range("B6").Select
   Selection.Font.Bold = True
   Range("B9").Select
   Selection.Font.Bold = True
   Range("B12").Select
   Selection.Font.Bold = True
   Range("B15").Select
   Selection.Font.Bold = True
   Range("B18").Select
   Selection.Font.Bold = True
   Range("B21").Select
   Selection.Font.Bold = True
   Range("B24").Select
   Selection.Font.Bold = True
   Range("B27").Select
   Selection.Font.Bold = True
   Range("B30").Select
   Selection.Font.Bold = True
End Sub
Sub Xformat()
   Columns("A:A").ColumnWidth = 36
   Columns("B:B").ColumnWidth = 45.83
   Columns("A:A").ColumnWidth = 44
End Sub

Sub xkolumna()
   Columns("B:B").Select
   Selection.Insert Shift:=xlToRight
   Selection.ColumnWidth = 3
  
   Range("B2").Select
   Application.CutCopyMode = False
   ActiveCell.FormulaR1C1 = " "
   Range("B2").Select
   Selection.Copy
   Range("B3:B31").Select
   ActiveSheet.Paste
End Sub

Sub xwyswiersza()
  
   Rows("4:4").Select
   Selection.RowHeight = 37.5
   Application.CutCopyMode = False
   With Selection
       .HorizontalAlignment = xlGeneral
       .VerticalAlignment = xlBottom
       .WrapText = True
       .Orientation = 0
       .AddIndent = False
       .ShrinkToFit = False
       .MergeCells = False
   End With
  
   Rows("7:7").Select
   Selection.RowHeight = 37.5
   Application.CutCopyMode = False
   With Selection
       .HorizontalAlignment = xlGeneral
       .VerticalAlignment = xlBottom
       .WrapText = True
       .Orientation = 0
       .AddIndent = False
       .ShrinkToFit = False
       .MergeCells = False
   End With
   Rows("10:10").Select
   Selection.RowHeight = 37.5
   Application.CutCopyMode = False
   With Selection
       .HorizontalAlignment = xlGeneral
       .VerticalAlignment = xlBottom
       .WrapText = True
       .Orientation = 0
       .AddIndent = False
       .ShrinkToFit = False
       .MergeCells = False
   End With
      
   Rows("13:13").Select
   Selection.RowHeight = 37.5
   Application.CutCopyMode = False
   With Selection
       .HorizontalAlignment = xlGeneral
       .VerticalAlignment = xlBottom
       .WrapText = True
       .Orientation = 0
       .AddIndent = False
       .ShrinkToFit = False
       .MergeCells = False
   End With

      
   Rows("16:16").Select
   Selection.RowHeight = 37.5
   Application.CutCopyMode = False
   With Selection
       .HorizontalAlignment = xlGeneral
       .VerticalAlignment = xlBottom
       .WrapText = True
       .Orientation = 0
       .AddIndent = False
       .ShrinkToFit = False
       .MergeCells = False
   End With

      
   Rows("19:19").Select
   Selection.RowHeight = 37.5
   Application.CutCopyMode = False
   With Selection
       .HorizontalAlignment = xlGeneral
       .VerticalAlignment = xlBottom
       .WrapText = True
       .Orientation = 0
       .AddIndent = False
       .ShrinkToFit = False
       .MergeCells = False
   End With
      
   Rows("22:22").Select
   Selection.RowHeight = 37.5
   Application.CutCopyMode = False
   With Selection
       .HorizontalAlignment = xlGeneral
       .VerticalAlignment = xlBottom
       .WrapText = True
       .Orientation = 0
       .AddIndent = False
       .ShrinkToFit = False
       .MergeCells = False
   End With
  
      
   Rows("25:25").Select
   Selection.RowHeight = 37.5
   Application.CutCopyMode = False
   With Selection
       .HorizontalAlignment = xlGeneral
       .VerticalAlignment = xlBottom
       .WrapText = True
       .Orientation = 0
       .AddIndent = False
       .ShrinkToFit = False
       .MergeCells = False
   End With
      
   Rows("28:28").Select
   Selection.RowHeight = 37.5
   Application.CutCopyMode = False
   With Selection
       .HorizontalAlignment = xlGeneral
       .VerticalAlignment = xlBottom
       .WrapText = True
       .Orientation = 0
       .AddIndent = False
       .ShrinkToFit = False
       .MergeCells = False
   End With
      
   Rows("31:31").Select
   Selection.RowHeight = 37.5
   Application.CutCopyMode = False
   With Selection
       .HorizontalAlignment = xlGeneral
       .VerticalAlignment = xlBottom
       .WrapText = True
       .Orientation = 0
       .AddIndent = False
       .ShrinkToFit = False
       .MergeCells = False
   End With
  
End Sub
Sub xprzerwy()
   Rows("2:2").Select
   Selection.RowHeight = 7.5
   Rows("5:5").Select
   Selection.RowHeight = 7.5
   Rows("8:8").Select
   Selection.RowHeight = 7.5
   Rows("11:11").Select
   Selection.RowHeight = 7.5
   Rows("14:14").Select
   Selection.RowHeight = 7.5
   Rows("17:17").Select
   Selection.RowHeight = 7.5
   Rows("20:20").Select
   Selection.RowHeight = 7.5
   Rows("23:23").Select
   Selection.RowHeight = 7.5
   Rows("26:26").Select
   Selection.RowHeight = 7.5
   Rows("29:29").Select
   Selection.RowHeight = 7.5
End Sub

Sub xczcionka()
   Range("A1:C31").Select
   With Selection.Font
       .Name = "Times New Roman CE"
       .Size = 14
       .Strikethrough = False
       .Superscript = False
       .Subscript = False
       .OutlineFont = False
       .Shadow = False
       .Underline = xlUnderlineStyleNone
       .ColorIndex = xlAutomatic
   End With
   With Selection
       .HorizontalAlignment = xlLeft
       .VerticalAlignment = xlCenter
       .Orientation = 0
       .AddIndent = False
       .IndentLevel = 0
       .ShrinkToFit = False
       .MergeCells = False
   End With
End Sub

' zmieniamy kolor na bialy
Sub xbiale()
   Range("A1:C31").Select
   Range("C31").Activate
   With Selection.Interior
       .ColorIndex = 2
       .Pattern = xlSolid
   End With
End Sub

VBA - nauka j. angielskiego na slowka.pl

2007-07-17T22:07:00.001+02:00

basic - nauka j. angielskiego na slowka.pl

przyznam, że portal slowka.pl należy do grupy częściej przeze mnie odwiedzanych

po pewnym czasie doszedłem do wniosku, że słabo sobie utrwalam stare słówka więc postanowiłem je drukować

i
tutaj pojawiło się gro problemów - najpierw składałem wydruki z
pojedynczych lekcji, potem z tygodniowych, ale w obydwu przypadkach
robota była co najmniej żmudna :-(

coś z tym trzeba było zrobić!

no i z pomocą przyszedł Excel - napisałem sobie proste makro, oto ono:

Sub Tworz_tabele()
  Xtitle
  Xpustewiersze
  Xwyrazy
  XpolskieZdania
  Xbolder
  Xformat
  xkolumna
  xwyswiersza
  xprzerwy
  xczcionka
  xbiale
  ActiveWorkbook.Save
End Sub

Sub Xtitle()
  Range("A1").Value = Range("A1").Value + _
    " - " + Range("A2").Value + " - " + _
    Range("A4").Value

  Range("a2").EntireRow.Delete
  Range("a3").EntireRow.Delete
End Sub

Sub Xpustewiersze()
  Range("A49").Select
  ActiveCell.EntireRow.Delete

  Range("A44").Select
  ActiveCell.EntireRow.Delete

  Range("A39").Select
  ActiveCell.EntireRow.Delete

  Range("A34").Select
  ActiveCell.EntireRow.Delete

  Range("A29").Select
  ActiveCell.EntireRow.Delete

  Range("A24").Select
  ActiveCell.EntireRow.Delete

  Range("A19").Select
  ActiveCell.EntireRow.Delete

  Range("A14").Select
  ActiveCell.EntireRow.Delete

  Range("A9").Select
  ActiveCell.EntireRow.Delete

  Range("A4").Select
  ActiveCell.EntireRow.Delete
End Sub

Sub Xrozdzielwyraz()
  Dim pl As String
  Dim en As String
  Dim podz As Integer

  podz = InStr(ActiveCell.Text, " - ")

  pl = Mid(ActiveCell.Text, podz + 3, _
    Len(ActiveCell.Text) - podz - 2)
  en = Mid(ActiveCell.Text, 1, podz)

  ActiveCell.Offset(0, -1).Value = pl
  ActiveCell.Value = en

End Sub
Sub Xwyrazy()
'
  Range("B3").Select
  Xrozdzielwyraz

  Range("B7").Select
  Xrozdzielwyraz

  Range("B11").Select
  Xrozdzielwyraz

  Range("B15").Select
  Xrozdzielwyraz

  Range("B19").Select
  Xrozdzielwyraz

  Range("B23").Select
  Xrozdzielwyraz

  Range("B27").Select
  Xrozdzielwyraz

  Range("B31").Select
  Xrozdzielwyraz

  Range("B35").Select
  Xrozdzielwyraz

  Range("B39").Select
  Xrozdzielwyraz
End Sub

Sub XpolskieZdania()
  Range("A40").Value = Range("a41").Value
  Range("a41").EntireRow.Delete

  Range("A36").Value = Range("a37").Value
  Range("a37").EntireRow.Delete

  Range("A32").Value = Range("a33").Value
  Range("a33").EntireRow.Delete

  Range("a28").Value = Range("a29").Value
  Range("a29").EntireRow.Delete

  Range("A24").Value = Range("a25").Value
  Range("a25").EntireRow.Delete

  Range("A20").Value = Range("a21").Value
  Range("a21").EntireRow.Delete

  Range("A16").Value = Range("a17").Value
  Range("a17").EntireRow.Delete

  Range("A12").Value = Range("a13").Value
  Range("a13").EntireRow.Delete

  Range("A8").Value = Range("a9").Value
  Range("a9").EntireRow.Delete

  Range("A4").Value = Range("a5").Value
  Range("a5").EntireRow.Delete
End Sub

Sub Xbolder()
  Range("B3").Select
  Selection.Font.Bold = True
  Range("B6").Select
  Selection.Font.Bold = True
  Range("B9").Select
  Selection.Font.Bold = True
  Range("B12").Select
  Selection.Font.Bold = True
  Range("B15").Select
  Selection.Font.Bold = True
  Range("B18").Select
  Selection.Font.Bold = True
  Range("B21").Select
  Selection.Font.Bold = True
  Range("B24").Select
  Selection.Font.Bold = True
  Range("B27").Select
  Selection.Font.Bold = True
  Range("B30").Select
  Selection.Font.Bold = True
End Sub
Sub Xformat()
  Columns("A:A").ColumnWidth = 36
  Columns("B:B").ColumnWidth = 45.83
  Columns("A:A").ColumnWidth = 44
End Sub

Sub xkolumna()
  Columns("B:B").Select
  Selection.Insert Shift:=xlToRight
  Selection.ColumnWidth = 3

  Range("B2").Select
  Application.CutCopyMode = False
  ActiveCell.FormulaR1C1 = " "
  Range("B2").Select
  Selection.Copy
  Range("B3:B31").Select
  ActiveSheet.Paste
End Sub

Sub xwyswiersza()

  Rows("4:4").Select
  Selection.RowHeight = 37.5
  Application.CutCopyMode = False
  With Selection
      .HorizontalAlignment = xlGeneral
      .VerticalAlignment = xlBottom
      .WrapText = True
      .Orientation = 0
      .AddIndent = False
      .ShrinkToFit = False
      .MergeCells = False
  End With

  Rows("7:7").Select
  Selection.RowHeight = 37.5
  Application.CutCopyMode = False
  With Selection
      .HorizontalAlignment = xlGeneral
      .VerticalAlignment = xlBottom
      .WrapText = True
      .Orientation = 0
      .AddIndent = False
      .ShrinkToFit = False
      .MergeCells = False
  End With
  Rows("10:10").Select
  Selection.RowHeight = 37.5
  Application.CutCopyMode = False
  With Selection
      .HorizontalAlignment = xlGeneral
      .VerticalAlignment = xlBottom
      .WrapText = True
      .Orientation = 0
      .AddIndent = False
      .ShrinkToFit = False
      .MergeCells = False
  End With
    
  Rows("13:13").Select
  Selection.RowHeight = 37.5
  Application.CutCopyMode = False
  With Selection
      .HorizontalAlignment = xlGeneral
      .VerticalAlignment = xlBottom
      .WrapText = True
      .Orientation = 0
      .AddIndent = False
      .ShrinkToFit = False
      .MergeCells = False
  End With

    
  Rows("16:16").Select
  Selection.RowHeight = 37.5
  Application.CutCopyMode = False
  With Selection
      .HorizontalAlignment = xlGeneral
      .VerticalAlignment = xlBottom
      .WrapText = True
      .Orientation = 0
      .AddIndent = False
      .ShrinkToFit = False
      .MergeCells = False
  End With

    
  Rows("19:19").Select
  Selection.RowHeight = 37.5
  Application.CutCopyMode = False
  With Selection
      .HorizontalAlignment = xlGeneral
      .VerticalAlignment = xlBottom
      .WrapText = True
      .Orientation = 0
      .AddIndent = False
      .ShrinkToFit = False
      .MergeCells = False
  End With
    
  Rows("22:22").Select
  Selection.RowHeight = 37.5
  Application.CutCopyMode = False
  With Selection
      .HorizontalAlignment = xlGeneral
      .VerticalAlignment = xlBottom
      .WrapText = True
      .Orientation = 0
      .AddIndent = False
      .ShrinkToFit = False
      .MergeCells = False
  End With

    
  Rows("25:25").Select
  Selection.RowHeight = 37.5
  Application.CutCopyMode = False
  With Selection
      .HorizontalAlignment = xlGeneral
      .VerticalAlignment = xlBottom
      .WrapText = True
      .Orientation = 0
      .AddIndent = False
      .ShrinkToFit = False
      .MergeCells = False
  End With
    
  Rows("28:28").Select
  Selection.RowHeight = 37.5
  Application.CutCopyMode = False
  With Selection
      .HorizontalAlignment = xlGeneral
      .VerticalAlignment = xlBottom
      .WrapText = True
      .Orientation = 0
      .AddIndent = False
      .ShrinkToFit = False
      .MergeCells = False
  End With
    
  Rows("31:31").Select
  Selection.RowHeight = 37.5
  Application.CutCopyMode = False
  With Selection
      .HorizontalAlignment = xlGeneral
      .VerticalAlignment = xlBottom
      .WrapText = True
      .Orientation = 0
      .AddIndent = False
      .ShrinkToFit = False
      .MergeCells = False
  End With

End Sub
Sub xprzerwy()
  Rows("2:2").Select
  Selection.RowHeight = 7.5
  Rows("5:5").Select
  Selection.RowHeight = 7.5
  Rows("8:8").Select
  Selection.RowHeight = 7.5
  Rows("11:11").Select
  Selection.RowHeight = 7.5
  Rows("14:14").Select
  Selection.RowHeight = 7.5
  Rows("17:17").Select
  Selection.RowHeight = 7.5
  Rows("20:20").Select
  Selection.RowHeight = 7.5
  Rows("23:23").Select
  Selection.RowHeight = 7.5
  Rows("26:26").Select
  Selection.RowHeight = 7.5
  Rows("29:29").Select
  Selection.RowHeight = 7.5
End Sub

Sub xczcionka()
  Range("A1:C31").Select
  With Selection.Font
      .Name = "Times New Roman CE"
      .Size = 14
      .Strikethrough = False
      .Superscript = False
      .Subscript = False
      .OutlineFont = False
      .Shadow = False
      .Underline = xlUnderlineStyleNone
      .ColorIndex = xlAutomatic
  End With
  With Selection
      .HorizontalAlignment = xlLeft
      .VerticalAlignment = xlCenter
      .Orientation = 0
      .AddIndent = False
      .IndentLevel = 0
      .ShrinkToFit = False
      .MergeCells = False
  End With
End Sub

' zmieniamy kolor na bialy
Sub xbiale()
  Range("A1:C31").Select
  Range("C31").Activate
  With Selection.Interior
      .ColorIndex = 2
      .Pattern = xlSolid
  End With
End Sub

Oto procedura co teraz należy z nim zrobić. Oczywiście poza wstawieniem go do pliku .xls :-)

Należy sobie zaznaczyć tekst (słówka + zdania) ten po teście tygodniowym...
Od linii tytułowej aż do ostatniego zdania.

Potem wchodzimy do Excela i wklejamy to jako specjalne - czysty text.

No i teraz czas na makro.

Alt + F8. Twórz_tabele

Wszystko
samo się powinno zrobić. Gotowe zaznaczenie kopiujemy i można to sobie
teraz wstawić do MS Word-a czy OO Writer-a jak tam kto woli :-D

Sens
czyli idea tego dość skomplikowanego przedsięwzięcia polega na tym, że
po wydrukowaniu można kartkę zgiąć w połowie (wertykalnie) i czytając
słowa po polsku zmuszać mózg do pracy w szukaniu angielskich
odpowiedników. Jest to o wiele lepszy sposób gdyż nie można sobie
pomagać zezując na podpowiedź :-)

VBA - Okna dialogowe InputBox MsgBox

2007-07-17T22:03:00.007+02:00

Okienka dialogowe służą do komunikacji aplikacji z użytkownikiem. Do wprowadzania danych służy Application.InputBox.

dim tmp
tmp = InputBox("Wprowadź dane")

Do wyprowadzania danych na ekran służy MsgBox.

dim tmp
tmp = MsgBox("Treść wiadomości" & vbCrLf & "druga linia", _ 
vbOKOnly, "Tytuł wiadomości")

vbOKOnly można zastąpić przez:

vbYesNo
vbYesNoCancel
vbSystemModal
vbOKCancel
vbRetryCancel

Zobacz też:
Bezpieczne wczytywanie danych - InputBox

słowa kluczowe: input, input box, inputbox, msg box, message box, messagebox, msgbox, okno dialogowe, okienko dialogowe VBA

VBA - Obiekt Range, bieżący obszar, praca z zakresami

2007-07-17T22:00:00.012+02:00

Range (zakres komórek) to obiekt, który wykorzystuje się najczęściej.

Najpopularniejszą jego instancją jest Selection, czyli zaznaczenie.
Przykłady:
Na początek tworzymy obiekt

Dim k As Range
Set k = Selection

Jak powiększyć obszar zaznaczenia o jedno pole w prawo i jedno pole w dół:

k.Offset(0, 0).Resize(k.Rows.Count + 1, k.Columns.Count + 1).Select

Jak powiększyć obszar zaznaczenia o jedno pole w lewo i jedno pole w górę:

k.Offset(-1, -1).Resize(k.Rows.Count + 1, _
   k.Columns.Count + 1).Select

Bieżący - aktualnie zaznaczony/aktywny obszar danych

Selection.CurrentRegion.Select

10-ta komórka zaznaczenia:

k.Cells(10).Value

10-ty wiersz zaznaczenia:

k.Rows(10).Select

poza tym nie mylić Selection z ActiveCell

Zaznaczenie obszaru przyległych komórek do komórki aktualnie podświetlonej (aktywnej) można wykonać poprzez:

Range("B2").Select
Selection.CurrentRegion.Select

lub

ActiveCell.CurrentRegion.Select

Znajdowanie brzegowych komórek w bieżącym obszarze wykonuje się:

Selection.End(xlDown).Select

Można też stosować

xlDown
xlToLeft ' w lewo
xlToRight ' w prawo
xlUp ' do góry

Kopiowanie zakresów:

Range("B3").Select
Selection.Copy
Range("B4").Select
Selection.Paste
Application.CutCopyMode = False

lub

Range("X11").Copy Range("X2")

Można też podawać pełne ścieżki czyli:

Workbooks("Tester.xls").Sheets("ABC").Range("X263").Copy
Sheets("DABC").Range("Y263").Copy

Jeśli nadamy nazwy zakresom czyli:

Set zakres = Range("B11").Copy

wtedy można stosować przy kopiowaniu nazwy zakresów

zakresA.Copy zakresB

odpowiednio dla przenoszenia byłoby:

zakresA.Cut zakresB

słowa kluczowe: range, zakres, Excel, VBA, Selection, Copy, Paste, CutCopyMode, Cut,

Excel - Import eksport danych

2007-07-17T13:01:00.000+02:00

Excel - Import danych

sposób 1. Importuj dane

Narzędzie do importowania danych jest bardzo rozbudowane. Aby je włączyć odszukaj:

Dane | Pobierz dane zewnętrzne

dla plików tekstowych można wybrać opcję

Importuj plik tekstowy

a kreator sam poprowadzi Cię za rączkę :-) Ciekawszą opcją w tym pod-menu jest

Utwórz nową kwerendę bazy danych

Tu możemy importować z takich plików jak Excel czy Access

sposób 2.
Wstaw obiekt

Innym sposobem na pobieranie danych jest wstawianie obiektów.

Wstaw | Obiekt | [Utwórz z pliku] [OK]

No i gotowe...

Przykład: Pobieranie danych ze stron www

Dane | Pobierz dane zewnętrzne | Nowa kwerenda sieci web
Uzupełniamy adres strony [OK] i gotowe. Jak nam nie pasuje wygląd to można trochę pozmieniać w opcjach.

Excel - Eksport danych

sposób 1. Zapisz jako
wystarczy kliknąć
Menu | Zapisz jako
i wybieramy interesujący rodzaj plików - wybór może nie jest wielki ale zawsze...

W menu Plik jest jeszcze opcja zapisywania jako stronę sieci WEB służy do tworzenia interaktywnych html-owych kopii arkusza czy całego skoroszytu.

sposób 2. Konwersja
Po raz kolejny należy odnieść się do

Narzędzia | Dodatki
Tym razem dla uproszczenia proponuję zaznaczyć wszystkie opcje, żeby więcej się w to nie bawić.
Dane | Konwertuj do MS Access

Oczywiście za rękę prowadzi trywialny kreator.

VBA - Wklej specjalnie - PasteSpecial

2007-07-17T09:23:00.000+02:00

Oto proste makro, które może być używane do zamiany formuł na wartości. Ale i nie tylko...

Sub zmianaTypuKomorki()
    Selection.Copy
    Selection.PasteSpecial _
        Paste:=xlPasteValues, _
        Operation:=xlNone, _
        SkipBlanks:=False, _
        Transpose:=False
End Sub

Selection to nic innego jak instancja klasy Region (aktualne zaznaczenie)

Zamiast xlPasteValues (wklejanie przez wartości) można stosować

xlPasteFormulas (formuły)
xlPasteFormats (formatowanie)
xlPasteComments (komentarze)
xlPasteAll (wszystko)
xlPasteAllExceptBorders (wszystko bez ramek)

W ten sposób można zbudować sobie kilka podręcznych makr znacznie przyspieszających codzienne czynności.

Zobacz też pokrewne: Kopiuj wklej od podstaw

Kopiuj wklej od podstaw

2007-07-17T09:19:00.000+02:00

Ten banalnie prosty i dobrze wszystkim znany zestaw skrótów CTRL+C, CTRL+V stosowany powszechnie przez wszystkich chyba użytkowników PC-tów może użytkownika Excela przyprawić o ból głowy.

Problem tkwi w nieświadomości. Używamy bo znamy... na pozór działa ale jednak nie do końca. Co zrobić z tym fantem? Nie stosować? Ależ stosować! Tylko z głową!

Kopiuj, wklej działa poprawnie dopóki, dopóty nie stosujemy formuł (np komórki postaci =a1*7)

Jeżeli arkusz takowe posiada to kopiowane kończy się najczęściej wynikiem ARG :-/

Pośrednie rozwiązanie znajduje się w menu (zastępstwo dla CTRL+V):

Edycja | Wklej specjalnie...

W zależności od zawartości schowka (co co kopiowane jest do pamięci podręcznej po naciśnięciu CTRL + C) opcja ta pokazuje kilka różnych wersji okienka.

Gdy skopiujemy fragment komórek Excela pojawi się okno przesiąknięte opcjami. Najistotniejszymi na początek będą: Formuły i Wartości.

Gdy wkleimy wg. formuł Excel pobierze informacje potrzebne do wyliczenia wartości w poszczególnych komórkach (to samo co było w pierwowzorze). Dodatkowo pozmienia automatycznie (niestety trochę topornie - ale zawsze...) adresy - podobnie jak przy standardowym kopiuj - wklej.

Ciekawsze jest wklejanie samych wartości - wtedy formuły (wzory) zostaną "zgubione" a wklejone na twardo wartości pochodzić będą prosto z pierwowzorów - m.in. pól wyliczalnych.

Z tego więc powodu podobne kopiowanie psuje całą automatyzację arkusza. Jest jednak bardzo pomocne, gdy jego automatyzacja rozwala nam wszystkie pomysły i blokuje dopisywanie dodatków :P

Zobacz też rozwiązanie tego problemu w VBA: Wklej specjalnie PasteSpecial

Dla Excela rozwiązanie problemów kopiuj wklej to:

Range("A1:B2").Select

lub to samo:

Range(Range("A1"), Range("B2")).Select

(można też oczywiście używać już wcześniej wykonanych selekcji) i najważniejsza część:
Selection.Copy
Range( ...adresy... ).Select
ActiveSheet.Paste

Application.CutCopyMode = False
Sztuczka: kopiuj co -> gdzie

Range("A1").Copy Range("E2:E10")

VBA - Adresy komórek, adresacja zakresów

2007-07-17T09:17:00.000+02:00

polecam uruchomić sobie poniższe makro i wszystko stanie się bajecznie jasne :-)


Sub test_adresow_komorek()

  Range("A1").Select

  MsgBox (ActiveCell.Address)

  MsgBox (ActiveCell.Address(True, True))

  MsgBox (ActiveCell.Address(True, False))

  MsgBox (ActiveCell.Address(False, True))
 
  MsgBox (ActiveCell.Address(False, False))


  Range("A1:B2").Select

  MsgBox (Selection.Address)

  MsgBox (Selection.Address(True, True))

  MsgBox (Selection.Address(True, False))

  MsgBox (Selection.Address(False, True))

  MsgBox (Selection.Address(False, False))

End Sub

VBA - Grafika w Basic-u: obiekty (shape)

2007-07-17T09:14:00.000+02:00

Dodawanie obiektów:


dim ksztalt as Shape
dim skoroszyt as Worksheet

set ksztalt = ActiveSheet

dodawanie obiektów graficznych: AddShape


ksztalt = skoroszyt.Shapes.AddShape(...

VBA Excel - Jak wyłączyć linie siatki

2007-07-17T08:08:00.002+02:00

Oto makro które włącza/wyłącza tryb wyświetlania siatki w arkuszu.

Sub linie()
  siatka = ActiveWindow.DisplayGridlines
  ActiveWindow.DisplayGridlines = Not siatka
End Sub

to samo w Excelu:

W menu
Narzędzia | Opcje | Widok | odznaczamy Linie siatki

No i teraz jest dużo przejrzyściej...

Jeśli chcemy wykonać to samo dla fragmentu arkusza

Zaznaczamy fragment | PPM | formatowanie komórki / komórek | obramowanie (borders) | wybieramy styl linii jej kolor i typ czyli ma to być sama ramka czy wypełnianie wnętrza

VBA - Szybka nauka pisania makr

2007-07-16T17:34:00.000+02:00

Makra w języku VBA w Excelu można tworzyć na dwa sposoby. Pierwszym jest zwyczajnie wpisanie ciągu poleceń w języku VBA i gotowe (wymaga sporo wiedzy). Jednak nie wszystko w ten sposób da się zrobić szybko - szczególnie biorąc pod uwagę pewne zawiłości systemu pomocy, którego kontekstowość pozostawia wiele do życzenia (przynajmniej w wersji MS Office 2000).

Drugim, szybszym sposobem jest rejestrowanie marka w sposób wizualny.

Narzędzia | Makro | Zarejestruj nowe makro

I wszystkie działania zostaną zapisane w skrypcie. Kończymy czarnym kwadratem - STOP.

W ten sposób stworzyć można bardzo szybko szkielet makra by potem poprawki ponanosić już jako sprawę bardziej kosmetyczną. Poza tym dowiadujemy pracując w tak sposób jak Excel widzi nasze działania i mimowolnie uczymy się poleceń, obiektów metod itp...

Aha - aby szybko wejść do edycji makr stosujemy Alt + F8 lub lepiej Alt + F11

Tworzenie i usuwanie wykresu

2007-07-16T17:30:00.001+02:00

O ile mamy w obiekcie dane zaznaczone wszystkie dane z jakich trzeba stworzyć wykres, to samo kodowanie (skrypt) wyglądał by w sposób następujący.

Sub wykres(dane As Range, nazwa As String)

 'Application.DisplayAlerts = True
 'On Error Resume Next

 If (SheetExists(nazwa) = True) Then
     GoTo jest
 End If

 Dim suche_dane As Range
  
 dane.Select
 dane.Offset(0, 1).Resize(dane.Rows.Count, dane.Columns.Count - 1). _
     Select
 Set suche_dane = Selection
  
 Dim mini As Double
 Dim maxi As Double
  
 mini = WorksheetFunction.min(suche_dane)
 maxi = WorksheetFunction.max(suche_dane)

 Charts.Add after:=ActiveSheet
 ActiveChart.Name = nazwa
 ActiveChart.ChartType = xlLineMarkers
  
 ActiveChart.SetSourceData _
     Source:=dane, _
     PlotBy:=xlColumns
 
 ActiveChart.Location Where:=xlLocationAsNewSheet
 With ActiveChart
     .HasTitle = True
     .ChartTitle.Characters.Text = "Metoda naiwna 1.1"
      
         '.Axes(xlCategory, xlPrimary).HasTitle = True
         '.Axes(xlValue, xlPrimary).HasTitle = False
 End With
  
  
     With ActiveChart.Axes(xlValue)
         .MaximumScale = maxi + (maxi - mini) * 0.025
         .MinimumScale = mini - (maxi - mini) * 0.025
         .HasMajorGridlines = True
         .HasMinorGridlines = True
     End With
  
     With ActiveChart.Axes(xlValue).MinorGridlines.Border
         .ColorIndex = 15
         .Weight = xlHairline
         .LineStyle = xlDash
     End With
  
     With ActiveChart.Axes(xlValue).MajorGridlines.Border
         .ColorIndex = 48
         .Weight = xlHairline
         .LineStyle = xlContinuous
     End With
  
     With ActiveChart.SeriesCollection(1).Border
         .ColorIndex = 50
         .Weight = xlThin
         .LineStyle = xlContinuous
     End With
  
     With ActiveChart.SeriesCollection(1)
         .MarkerBackgroundColorIndex = 50
         .MarkerForegroundColorIndex = 50
         .MarkerStyle = xlTriangle
         .MarkerSize = 5
         .Smooth = False
     End With
  
  
     With ActiveChart.SeriesCollection(2).Border
         .ColorIndex = 3
         .Weight = xlMedium
         .LineStyle = xlContinuous
     End With
  
     With ActiveChart.SeriesCollection(2)
         .MarkerBackgroundColorIndex = 3
         .MarkerForegroundColorIndex = 3
         .MarkerStyle = xlSquare
         .MarkerSize = 5
         .Smooth = False
     End With
  
     ActiveChart.ChartArea.Interior.Color = RGB(255, 255, 255)
     ActiveChart.PlotArea.Interior.Color = RGB(255, 255, 255)
     ActiveChart.Refresh
     ActiveChart.Deselect

 GoTo koniec

jest:
 MsgBox "Wykres już jest."
koniec:
End Sub

Usunięcie takiego wykresu to w zasadzie usuwanie arkusza, ale nie do końca :P Kod:

Worksheets("Wykres_1_1").Delete

Nie przejdzie, ponieważ wykres stanowi nową zakładkę - i wcale nie jest jej elementem. (udało by się gdybyśmy tworząc wykres wstawili go na arkusz jako obiekt)

W omawianym przypadku (wykres jako zakładka) zadziała dopiero

Application.DisplayAlerts = False
Charts("nazwa").Delete
Application.DisplayAlerts = True

Kompletne marko usuwające wykres mogłoby wyglądać w sposób następujący:

Sub usun_wykres(nazwa As String)

 If (SheetExists(nazwa) = True) Then
     GoTo jest
 Else
     GoTo niema
 End If

jest:
 Application.DisplayAlerts = False
 Charts(nazwa).Delete
 Application.DisplayAlerts = True
 GoTo koniec:

niema:
 MsgBox "Wykresu nie ma"

koniec:

End Sub

VBA - Odwoływanie się do funkcji znanych z arkusza

2007-07-16T17:25:00.000+02:00

Co ciekawe - w VBA nie da się po nazwie odwołać do funkcji znanych z arkusza.

Należy to zrobić sposobem, np:


WorksheetFunction.CountBlank(...)
WorksheetFunction.Max(...)
WorksheetFunction.Min(...)
WorksheetFunction.Sum(...)

Jak widać przydałoby się znać angielskojęzyczne odpowiedniki - kolejny przykład na to jak się spolszcza programy za 2 tys. zł :-)

Można oczywiście napisać


WorksheetFunction.

i powinna rozwinąć się lista, z której możemy wybierać "po omacku"! ;D

Dodawanie usuwanie wiersza kolumny

2007-07-16T13:01:00.000+02:00

VBA - dodawanie pojedynczego wiersza kolumny

Range("B2").Select
Selection.EntireColumn.Insert
Selection.EntireRow.Insert

VBA - usuwanie pojedynczego wiersza kolumny

Jak usunąć drugi wiersz arkusza.

Range("A2").Select
Selection.EntireRow.Delete

lub

Column(2).Delete

podobnie można usuwać dla kolumn:

Selection.EntireColumn.Delete

VBA - Przejście do pierwszego pustego wiersza

2007-07-16T12:54:00.000+02:00

Jeżeli chcemy dodawać kolejno wiersze, to przydaje się kod aktywujący komórkę znajdującą się w pierwszym wolnym wierszu - znajdującym się pod dotychczas wprowadzonymi danymi.

A więc ustawiamy się gdzieś wewnątrz danych np Range("A1").Select i dalej:

If IsEmpty(ActiveCell.Offset(1, 0)) Then
    ActiveCell.Offset(1, 0).Select
Else
    ActiveCell.End(xlDown).Offset(1, 0).Select
End If

słowa kluczowe: szukanie za-ostatniego wiersza, pierwszy wolny wiersz

VBA - Bezpieczne wczytywanie danych

2007-07-16T12:10:00.000+02:00

Wczytując dane jesteśmy narażenie na to, że użytkownik poda w okienku edycyjny wartości niezgodne z formatem przypisanym danemu typowi.

Rozwiązaniem może być ręczne testowanie danych na ich poprawność i w razie niezgodności ponowny monit o wpisanie danych.

Przykładowe makro:

msg - to komunikat
tit - tytuł okienka
def - opcjonalnie wstawiana wartość domyślna


Function readNum(msg, tit, Optional def As String) _
    As Double

    Dim temp
    temp = InputBox(msg, tit, def)
    
    If (IsNull(temp) = True) Then
        temp = read_numeric(msg, tit, def)
    Else
        If (IsNumeric(temp) = False) Then
            temp = read_numeric(msg, tit, def)
        End If
    End If
    
    read_numeric = temp

End Function

Funkcja będzie domagać się do skutku wpisania wartości poprawnej - numerycznej.

VBA - Konwersja typów

2007-07-16T11:46:00.001+02:00

Konwersja ciągu na inne typy odbywa się za pomocą jednego z poleceń (string to 2 ... )

CBool(expression) - string to bool

CByte(expression) - string to byte

CCur(expression)

CDate(expression) - string to date

CDbl(expression) - string to double

CDec(expression) - string to decimal

CInt(expression) - string to integer

CLng(expression)

CSng(expression)

CStr(expression)

CVar(expression)

np:

dim d as double

dim s as string

d = CDbl (s)

w zależności od tego do czego chcemy to konwertować...

Tablice w VBA

dim tablica
redim tablica (1 to 100)

Excel - Scalanie skoroszytów

2007-07-15T23:41:00.001+02:00

Przydaje się, gdy dwie osoby chcą pracować nad tym samym skoroszytem (jedna ma kopię) i dzieląc się pracą chą na koniec połączyć efekty.

Włączamy rejestrowanie zmian w dokumencie
Narzędzia | Rejestruj zmiany | Wyróżniaj zmiany + rejestruj zmiany podczas edycji

Tworzymy kopię skoroszytu i na tych kopiach pracują jakieś osoby

Scalanie (można kilka na raz) odbywa się na dokumencie pierwotnym
Narzędzia | Scal skoroszyty

Wszystkie wprowadzone zmiany powinny teraz być w wersji pierwotnej czyli jest GIT :-)

Excel - wizualne śledzenie zmian w skoroszycie

2007-07-15T23:36:00.003+02:00

wizualne śledzenie zmian w skoroszycie

1. Narzędzia | Rejestruj zmiany | Wyróżnij zmiany
Sprawdź czy dany skoroszyt jest udostępniony do zapisu.
zaznacz: "Rejestruj zmiany podczas edycji" oraz "Wyróżniaj zmiany na ekranie"

Zapisz - Ctrl+S Gotowe!

Teraz jak coś gdzieś zmienisz to się pojawi znaczek przy komórce. Gdy na niego najedziesz będą wyświetlać się zarejstrowane informacje na temat dokonanych zmian. Rodzaj rejestrowanych zmian należy wybrać na etapie 1.

Excel - Używanie kilku skoroszytów jednocześnie

2007-07-15T23:33:00.001+02:00

Używanie kilku skoroszytów sprowadza się do stworzenia wirtualnego obszaru roboczego

Po pierwsze po otworzeniu interesujących skoroszytów należy je rozmieścić według upodobań. Automatycznie można to zrobić korzystając z opcji.
Okno | Rozmieść | np. Sąsiadująco

Potem:
Plik | Zapisz obszar roboczy (pliki .xlw)

W zasadzie gotowe. Teraz należy otwierać obszar roboczy poprzez wybranie w eksploratorze pliku .xlw.

Teraz zmiany w obszarze roboczym będą automatycznie uwzględniane w skoroszytach do niego należących.

Excel - Łączenie skoroszytów

2007-07-15T23:08:00.001+02:00

Excel - Łączenie skoroszytów

W zasadzie Excel nie sprawia żadnych problemów z odnoszeniem się do komórek znajdujących się w innych plikach (skoroszytach .xls).
Wpisując dowolną formułę wystarczy odnieść się do nazwy pliku np. [innyskoroszyt.xls]Arkusz1!C3 można to zrobić wklepując ręcznie adres jednak prostsze jest podwójne kliknięcie myszką.

Nie wolno jednak zapomnieć, że tego typu odniesienia (w zasadzie statyczne) przestaną działać gdy pozmieniamy nazwy plików, lub pliki te zwyczajnie przeniesiemy w inne miejsce na dysku. Excel po ponownym załadowaniu takich plików wymusi pokazanie gdzie owe pousuwane elementy się znajdują.

Więcej na ten temat: ms office

Excel - Zaznaczanie specjalnych elementów

2007-07-10T09:31:00.004+02:00

Na liście czasami trzeba wyszukać jakieś specjalne elementy - np. komórki puste. Służy do tego

Edycja | Przejdź do | Specjalnie | Puste (jest do wyboru więcej opcji)

Ctrl + G

Opcji tej należy użyć uprzednio zaznaczając jakiś fragment arkusza.

Można też używać bardzo popularnego skrótu z klawiatury CTRL + strzałki. Kombinacja tych klawiszy przenosi nas do ostatniego elementu zbioru. Czyli jeśli mamy 10 wierszy wypełnionych liczbami i ustawimy się w pierwszym to po naciśnięciu CTRL + DÓŁ kursor przejdzie do wiersza 10. Powtórzenie tej operacji będzie skutkowało próbą wyszukania pierwszego elementu kolejnego niepustego zbioru danych w arkuszu.

Zobacz jak to zrobić za pomocą skryptu VBA: vba zaznaczanie specjalnych komórek