VBA (Exel) и не только

Sub run() For i = Selection.Row To Selection.Row + Selection.Rows.Count — 1 For j = Selection.Column To Selection.Column + Selection.Columns.Count — 1 Cells(i, j) = Rnd * 1000 Next j Next i End Sub

‘Option Explicit ‘Приходы Sub ПриходСводТаб() Dim PTcache As PivotCache Dim pt As PivotTable Dim PItem As PivotItem Application.ScreenUpdating = False ‘ Удаление существующего листа сводной таблицы On Error Resume Next Application.DisplayAlerts = False Sheets(«List8»).Delete On Error GoTo 0 Worksheets.Add ActiveSheet.Name Продолжить чтение Правильно работаем со сводными таблицами→

Sub sortt() ‘ Функция поиска двойных денежных потоков Application.ScreenUpdating = False ActiveWorkbook.Worksheets(«Общая ОСВ»).AutoFilter.Sort.SortFields.Clear ActiveWorkbook.Worksheets(«Общая ОСВ»).AutoFilter.Sort.SortFields.Add Key:= _ Range(«F5»), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets(«Общая ОСВ»).AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End Продолжить чтение Двойное выделение→

Function delcr2000(r As Range) Dim arr() As String ReDim arr(200) For i = 1 To Len(r) arr(i) = Mid(r, i, 1) If Mid(r, i, 1) = » » Then arr(i) = » » If Mid(r, i, 1) = Chr(10) Then Продолжить чтение Удаление символа новой строки→

Function delcr(r As Range, cr As String) Dim arr() As String arr() = Split(r) For i = 0 To UBound(arr) arr(i) = arr(i) If Left(arr(i), 1) = «;» Then arr(i) = Right(arr(i), Len(arr(i)) — 1) If Right(arr(i), 1) = «;» Продолжить чтение Удалить ненужный символ спереди и сзади слова→

Option Explicit ‘Приходы Sub ПриходСводТаб() Dim PTcache As PivotCache Dim pt As PivotTable Dim PItem As PivotItem Application.ScreenUpdating = False ‘ Удаление существующего листа сводной таблицы On Error Resume Next Application.DisplayAlerts = False Sheets(«Приходы»).Delete On Error GoTo 0 ‘ Создание Продолжить чтение Заготовка для 51 счета→

Option Explicit Sub CreatePivotTable() Dim PTcache As PivotCache Dim pt As PivotTable Application.ScreenUpdating = False ‘ Удаление существующего листа сводной таблицы On Error Resume Next Application.DisplayAlerts = False Sheets(«Сводная таблица»).Delete On Error GoTo 0 ‘ Создание кеэша сводной таблицы Set Продолжить чтение Другой способ работы со сводными таблицами→

‘ удаление переноса строки. В DelChr10RUN поставь столбец Sub DelChr10(colum As String) For i = 1 To Cells.SpecialCells(xlLastCell).Row If Right(Range(«C» & i), Len(Range(«C» & i)) — Len(Range(«C» & i)) + 1) = Chr(10) Then Range(«C» & i) = Left(Range(«C» & Продолжить чтение удаление переноса строки. В DelChr10RUN поставь столбец→

Function ContainsMergedCells(rng As Range) Dim cell As Range ContainsMergedCells = False For Each cell In rng If cell.MergeCells Then ContainsMergedCells = True Exit Function End If Next cell End Function