Месяц: Март 2016

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→