Месяц: Март 2016

Sub fff() Dim MyArr MyArr = Array(10, 22, 100, «ghghgh») For Each a In MyArr Debug.Print a Next End Sub

Sub CopyNameRange() Лист6.Range(«Диапазон2») = Лист6.Range(«Диапазон»).value ‘копирование из диапазона в диапазон Лист6.Range(«A1:A5»).Name = «Привет» ‘создание имени диапазона Лист6.Range(«Диапазон»).Copy ‘копирование диапазона в в ячейку к30 Лист6.Range(«K30»).Select Лист6.Paste End Sub

http://stackoverflow.com/questions/25628205/is-it-possible-to-generate-or-clone-pivot-tables-using-phpexcel-library

‘Option Explicit »Возможные варианты: ДебетН, КредитН, ДебетО, КредитО, ДебетК, КредитК Sub Svodtabfrom51() ‘ Удаление существующего листа сводной таблицы Dim sName As String ‘ sName = «АгрБаланс» ‘Call delSheet(sName) Dim arr0() As String Dim arr() As String Dim arr1() As String Продолжить чтение Сводная таблица из 51 счета→

_Слив ОСВ_606276 _v3.8_F

Sub Суды() ii = 1 For i = 2 To 100 Range(«B» & i).Select Start = Selection.Row Ends = Selection.Rows.Count If i Mod 3 = 0 Or i Mod 4 = 0 Or i Mod 5 = 0 Then ii Продолжить чтение Сбор судов СБИС→

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 (вертикальные свертки)→