📊 Materiály ku kurzu Microsoft Excel - Praktické Úlohy

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.

❓ Čo je to Microsoft Excel

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ď.

🙋 Verzie a edície Microsoft Excel

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

⚓ Odkazy na kurzy

Prezenčné Kurzy Microsoft Excel
Online Kurzy Microsoft Excel

📁 Súbory a Materiály

Dostupné na GitHube alebo na kurze od lektora

🧰 Stránky a nástroje na precvičovanie Microsoft Excel

📔 Dokumentácia Microsoft Excel a Guidelines

📈 YouTube video záznamy z kurzy a prednášok Playlist (Kancelárske Balíky)

YouTube kanál IT Academy

📎Obsah Kurzu

📑 Microsoft Excel má 3 typy Hárkov (Sheets)

Pracovný Hárok (Worksheet) (Shift + F11)
Makro Hárok (Macro Sheet) (Ctrl + F11)
Grafový Hárok (Graph Sheet) (F11)

🔥 Duplikácia a Kopírovanie Formátu

Hromadné Vkladanie, Generovanie Hodnôt (Ctrl + Enter)
Kopírovanie Formátu Metlička (2-klik na metlu)

📋 Tabuľky a Rýchla Analýza Dát

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

💡 Snippety

🗔 Zobraz Prehľadové Okno s Hárkami

Sub WbTab()
' Zobraz Prehľadové Okno s Hárkami (Taby)
    Application.CommandBars("Workbook tabs").ShowPopup
End Sub

Funkcie a Vzorce (Formulas)

MEDIAN - Štatistická Funkcia - Stredná hodnota

Medián čísel v rozsahu buniek. Medián je stredná hodnota zoradeného rozsahu čísel

=MEDIAN(A2:A7)

POWER - Matematická Funkcia - Umocnenie čísla

=POWER(5,2)	Vypočíta druhú mocninu čísla 5 (25)

=5^3	Vypočíta tretiu mocninu čísla 5 (125

REPT - Matematická Funkcia - Opakovanie znakov v bunke

=REPT(".";6)	Opakovanie obdobia (.) 6-krát (......)

=REPT("-";4)	Opakovanie pomlčky (-) 4-krát (----)

AND, OR, NOT, IF - Logické Funkcie - Spájanie Funkcií

=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"))))

Kombinácia Funkcií na Podmienené Formátovanie podľa výsledkov podielu/percent z obratu/predaja

=IF(F9>0;REPT("●";INT(F9*100));"")

=IF(F10<0;REPT("●";INT(-F10*100));"

Vyhľadávacie Funkcie

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)

Čistenie Dát

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))))

Typy Súborov/Rozšírení Microsoft Excel

XLSX (Textové)
XLSM (Textové)
XLS (Binárne)
XLSB (Binárne)

Funkcia pre sum na základe farby SumFarba (Podmienené Formátovanie cez VBA)

' 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

Funkcia pre min na základe farby MinFarba (Podmienené Formátovanie cez VBA)

' 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)

' 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 vzostupne zoradenie hárkov (0-9A-Z)

' 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

' 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

miroslav-reiter / Kurz_Microsoft_Excel_Prakticke_Ulohy