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

Sub MergeCells() StartRow = Selection.Row EndsRow = Selection.Rows.Count StartCol = Selection.Column EndsCol = Selection.Columns.Count StartCol0 = StartCol EndsCol0 = EndsCol Count = CInt(InputBox(«Ââåäèòå êîë-âî áàíêîâ: «)) Debug.Print Count Colincriment = Round((EndsCol — Count — StartCol) / Count) Colincriment0 = Colincriment Продолжить чтение Автоматическое объединение ячеек для банков→

‘Это кидаем в Модуль ‘Option Explicit Sub AddToShortCut2() ‘ Adds a menu item to the Cell shortcut menu (all open workbook windows) Dim NewControl As CommandBarButton Dim NewContro2 As CommandBarButton Dim NewContro3 As CommandBarButton Dim activeWin As Window Dim w Продолжить чтение pop-up для 6062→

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 Продолжить чтение Сбор судов СБИС→