Архивы автора: kos20

Function zamentochku(r As Range) Dim arr() As String Dim count As Integer count = 0 ReDim arr(Len(r)) For i = 1 To Len(r) arr(i) = Mid(r, i, 1) If Mid(r, i, 1) = «.» Then count = count + 1 Продолжить чтение Заменить точку→

Sub test() Application.ScreenUpdating = False i = 0 For Each WAr In ActiveSheet.UsedRange.Rows i = i + 1 If WAr.OutlineLevel = 4 Then ‘ 4 — поле для удаления. Возможно, что макрос нужно запустить несколько раз Rows(i & «:» & Продолжить чтение Удалить OutlineLevel (вертикальные свертки)→

https://drive.google.com/file/d/0B3wA5YYTt—_MnhBbTFvU292aDQ/view?usp=sharing

http://www.delphisources.ru/forum/showthread.php?t=21797 transform sum(Сумма) select Компания from Таблица group by Компания pivot Month(Дата) http://www.sql.ru/forum/1203537/kak-perevernut-tablicu

‘ЭТО ВСЕ работатет для 51 счета!!!!!! НО БЕЗ КОРРЕКТИРОВОК НА ЗНАЧЕНИЯ (ПРОСТО ИЩЕТ ЗАГОЛОВКИ) Sub GetKeyColumnsFOR51() Dim arr() As String ReDim arr(9) arr(0) = «Период» arr(1) = «Документ» arr(2) = «Аналитика Дт» arr(3) = «Аналитика Кт» arr(4) = «Дебет» arr(5) Продолжить чтение Универсальный поиск для 51 счета→

Sub GetKeyColumns20000() Dim arr() As String ReDim arr(5) Dim arri() As String ReDim arri(5) arr(0) = «Дата» arr(1) = «Приход» arr(2) = «Сумма2» arr(3) = «Расход» arr(4) = «Сумма» i = -1 For Each a In arr i = i Продолжить чтение Как бы универсальный поиск колонок→

Sub ddd() ‘ Ser rn = Range(«A1:M10») For Each r In Range(«A1:M10») ‘диапазон для поиска If r.Value = «Сумма» Then ‘ поиск ячеки искомого текста If r.MergeCells Then r.Select ‘ проверка на объединение ‘ Debug.Print Selection.Address(ReferenceStyle:=xlRC, ColumnAbsolute:=True, RowAbsolute:=True); Debug.Print Selection.Column Продолжить чтение Работа с объединенными ячейками MergeCells→