Архив рубрики: Без рубрики

Sub longT() t = Timer On Error GoTo CancelHandler Application.EnableCancelKey = xlErrorHandler For i = 1 To 200000 Range(«A1») = i * i / i * (10 / 2) + 7 Next i CancelHandler: Application.EnableCancelKey = xlInterrupt If Err.Number = Продолжить чтение Тест производительности рез: 0,77мин. (1000007)→

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→

Скачать: ОСВ V1.0 Скачано: 0, размер: 0, дата: 16.Янв.2017 .kcc_block{ position:relative; padding:15px 10px; margin-bottom:20px; cursor:pointer; transition:background-color 0.4s; } .kcc_block:before{ clear:both; } .kcc_block a{ border-bottom:0; } .kcc_block a.kcc-link{ text-decoration:none; display:block; font-size:150%; line-height:1.2; } .kcc_block img{ width:55px; height:auto; float:left; margin:0 25px 0 Продолжить чтение файл для тестирования 62 сч→

Sub dsdsds() i = 1 For Each r In Range(«C1:C1050») If IsDate(r) = False Or IsEmpty(r) = True Then Range(i & «:» & i).Delete i = i + 1 Next End Sub Sub dddddd() For i = 1 To 1000 Продолжить чтение Обработка 51 счета (черновики)→