Archiv rubriky: Excel notes

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 →

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

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

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 →

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

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

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

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

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