Archiv rubriky: VBA

Upload z Excelu do Oracle SQL tabulky

Příklad insertu sedmi sloupců (A-G) do tabulky na SQL. Pro insert musí být v nastavení VBA povoleno „Microsoft ActiveX Data Objects 6.x Library“ Do sloupce „K“ skript vloží příkaz na INSERT v textové podobě, který se pak v cyklu provádí … Celý příspěvek

Rubriky: Excel notes, VBA | Komentáře nejsou povolené u textu s názvem Upload z Excelu do Oracle SQL tabulky

Podmínka při počtu hledané hodnoty

If WorksheetFunction.CountIf(Range(„F:F“), „VYMAZAT“) > 0 Then ‚co udělat endif

Rubriky: Excel notes, VBA | Komentáře nejsou povolené u textu s názvem Podmínka při počtu hledané hodnoty

Počet hledané hodnoty ve sloupci

Dim x As Long x = Range(„L“ & Rows.Count).End(xlUp).Row If x < 2 Then x = 1 'Ošetření prázdného sloupce kontrola = Application.WorksheetFunction.CountIf(Range("L1:L" & x), "Not_in_Agenda") endif

Rubriky: Excel notes, VBA | Komentáře nejsou povolené u textu s názvem Počet hledané hodnoty ve sloupci

Výmaz netisknutelných znaků – funkce

Function CleanTrim(ByVal S As String, Optional ConvertNonBreakingSpace As Boolean = True) As String Dim X As Long, CodesToClean As Variant CodesToClean = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, … Celý příspěvek

Rubriky: Excel notes, VBA | Komentáře nejsou povolené u textu s názvem Výmaz netisknutelných znaků – funkce

Ukončení programu v systému – task kill

Sub Test() If TaskKill(„notepad.exe“) = 0 Then MsgBox „Terminated“ Else MsgBox „Failed“ End Sub Function TaskKill(sTaskName) TaskKill = CreateObject(„WScript.Shell“).Run(„taskkill /f /im “ & sTaskName, 0, True) End Function

Rubriky: Excel notes, VBA | Komentáře nejsou povolené u textu s názvem Ukončení programu v systému – task kill

Přizpůsobení velikosti buňky dle obsahu – autofit

Přizpůsobení ve sloupci ThisWorkbook.Worksheets(„List1“).Columns(„O:O“).EntireColumn.AutoFit Přizpůsobení na listu ThisWorkbook.Worksheets(„List1“).Cells.EntireColumn.AutoFit Přizpůsobení v celém sešitu For Each sht In ThisWorkbook.Worksheets sht.Cells.EntireColumn.AutoFit Next sht

Rubriky: Excel notes, VBA | Komentáře nejsou povolené u textu s názvem Přizpůsobení velikosti buňky dle obsahu – autofit

Počet použitých sloupců

Dim currentColumn As Integer currentColumn = ActiveSheet.UsedRange.Columns.Count

Rubriky: Excel notes, VBA | Komentáře nejsou povolené u textu s názvem Počet použitých sloupců

Přidání sloupce

Columns(„N:N“).Select Selection.Insert Shift:=xlToRight

Rubriky: Excel notes, VBA | Komentáře nejsou povolené u textu s názvem Přidání sloupce

Přidání listu na konec

Sheets.Add(After:=Sheets(Sheets.Count)).Name = „Poslední“

Rubriky: Excel notes, VBA | Komentáře nejsou povolené u textu s názvem Přidání listu na konec

Přizpůsobení grafu buňce

ActiveSheet.Shapes(„YourChartName“).Placement = xlFreeFloating ‚nebo xlMoveAndSize,xlMove Dim shp As Shape For Each shp In ActiveSheet.Shapes shp.Placement = xlMoveAndSize Next shp

Rubriky: Excel notes, VBA | Komentáře nejsou povolené u textu s názvem Přizpůsobení grafu buňce