Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 23 След.
автоматическое добавление товаров из 1 документа в другие
 
Цитата
etman0904 написал:
Решен вопрос?
В процессе ...
Подборка функций пользователя
 
Цитата
Evgenyy написал:
В каких конкретно книгах
в любых
Цитата
Evgenyy написал:
какое сравнение?
например: если ячейки из диапазона 1 нет в диапазоне 2, то покрасить красным.

Может этого у Вас и нет ...
Подборка функций пользователя
 
Привет!

Обратно спасибо.

Не нашёл: сравнение двух столбцов (в разных книгах) с раскраской.
Подборка функций пользователя
 
Цитата
Evgenyy написал:
В чём сложность кода
Он умный и много делает.
Об этом написано в сообщении 64
Цитата
Evgenyy написал:
Ігор Гончаренко , Вы опять всё не так поняли
А по моим наблюдениям, Ігор Гончаренко, часто понимает лучше меня.
Получение расстояния из Yandex карт. от точки до точки., Нужно сделать авто-маршрутный лист.
 
Цитата
drtugrik написал:
кто сможет мне помочь
Здрасьте, ещё раз!
В личке Вам предложил именно как Вы хотите.
Сервис, который Вам сватает pharmaprofi, хороший, но он не занимается расстояниями.
Получение расстояния из Yandex карт. от точки до точки., Нужно сделать авто-маршрутный лист.
 
Привет!

Написал в личку.
Подборка функций пользователя
 
Цитата
БМВ написал:
Что вы подразумеваете под Артефакт?
Подразумеваю процедуру: понятную, надёжную, простую, отлаженную, скромную - готовую к повторному использованию в других цепочках методов, делающую что-то только одно.
Мечта разработчика.
Подборка функций пользователя
 
Цитата
БМВ написал:
Главное, что при переносе одной функции, не надо ползать. по модулю или модулям, и копировать процедуры дочерние.
Проблема надуманная, но решаемая.
Цитата
БМВ написал:
20-30 строк это перебор (хотя все знают, что мой лимит 10
Число строк - индусский неподходящий ориентир. Мне нравится термин "нулевая сложность".
Есть артефакт:
Код
CreateObject("VBScript.RegExp").Execute
у него нулевая сложность - нечего убрать.
А чтобы он сработал нужен примерно такой декоратор:
Скрытый текст

И у него нулевая сложность (надеюсь) - он чуть направляет  .Execute в нужную сторону.
А чтобы RegExp_Get не имел возможности ошибиться, предлагаю отдельный декоратор:
Скрытый текст

И у него нулевая сложность - не смотря на количество строк, он запускает нужный минимум и возвращает минимум. Надеюсь, тоже нечего отнять(отсечь) в коде?

А те, кто не сталкивался со сложностью сложных проектов, предложат коды двух артефактов соединить в одну процедуру. Они ещё не насытились проблемами преждевременной оптимизации.
Подборка функций пользователя
 
Цитата
БМВ написал:
в случае переноса, не пропустить чего.
Option Explicit реально рулит.
Слегка похвастаю: актуально - не писать нового, потому что новое нужно тестировать.
Благодаря ТС улучшил свой репозиторий порегуляркам хорошими артефактами. Любой их может использовать в других проектах.
А код ТС (вполне рабочий) использовать - проблематично. Он сложный.
Подборка функций пользователя
 
Цитата
БМВ написал:
толчки к развитию
Золотые слова!
Коды Ваших процедур работают, но они заточены под функции листа.
Я уже несколько раз переделывал системы Excel, которые заточены под формулы, на вставку значений.
Да, скорость.
Подборка функций пользователя
 
Цитата
Андрей VG написал:
вы всерьёз считаете, что Excel-формульное представление
Всерьёз.
Для себя называю чуть по другому: цепочка методов, а под настроение и:
Иерархия
 Декорированных
   Артефактов
Подборка функций пользователя
 
Цитата
Evgenyy написал:
Так лучше?
Для достижения повторного использования кода, тестирования, надекомпозировал:
Код
Function Массив_Уникальных_из_Диапазона( _
         r As Range, _
         sPatt As String) _
         As Variant

    Dim s As String
    s = Диапазон_в_Строку(r)

    Массив_Уникальных_из_Диапазона = _
    Объект_в_Словарь( _
    Регулярка_Взять(s, sPatt, _
                    Регулярка_Тест(s, sPatt))). _
                    Keys

End Function
Изменено: Inexsu - 3 Авг 2019 11:30:09
Подборка функций пользователя
 
Цитата
Evgenyy написал:
из чего ещё извлекать, чтоб было универсально?
Не могу пока обосновать, считаю, что
Код
CreateObject("VBScript.RegExp").Execute 
принимает на вход тип String.
Подборка функций пользователя
 
Цитата
БМВ написал:
как  пример у Игоря
Как внештатный ученик Игоря, надеюсь он Вас и отругает за странное стремление ограничить универсальность процедуры :-)
Подборка функций пользователя
 
