21.02.2014
Przychodzimy na 8:20
Za miesiąc - kolokwium z Excela!!!!!!!!!!!!!!!!!
Osobno kolokwium z Excela i VBA
EXCEL
Rozszerzenie kolumn -kratka duza u górnej lewej stronie
Do komórki A2 - zablokować okienko
Zawijanie tekstu - prawa myszka, formatowanie komórek, wyrownywanie, zawijaj tekst
Formatowanie warunkowe
Format, formatowanie warunkowe, równa, „furniture(meble)” - jakieś coś, formatuj, wybieramy co chcemy. Max. 3 warunki w Excelu 2003
Mniejsze, większe wartości, między (wartości) - dodawać formatowanie
Filtrowanie
Dane, filtr, autofiltr - zaznaczyć opcje w okienku (znacznik)
Wyłączyć filtr - dane, filtr, odznaczyć autofiltr
Wyznaczyć liczbę filtrowanych - zaznaczyć wiersze i wyświetli się na pasku liczba (na pasku licznik)
Niestandardowy filtr (television lub new car)
Sortowanie
Dane, sortuj, sortuj wg - mają nagłówki
(w przypadki liter- od a do z)
Kolejność sortowania ma znaczenie
Wyszukaj.pionowo
Odniesienie - identyfikator (wg czego to robimy, w przykładzie …liczba punktów)
Tablica - F4 pojawiają się $
Nr kolumny - dane które będą dopasowywane
zakres - 1 (bo przedziały)
Dzień.tyg(data;typ)
Data(rok;miesiąc;dzień)
Formatuj komórki - liczby(ogólne)
Liczba cyfr w komórce - formuła dł(…)
Dwie pierwsze liczby od lewej - formuła lewy(…)
Liczby w środku - formuła fragment.tekstu(…)
SOLVER (funkcja)
Narzędzia, solver, komórka celu(y) (opcje - wartości dodatnie)
Z ograniczeniami - dodaj warunki
TABELE PRZESTAWNE
Dane, raport tabeli przestawnej, A1 (całość tabeli), układ - kategoria + , np. licznik z innej kategorii, suma wartość), licznik suma - zmienia się dwa razy klikając.
Ctr V, Ctr C - kopiuj , wklej
VBA!!!!
Edytor Visual Basic
Module-insert-module SUB przykład() - END
Range("A5").Select (run) - aktywna komórka
Range("C10") = "piątek"
Sheets("arkusz2").Range("B4") = poniedziałek
zm = Sheets("arkusz2").Range("B4")
sheets.("arkusz3").range("C8") = zm
Sub przyk2()
Sheets("arkusz1").Select
Range("C3").Select
ActiveCell = "aktywna"
ActiveCell.Range("B2") = "D4"
ActiveCell.Range("D5") = "F7"
End Sub
Sub przyk_cells()
Sheets("arkusz2").Select
Cells.Clear
Cells(7, 6) = "F7"
Cells(5, 4) = "D5"
Range("C4").Cells(3, 4) = "F6"
Range("B5").Cells(4, 1) = "B8"
End Sub
Sub przyk_offset()
Sheets(3).Select
Cells.Clear
Range("G12").Select
ActiveCell.Offset(3, 3) = "J15"
ActiveCell.Offset(4, 0) = "G16"
ActiveCell.Offset(-6, -4) = "C6"
Range("F4").Offset(3, -4) = "B7"
End Sub
Sub w_p1()
If Weekday(Date, 2) = 5 Then MsgBox "jutro zaczyna się weekend"
End Sub
Sub w_p2()
If Weekday(Date, 2) = 5 Then
MsgBox "Jutro jest piątek"
ActiveCell = "piątek"
ActiveCell.Font.Bold = True
ActiveCell.Font.ColorIndex = 5
ActiveCell.Font.Size = 14
ActiveCell.Interior.ColorIndex = 6
End If
End Sub
F8 - sprawdzanie krokowo
Sub w_P3()
If Weekday(Date, 2) = 6 Or Weekday(Date, 2) = 5 Then
MsgBox "dzisiaj jest weekend"
Range("C3").Select
ActiveCell.Font.Bold = True
ActiveCell.Font.ColorIndex = 5
ActiveCell.Font.Size = 14
ActiveCell.Interior.ColorIndex = 6
End If
End Sub
Sub w_p4()
If Weekday(Date, 2) = 6 Then
MsgBox "Dzisiaj jest czwartek"
Else
MsgBox "Dzisiaj nie jest czwartek"
End If
End Sub
Sub w_p5()
Select Case Weekday(Date, 2)
Case 1
MsgBox "Dzisiaj jest poniedziałek"
Case 2
MsgBox "Dzisiaj jest wtorek"
Case 5
MsgBox "Dzisiaj jest piątek"
Case Else
MsgBox "Dzisiaj nie jest ani poniedziałek, ani wtorek, ani piątek"
End Select
End Sub
Sub w_p6()
myValue = InputBox("wprowadź wartość")
Select Case myValue
Case Is <= 5
MsgBox "Podana wartość jest mniejsza lub równa 5"
Case 6, 7
MsgBox "Podana wartość to 6 lub 7"
Case 8 To 12
MsgBox "Podana wartość jest z przedziału od 8 do 12"
Case Is > 12
MsgBox "Podana wartość jest większa niż 12"
End Select
End Sub
Pętla while
Sub srednia_dowhile_cells()
Sheets("arkusz2").Select
Range("a1").Select
licz = 0
suma = 0
Do While Cells(licz + 2, 1) <> ""
suma = suma + Cells(licz + 2, 1).Value
licz = licz + 1 'stara wartość powiekszona o jeden
Loop
srednia = suma / licz
Range("b1") = srednia
End Sub
Sub srednia_dowhile_offset()
Sheets("arkusz2").Select
Range("a1").Select
licz = 0
suma = 0
Do While Range("a1").Offset(licz + 1, 0) <> ""
suma = suma + Range("a1").Offset(licz + 1, 0)
licz = licz + 1
Loop
srednia = suma / licz
Range("b2") = srednia
End Sub
Sub srednia_p30_dowhile_offset()
Sheets("arkusz2").Select
Range("a1").Select
licz = 0
zgodni = 0
suma = 0
Do While Range("A1").Offset(licz + 1, 0) <> "" 'sprawdzenie czy komorka ma zawartość
wiek = Range("A1").Offset(licz + 1, 0)
If wiek > 30 Then
suma = suma + wiek
zgodni = zgodni + 1 'zliczanie
End If
licz = licz + 1
Loop
srednia = suma / zgodni
Range("c1") = srednia
End Sub
Sub srednia_20klientow_dowhile_cells()
Sheets("arkusz2").Select
Range("a1").Select
licz = 0
Do While Cells(licz + 2, 1) <> "" And licz < 20
suma = suma + Cells(licz + 2, 1)
licz = licz + 1
Loop
srednia = suma / licz
Range("c2") = srednia
End Sub
W domu tam gdzie offset , ma być cells I na odwrót;)