Kurz Microsoft Excel - Praktické Úlohy je vhodný pre teba pokiaľ chceš pomocou Excelu riešiť praktické úlohy každodenného života. Všetko, čo potrebujete o Exceli vedieť pre riešenie svojich úloh, sa naučíte na praktických príkladoch. Dozvieš sa, že sa dá Excel využiť nielen na tabuľky a grafy, ale aj na hľadanie najlepšieho (optimálneho) riešenie problémov v praktickom živote. Na kurze nájdeš návod, ako riešiť pomocou Excelu svoj praktický problém. Ukážeme si od tých najjednoduchších príkladov a postupne sa prepracujeme k zložitejším. Tento kurz sa realizuje na mieru požiadavkám zákazníka.
Microsoft Excel je tabuľkový procesor od spoločnosti Microsoft navrhnutý pre operačný systém Microsoft Windows, Mac Os, Android a iOS. Je súčasťou kancelárskeho balíka Microsoft Office spolu s aplikáciami Microsoft Word, Microsoft PowerPoint, Microsoft Outlook, Microsoft Access atď.
Najaktuálnešia/najnovšia verzia je Microsoft Excel 365 (Office 365). Na trhu sú aj standalone verzie: 2000, 2002, 2003, 2007, 2010, 2013, 2016, 2019
TIP: Verzie zistíme na Karte Domov (Home) > Konto (Account) > Čo je Excel
Prezenčné Kurzy Microsoft Excel
Online Kurzy Microsoft Excel
Dostupné na GitHube alebo na kurze od lektora
- Microsoft 365
- ASAP Utilities
- Microsoft Excel Alza Návod
- FinStat Firmy s najväčšími tržbami
- FinStat Najziskovejšie Firmy
- FinStat Najväčší zamestnávatelia
- FinStat Najväčšie univerzity
- Microsoft Excel help & learning
- Premium templates
- Analyze Data in Microsoft Excel
- Microsoft Excel functions (alphabetical)
- The Ultimate Guide to Using Microsoft Excel
- Microsoft Excel Statistics
- Pracovný Hárok (Worksheet) (Shift + F11)
- Makro Hárok (Macro Sheet) (Ctrl + F11)
- Grafový Hárok (Graph Sheet) (F11)
- Hromadné Vkladanie, Generovanie Hodnôt (Ctrl + Enter)
- Kopírovanie Formátu Metlička (2-klik na metlu)
-
Vytvorenie Tabuľky (Ctrl + T, Ctrl + Shift + L)
-
Rýchla Analýza Dát/Quick Analysis (Ctrl + Q)
Ako nepomenovávať:
- Žiadne neviditeľné symboly t.j. bez medzier/tabov
- Nezačínaš číslom
- Neštandardné znaky € / * @ $ ^ & # + -
- Bez diakritiky
- Nie generické názvy tabulka1
Ako pomenovať:
- Maďarská notácia/zápis
tab t dim d tMzdyZamestnanciZima2023
- Ťavia notácia/zápis
klientiLeto2023
- Podčiarkovniková notácia/zápis
klienti_leto_2023
TIP: KROLA
Sub WbTab()
' Zobraz Prehľadové Okno s Hárkami (Taby)
Application.CommandBars("Workbook tabs").ShowPopup
End Sub
Medián čísel v rozsahu buniek. Medián je stredná hodnota zoradeného rozsahu čísel
=MEDIAN(A2:A7)
=POWER(5,2) Vypočíta druhú mocninu čísla 5 (25)
=5^3 Vypočíta tretiu mocninu čísla 5 (125
=REPT(".";6) Opakovanie obdobia (.) 6-krát (......)
=REPT("-";4) Opakovanie pomlčky (-) 4-krát (----)
=AND(A2>A3; A2<A4) Je číslo 15 väčšie ako 9 a menšie ako 8? (FALSE)
=OR(A2>A3; A2<A4) Je číslo 15 väčšie ako 9 alebo menšie ako 8? (TRUE)
=NOT(A2+A3=24) Nie je súčet 15 plus 9 rovný 24? (FALSE)
=IF(A2=15; "OK"; "Nie OK") Ak sa hodnota v bunke A2 rovná 15, vráť hodnotu "OK". (OK)
=IF(AND(A2>A3; A2<A4); "OK"; "Nie OK") Ak je číslo 15 väčšie ako 9 a menšie ako 8, vráť hodnotu "OK". (Nie OK)
=IF(OR(A2>A3; A2<A4); "OK"; "Nie OK") Ak je číslo 15 väčšie ako 9 alebo menšie ako 8, vráť hodnotu "OK". (OK)
=IF(A3>89;"A";IF(A3>79;"B";IF(A3>69;"C";IF(A3>59;"D";"F"))))
=IF(F9>0;REPT("●";INT(F9*100));"")
=IF(F10<0;REPT("●";INT(-F10*100));"
Typ zhody
A. Presne (exact match): 0, False
B. Približne: 1, True, Nič
0 nie je nič Null
=IFNA(VLOOKUP(TRIM(C15);B7:C13;2;0); "Nepracuje u nás")
="Q"&VLOOKUP(B25;$E$25:$G$28;3;1)
TRIM - Odstráňovanie medzier/Neviditeľné symboly
CLEAN - Odstráňovanie netlačiteľných symboly
VALUE - Konverzia Textu na Číselnú Hodnotu
ABC(VALUE(CLEAN(TRIM(F15))))
- XLSX (Textové)
- XLSM (Textové)
- XLS (Binárne)
- XLSB (Binárne)
' Farba Vyplne/Bunky
' Rozsah Stlpec, Oblast, Tabulka
Function sum_farba(Farba As Range, Rozsah As Range)
Dim X As Double
Dim Y As Double
Dim i As Variant 'Object
Y = Farba.Interior.ColorIndex
For Each i In Rozsah
If i.Interior.ColorIndex = Y Then
X = WorksheetFunction.Sum(i, X)
End If
Next i
sum_farba = X
End Function
' Farba Vyplne/Bunky
' Rozsah Stlpec, Oblast, Tabulka
Function min_farba(Farba As Range, Rozsah As Range)
Dim X As Double
Dim Y As Double
Dim i As Variant 'Object
Y = Farba.Interior.ColorIndex
For Each i In Rozsah
If i.Interior.ColorIndex = Y Then
X = WorksheetFunction.Min(i, X)
End If
Next i
min_farba = X
End Function
Subrutina s udalosťou typu zmena výberu na hárku pre zvýraznenie celého stĺpca a riadku podľa vybranej bunky
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' ColorIndex property (Excel Graph)
' https://learn.microsoft.com/en-us/office/vba/api/excel.colorindex
' 1 - cierna, 2 - biela, 3 - cervena, 4 - Zelena,
' 5 - Modra, 6 - zlta, 7 - magenta, 8 - cyan, 9 - bordova
Cells.Interior.ColorIndex = xlColorIndexNone
Target.EntireColumn.Interior.ColorIndex = 6
Target.EntireRow.Interior.ColorIndex = 6
Target.Interior.ColorIndex = xlColorIndexNone
End Sub
' Subrutina na vzostupne zoradenie hárkov (0-9A-Z)
Sub zorad_harky_vzostupne()
' Vypnutie aktualizacie udajov na obrazovke, vyrazne zrýchluje spracovanie makier/subrutín
Application.ScreenUpdating = False
' Premenná, kde ulozime celkovy pocet vsetkych harkov (pracovnych, grafovych aj makro harkov)
Dim ShCount As Integer: ShCount = Sheets.Count
' Pomocné premenné i a j pre cyklus, pre preiterovanie celého Excel súboru/zošita (Workbook)
Dim i As Integer
Dim j As Integer
For i = 1 To ShCount - 1
For j = i + 1 To ShCount
If UCase(Sheets(j).Name) < UCase(Sheets(i).Name) Then
Sheets(j).Move before:=Sheets(i)
End If
Next j
Next i
' Zapnutie aktualizacie udajov na obrazovke
Application.ScreenUpdating = True
End Sub
' Subrutina na zostupne zoradenie hárkov (Z-A9-0)
Sub zorad_harky_zostupne()
Application.ScreenUpdating = False
' Premenná, kde ulozime celkovy pocet vsetkych harkov (pracovnych, grafovych aj makro harkov)
Dim ShCount As Integer: ShCount = Sheets.Count
' Pomocné premenné i a j pre cyklus, pre preiterovanie celého Excel súboru/zošita (Workbook)
Dim i As Integer
Dim j As Integer
For i = 1 To ShCount - 1
For j = i + 1 To ShCount
If UCase(Sheets(j).Name) > UCase(Sheets(i).Name) Then
Sheets(j).Move before:=Sheets(i)
End If
Next j
Next i
Application.ScreenUpdating = True
End Sub
' Subrutina na zoradenie hárkov podľa vstupu používateľa,
' Máš na výber vzostupne - Yes, zostupne - No
Sub zorad_harky_podla_vstupu()
Application.ScreenUpdating = False
Dim ShCount As Integer, i As Integer, j As Integer
Dim SortOrder As VbMsgBoxResult
SortOrder = MsgBox("Vyberte Yes pre vzostupné poradie a No pre zostupné poradie", vbYesNoCancel)
ShCount = Sheets.Count
For i = 1 To ShCount - 1
For j = i + 1 To ShCount
If SortOrder = vbYes Then
If UCase(Sheets(j).Name) < UCase(Sheets(i).Name) Then
Sheets(j).Move before:=Sheets(i)
End If
ElseIf SortOrder = vbNo Then
If UCase(Sheets(j).Name) > UCase(Sheets(i).Name) Then
Sheets(j).Move before:=Sheets(i)
End If
End If
Next j
Next i
Application.ScreenUpdating = True
End Sub