Цитата
БМВ написал:
готовой функции - нет, она должна быть самодостаточна
Пусть код сложный, пусть спагетти. Но он работает :-)
А Вы призываете код регулярно изменять. Он и так хрупкий.
Берите паттерн регулярки не номером, а самим паттерном и не нужно будет ковыряться в коде.
Ну вы же знаете, что после исправления кода, нужно запускать тесты?  
Подборка функций пользователя
 
У Evgenyy, код заточен под лист, поэтому паттерны регулярных нагляднее держать на листе.
Подборка функций пользователя
 
Цитата
Evgenyy написал:
Да, эта строка нужна
Код как юмор.
Если его нужно объяснять - он плохой.
Подборка функций пользователя
 
Строка
Код
Coll.Add tmp, CStr(tmp)
очень нужна?
Подборка функций пользователя
 
Привет!
Через месяц Вы вспомните какой элемент массива какой паттерн?
Пора отказываться от спагетти-кода!
Макрос на удаление значений в столбце справа от найденного значения
 
Привет!
Как Вам такой вариант?
Скрытый текст
[CODE][/CODE]
Заливка цветом строк по совпадению "заголовка" в сводной таблице
 
Привет!

В ЭтаКнига нет Option Explicit

Цитата
Arlekino написал:
перечень продуктов по условию даты создания - жёлтый
Не понятно
Куплю макрос "Найти и заменить"
 
Цитата
Vel89 написал:
cколько по времени Вам нужно
Написал в личку.
Куплю макрос "Найти и заменить"
 
Я освобожусь после 19 часов мск.
Куплю макрос "Найти и заменить"
 
Привет!
Цитата
Vel89 написал:
Задача срочная.
К какому числу, часу?
Убрать из ячейки все кроме цифр
 
Привет!

Цитата
DopplerEffect написал:
все символы, кроме цифр?
Не забыли про
Код
Application.DecimalSeparator
?
Подборка функций пользователя
 
Привет!

Хорошая работа!
VBA. Перемещение строк между листами с использованием массивов, Помогите доработать макрос.
 
Привет!
Код
Function Строка_Свободная( _
        ws As Worksheet) _
        As Long

    Dim r As Range

    Set r = ws.Cells.Find(what:="*", SearchOrder:=xlByRows, _
            SearchDirection:=xlPrevious)

    If r Is Nothing Then

        Строка_Свободная = 1

    Else

        Строка_Свободная = r.Row + 1

    End If

End Function
VBA. Перемещение строк между листами с использованием массивов, Помогите доработать макрос.
 
Привет!
Цитата
fynt1l написал:
На листе reestrs1  эти строки должны добавиться в конец на листе reestrs удалиться.
Лист reestrs  скопируйте, на скопированном листе удалите ненужные строки, теперь можно с этого листа разом скопировать-вставить в нужное место в reestrs1.
Затем удалите ненужные на листе reestrs.
Проблема с гиперссылками - как убрать переход по ссылке, Проблема с гиперссылкой, автоматически открывает Outlook
 
Привет!
Удалить гиперссылки?
автоматическое добавление товаров из 1 документа в другие
 
Привет!
Написал в личку.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 23 След.
Наверх