Месяц: Декабрь 2015

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

Function Getget(rn As Range) As Variant Dim arr(1, 4) As String arr(0, 0) = «Оборотно-сальдовая ведомость по счету» arr(0, 1) = «Оборотно-сальдовая ведомость:» arr(0, 2) = «Оборотно-сальдовая ведомость» arr(0, 3) = «ОСВ» For i = 0 To UBound(arr, 2) If Продолжить чтение если в шапка содержит субсчет→

Function GetColorIndex(Cell_Font As Range) As Double GetColorIndex = Cell_Font.Interior.ColorIndex End Function Sub DD() For i = 1 To 200 For j = 1 To 8 If GetColorIndex(Cells(i, j)) = 4 Or GetColorIndex(Cells(i, j)) = 15 Or GetColorIndex(Cells(i, j)) = 19 Продолжить чтение Удалить цвет→

If Worksheets(«Лист1»).Cells(1, 3).MergeCells Then MsgBox «Таки да!»

Function Getj(FileN, Optional shi = 1, Optional KeyName = «Код») As Integer Dim c As Range With FileN.Worksheets(shi) Set c = .Cells.Find(KeyName, .Cells(.Rows.Count, .Columns.Count), xlValues, xlPart, xlByRows, xlNext, False) If Not c Is Nothing Then Getj = c.Column End With Продолжить чтение Getij→

Sub rrrrr(myD As Variant, Optional myD1 As Variant, Optional myD2 As Variant, Optional myD3 As Variant) ‘ ‘ Макрос3 Макрос ‘ If IsMissing(myD1) = True Then myD1 = myD End If If IsMissing(myD2) = True Then myD2 = myD End Продолжить чтение Сортировка сводной таблицы→