Апрель 2018 — Проектирование, разработка и поддержка программного обеспечения

Собрать бирки, ценники обратно в таблицу

Option Explicit Private arr() As Variant, bDebug As Boolean Public Sub Бирко_Собиратель_aka_Страж_Матрицы() bDebug = 0 Application.ScreenUpdating = IIf(bDebug, 1, 0) ‘на ws_dest проходит по первой строке ‘и формирует столбцы из значений ws_Sour ‘ http://www.excelworld.ru/forum/2-38118-1 Dim ws_Sour As Worksheet, ws_dest As Worksheet Set ws_Sour = ActiveWorkbook.Worksheets(«Лист1») Set ws_dest = ActiveWorkbook.Worksheets(«Накопитель») Dim…Больше

Сводная поле Год

1) выделить исходную таблицу 2) Вставить / сводная таблица / ок 3) затащить даты в строки / ПКМ / Группировать / Месяцы, годы 4) перетащить получившиеся годы в столбцы 5) в результат перетащить выручку Анализ данных за периодБольше

Планшеты популярность

Форум2 Тем Ответов Другие бренды 2304 1 688 478 Покупка устройств 902 1 267 621 Samsung 341 1 211 158 Sony/SonyEricsson 127 699 661 Xiaomi 80 693 039 HTC 161 535 865 Аксессуары к устройствам 560 516 924 Lenovo 215 498 407 Asus 138 468 769 LG 140 460 278 Meizu 54 362 520 Huawei…Больше

В каком столбце текст чаще встречается?

Private Sub В_каком_Столбце_Больше_test() Debug.Print _ В_каком_Столбце_Больше(ActiveCell.CurrentRegion, «-«) End Sub Public Function В_каком_Столбце_Больше(rng As Range, _ str As String) _ As Long ‘ Определяет в каком столбце диапазона rng ‘ чаще встречается str Dim arr() As Double ‘ Double возвращает CountIf ReDim arr(1 To rng.Columns.Count) Dim x As Long, rng_Col As…Больше

Подстановка значений по таблице в буфере

Public Sub Подставить_Значения_из_Таблицы_Подстановки() ‘ например есть таблица с организациями и кодами ОКВЭД и ‘ таблица с кодами ОКВЭД и расшифровкой кодов ‘ нужно в первую таблицу подставить расшифровку кодов, в свободный столбец ‘Скопировать таблицу в буфер ‘ выделить нужный диапазон ‘Если в буфере обмена не пусто ‘Вставляет буфер в лист новой книги, копирует…Больше

1С отчёт приделать КонтрАгенту регион

Option Explicit Public Sub КонтрАгент_Регион_Добавить() ‘В отчёте 1С Продажи КонтрАгент структурирован регионом ‘ из: ‘ Регион ‘ КонтрАгент01 ‘ КонтрАгент02 ‘ сделать: ‘ КонтрАгент01 Регион ‘ КонтрАгент02 Регион ‘для поиска реквизитов: ОКВЭД и т.п. Dim ws As Worksheet Dim eL As Range Dim Col_Last As Long, Col_Work As Long, Col_Code As Long,…Больше

Excel Макрос VBA отфильтрованные ячейки вставить значения параллельно

Скопировав данные из отфильтрованного диапазона вставить их в соседний столбце без снятия фильтра и чтобы данные вставились именно в видимый диапазон! При обычном копировании выдает ошибку «данная команда не применима для нескольких / несвязанных диапазонов». Option Explicit ‘http://www.excelworld.ru/forum/2-37980-1 Public Sub Фильтр_Копировать_Параллельно() Dim rng As Range Set rng = Selection.SpecialCells(xlCellTypeVisible) On Error Resume…Больше

РН. РосНефть — сходить на сайт и взять из списка структуру

Public Sub РосНефть_Структура_() ‘Сходить на сайт и взять из списка структуру Dim str As String, strUrl As String, strProc_Name strUrl = «http://zakupki.rosneft.ru/zakupki» strProc_Name = «РосНефть_Структура» str = HTTP_getText(strUrl) If str = vbNullString Then MsgBox4Debug strUrl, strProc_Name Copy2ClipBoard Роснефть_Зачистка(str) Роснефть_Дизайн (str) End Sub Private Function Роснефть_Дизайн(str As String) As String…Больше

Копировать без буфера обмена

Worksheets(2).Range(«A1:B2»).Value(xlRangeValueXMLSpreadsheet) = Worksheets(1).Range(«A1:B2»).Value(xlRangeValueXMLSpreadsheet)Больше

Скорость выполнения макросов, процедур, функций

Option Explicit Private shTimer As Worksheet, bDebug As Boolean Public Sub Таймер_Старт_Стоп_Тест() bDebug = 1 Dim x As Long, z As Long, x2 As Long, z2 As Long z = 2: z2 = z For x = 1 To z Таймер_Старт «Скорость_Замер», «Старт 01 » & x Application.StatusBar = x &…Больше

Сравнение двух таблиц по одному столбцу

Нужно: сравнивать старый и новый файл по столбцу «F» на предмет появления в новом файле новых значений (строк), которых нет в старом и выделять эти значения цветом. Решение: Закрасить ячейки в новом файле, туда добавить ячейки из старого файла и удалить дубликаты. Option Explicit Public Sub Строки_Новые_Цвет() Dim shDest As Worksheet, shSour As Worksheet,…Больше

Архивы за месяц: Апрель 2018