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

Function УдалитьЛишниеПробелы(r As Range) Dim arr() As String arr() = Split(r) For i = 0 To UBound(arr) If Len(arr(i)) > 0 And i > UBound(arr) Then arr(i) = arr(i) Exit Function End If Next i УдалитьЛишниеПробелы = Join(arr(), » «) Продолжить чтение Удалить лишние пробелы→

CreateObject(«Shell.Application»).ShutdownWindows

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)→