Robin Hrabina

Robin Hrabina

Datový Analytik

Odběrem získáváš přístup do všech kurzů a příspěvků autora
Robin Hrabina

Robin Hrabina:

Čt 7.9.2023 v 18:13

Vítám Vás na svém kanále! 🎉
V mých příspěvcích se dozvíte praktické informace o produktech Microsoftu. V příspěvcích se budu zabývat především:

Excelem: Jak efektivně používat Excel za pomocí vzorců, které třeba neznáte, popř. jejich kombinace.

VBA: Praktické kódy pro automatizaci rutinní práce.

Power Query: Vychytávky připojení a praktická transformace dat na kliknutí bez nutnosti programování VBA kódů + tvorba DAX.

Power Automate: RPA nástroj pro robotizaci vašich procesů, které se budou spouštět při určité změně dat ve složce, v určitý den nebo jiný čas dle Vašich potřeb. Dále praktické vychytávky pro usnadnění rutinních prací.

Excel Scripts: Scripty v Excelu jsou nepřímé nahrazení VBA. Jedná se o novou možnost tvorby kódů v Excelu, které nejsou přímo spojené s daným excelem. Tvorba praktických kódů s analogií k VBA.

Budu se těšit, pokud mou práci budete chtít podpořit a dozvědět se nové informace o produktech MS pro Vaší práci v Businessu či automatizaci 💻.
Like (0)
Robin Hrabina

Robin Hrabina:

Út 27.2.2024 v 21:20

Automatické rozšíření sloupce v Excelu ✅ za pomocí jednořádkového VBA kódu v listu 🗒️, abyste nebyli nuceni rozšiřovat sloupec manuálně 🔧 pokaždé, co Váš text 📝 překračuje šířku sloupce.

Kód v privátním Subu VBA 👨‍💻:
cells.EntireColumn.Autofit
Odebírat
Like (0)
Robin Hrabina

Robin Hrabina:

Čt 2.11.2023 v 17:05

Potřebovali jste někdy generovat QR kódy bez 3. Stran, pouze za pomocí Power Automate ? 🤔▶️ 

Za pomocí této zabudované akce jste schopni generovat 🔄 QR kódy z dat z jakéhokoliv souboru nebo jako převodník na jakoukoliv webovou stránku. 💻✅
Odebírat
Like (0)
Robin Hrabina

Robin Hrabina:

Čt 19.10.2023 v 21:20

Jak formátovat či upravovat data na více listech v Excelu najednou? 🤔 Stačí pouze všechny listy označit 👆🏻 a následně na jednom z nich úpravu provést. ✅
Odebírat
Like (0)
Robin Hrabina

Robin Hrabina:

Čt 5.10.2023 v 22:10

Jak přidat graf za pomocí Office Scriptu? 💬📜

Skript zvládne dostat do grafu různé velikosti oblastí, tedy nevadí, pokud jedna oblast dat má např. 20 řádků, a druhá oblast s daty řádků 40 🔢, vždy se data do grafu dostanou všechna za pomocí zjištění posledního řádku. 📝

Podívejte se na jednoduchou tvorbu sloupcového dynamického grafu. 📊 Nicméně za pomocí jiných metod lze vytvořit jakýkoliv jiný typ grafu. 📈 Celý kód níze 👨‍💻:

 let selectedSheet = workbook.getActiveWorksheet();
 let usedRange = selectedSheet.getUsedRange();
 let lastRow = usedRange.getRowCount(); 
 let chartRange = selectedSheet.getRange(`A1:B${lastRow}`);

 let chart = selectedSheet.addChart(ExcelScript.ChartType.columnClustered, chartRange);

Odebírat
Like (0)
Robin Hrabina

Robin Hrabina:

Čt 28.9.2023 v 22:45

 Zjištění posledního řádku a sloupce v datech, tentokrát za pomocí Office Scripts 📜. Je to však potřebné stejně jak u VBA? 🤔 Dozvíte se v následujícím příspěvku! Celý kód pro zkopírování 👨‍💻:

    const sourceSheet = workbook.getWorksheet("list1");
    const usedRange = sourceSheet.getUsedRange();

    const lastRow = usedRange.getLastRow().getRowIndex(); 
    console.log(lastRow) 

    const lastColumn = usedRange.getLastColumn().getColumnIndex(); 

    console.log(usedRange.getAddress())
    usedRange.select();


Odebírat
Like (0)
Robin Hrabina

Robin Hrabina:

Čt 21.9.2023 v 17:47

Zjištění posledního řádku a sloupce v datech za pomocí VBA je jednou z nejužitečnějších věcí, pokud pracujete s dynamickými daty. 📊

Kód pro zjištění posledního řádku: 🗒️
lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Posledního sloupce: 🗒️
lastColumn = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column

Pokud byste chtěli více praktických příkladů, co se dá se zjištěným posledním řádkem a sloupcem dělat, budu rád za like či komentář 👨‍💻.
Odebírat
Like (0)
Robin Hrabina

Robin Hrabina:

Pá 15.9.2023 v 19:55

První praktický příspěvek, jak za pomocí VBA přidat do nového Excelu listy s názvy všech měsíců. 📆

Celý VBA kód ve videu zde 👨‍💻: 

Sub Mesice_sheety()
    Dim mesic As Integer
    Application.DisplayAlerts = False 
    For mesic = 1 To 12 
        Worksheets(1).Copy after:=Worksheets(mesic) 
        Worksheets(mesic + 1).Name = Format(DateSerial(1, mesic, 1), "mmmm")  
    Next mesic
    Worksheets(1).Delete
End Sub 
Odebírat
Like (0)