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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 172 След.
Отзывы о работодателях и исполнителях, Посмотрите, прежде чем взять/предложить работу
 
TheBestOfTheBest, мне тоже написал в личку
Реквизиты для благодарности и контакты для связи — в профиле
удалить все столбцы кроме определенных (VBA)
 
Цитата
Ігор Гончаренко: не станет этот код делать того что задекларировано
блин точно - забыл совсем)))
Код
For col=100 To 1 Step-1
Изменено: Jack Famous - 29 окт 2020 16:03:24
Реквизиты для благодарности и контакты для связи — в профиле
удалить все столбцы кроме определенных (VBA)
 
Цитата
mazersw: удалить все столбцы кроме определенных
Данный код на активном листе удалит все столбцы с 1 по 100ый, кроме 5го, 8го и 12го
Реквизиты для благодарности и контакты для связи — в профиле
Макрос или автозамена для выделения форматирования
 
Анна Прохорова, Свойство Range.Characters
Реквизиты для благодарности и контакты для связи — в профиле
Неточный поиск (Fuzzy Lookup). Метод перестановки слов местами
 
Доброго времени суток, Планетяне!

На работе вплотную занят реализацией нечёткого поиска различными методами и делюсь с вами наработками
Как работает
Модуль «MacroCall». Основная оболочка
Модуль «Fuzzy». Функция определения подобия для элемента
Скрины

:excl: Просьба сразу сообщать обо всех примерах некорректного расчёта подобия или других ошибках в работе макроса

Оригинальный макрос-оболочку пришлось сильно порезать для сайта, т.к. там полно вызовов вспомогательных процедур и функций из моей надстройки
Для работы пришлось бы половину своей библиотеки сюда скопировать и всё стало бы совсем непонятно  :D
Функция поиска подобия почти не была затронута
Изменено: Jack Famous - 29 окт 2020 13:34:50
Реквизиты для благодарности и контакты для связи — в профиле
Регулярные выражения (RegExp). Нормализация строки, Обзор методов быстрого преобразования строки
 
Цитата
Vladimir Chebykin: я бы предложил вообще эту тему сохранить в копилку … Не знаю, как это делается
ещё раз спасибо за положительную оценку  ;) я и сам не знаю, как это делается :D

Я не против, но позже. Эта тема вместе с другими войдёт в сборник Нечёткий поиск / Fuzzy Lookup
Когда он будет готов и оформлен, тогда и можно будет переносить  :idea:

К тому же, уже сейчас есть куда более крутые претенденты для переноса:
  1. Все три темы от sokol92
  2. Справка по функциям рабочего листа Excel 2019 от того же Андрея VG (есть ещё мануалы по PQ)
  3. Многие решения bedvit'а, такие как OfficeEvents и Перевести условное форматирование в обычное
  4. Мои, полностью оформленные, такие как Форма с поиском по маске или Расширенное сравнение двух списков

Копилка пополняется очень редко и складывается такое ощущение, что в ней ограничено место  :D
Механизм и критерии отбора по "полезности" также не обозначены, поэтому остаётся только предоставить решения по переносу на усмотрение модераторов …
Изменено: Jack Famous - 29 окт 2020 10:56:17
Реквизиты для благодарности и контакты для связи — в профиле
Регулярные выражения (RegExp). Нормализация строки, Обзор методов быстрого преобразования строки
 
Цитата
New: А примера нет что куда код преобразовывает?
в процедуре t () есть строка, которая должна получиться и строка для теста макроса:
Код
Const check$ = "25/1 а;а.а;а 5 а а.sd аsd аsdа:s 2 12 1 аs d 6 а dаs 2,-,3/12-34.выа ыва.ы.в:в:в 13 15 аы ва ыв 7.7\/.25"
a = " -  ,. - 25   /1aa;aаа.аа;;aa5a(a......sd)asd asda:s2 12 1as{}d6a das 2   ,--,,   3/12   --34.выа••ыва .ы. вв:вввbb:bbb 13   15 аыы ва ыв7  () . () 7\ \ //  /  /     .  25 / / . , "
+ Добавил несколько примеров в файл и заменил стартовое сообщение  ;)
Изменено: Jack Famous - 29 окт 2020 09:37:39
Реквизиты для благодарности и контакты для связи — в профиле
Макрос сделать, Помогите с макросом
 
почему тему ещё не убили?
Реквизиты для благодарности и контакты для связи — в профиле
Регулярные выражения (RegExp). Нормализация строки, Обзор методов быстрого преобразования строки
 
Vladimir Chebykin, спасибо за положительный отзыв! Всегда пожалуйста  :)
Скоро выложу код для нечёткого сравнения методом перестановки слов  ;)
Реквизиты для благодарности и контакты для связи — в профиле
Предложение для форума. Сортировка тем форума
 
Alemox, согласен
А личными сообщениями вообще пользоваться неудобно
Реквизиты для благодарности и контакты для связи — в профиле
Привет, как вытащить гиперссылки из ячеек, из слов в ячейках???, Привет, как вытащить гиперссылки из ячеек, из слов в ячейках???
 
Vadik_jet, столбец Q
Реквизиты для благодарности и контакты для связи — в профиле
Название листа по ячейке VBA, Нужно сделать активным лист с названием A1(значение ячейки).
 
Цитата
БМВ: чего-то не хватает. Какой-то закорючки в коде
Sheets конечно  :D
мэтью
Изменено: Jack Famous - 27 окт 2020 10:32:21
Реквизиты для благодарности и контакты для связи — в профиле
Регулярные выражения (RegExp). Нормализация строки, Обзор методов быстрого преобразования строки
 
Андрей VG, привет))) Видимо, к беседе больше никто не присоединится  :D
Цитата
Андрей VG: чем не угодил шаблон
ну вообще раньше в шаблоне не было звёздочек и именно поэтому я и разбивал на 2 шаблона с "пробел+". Звёздочки решили проблему - совсем забыл про них. Работает  :idea:
Цитата
Андрей VG: шаблон для справа
блин - а я всё заменял на $1, хотя нужно было просто удалить. Работает (в том числе объединённый шаблон)  :idea:
Цитата
Андрей VG: не мешало бы следовать этому не замысловатому правилу … приложите файл(ы) с примером
тут такое дело: обработчик был рабочий с самого начала, только некоторые шаблоны были разделены и/или заменены. То есть итог обработки (цель и пример) был, только нужно было, конечно, его отдельно вынести для визуального контроля

Что ж - всё работает. Ещё раз спасибо Андрею!  :idea:
Финальный код в стартовом сообщении. Удаление символов слева и справа пришлось-таки заменить на строковые функции, которые в данном случае стабильно быстрее на 10-15% (-5% слева и -25% справа по времени)
Изменено: Jack Famous - 27 окт 2020 10:20:55
Реквизиты для благодарности и контакты для связи — в профиле
Поиск пропущенных чисел.
 
Цитата
Андрей Картошкин: ничего не получается
не видно, чтобы вы пытались…
Реквизиты для благодарности и контакты для связи — в профиле
Название листа по ячейке VBA, Нужно сделать активным лист с названием A1(значение ячейки).
 
На основе макроса от New
Код
Sub Активировать_лист()
On Error Resume Next
Sheet(CStr(Range("A1").Value))).Select
If Err Then MsgBox "Листа с названием «" &  CStr(Range("A1").Value)) & "» нет!", vbInformation, "Внимание": Exit Sub
End Sub
Реквизиты для благодарности и контакты для связи — в профиле
Копирование модуля в "ЭтаКнига"
 
Цитата
Sniaper: не получается скопированный модуль засунуть в новый файл в "ЭтаКнига",
модуль листа и книги - не отдельный элемент, а встроенный, поэтому просто скопируйте текст из своего модуля в модуль книги (двойной клик по элементу "эта книга" в редакторе VB) нужного файла
Изменено: Jack Famous - 26 окт 2020 17:42:17
Реквизиты для благодарности и контакты для связи — в профиле
Регулярные выражения (RegExp). Нормализация строки, Обзор методов быстрого преобразования строки
 
Доброго времени суток, Планетяне!

Создал тему, чтобы отшлифовать найденные решения по преобразованию строки к "нормальному" состоянию
Для чего это преобразование нужно: для автоматического точного поиска среди строк, отличающихся друг от друга несущественной информацией. А именно, удаление этой информации и приведение "несущественно" разных строк к одному виду

Решено. Огромная благодарность Андрею VG  :idea:  8)
Итоговый код
Скрин с примерами из файла (жёлтым выделено то, что стало дубликатами после обработки)
Изменено: Jack Famous - 29 окт 2020 09:39:52 (Добавил примеры преобразований)
Реквизиты для благодарности и контакты для связи — в профиле
Замена всех символов "Перенос строки", Замена всех символов "Перенос строки"
 
Артур Идрисов, Тонкости работы с переносами строк в Excel
Символ #(lf)
Реквизиты для благодарности и контакты для связи — в профиле
Добавление значений нескольких ячеек
 
ViachesLove Henderson, здравствуйте
Файл-пример ускорит получение помощи и её качество
Реквизиты для благодарности и контакты для связи — в профиле
Как извлечь данные из ячейки по строкам
 
FrOleg80, Суперсила Мгновенного заполнения (Flash Fill)
Реквизиты для благодарности и контакты для связи — в профиле
Номер для каждого уникального значения
 
Andreybukh, вы родили мать всех цитат…браво  :D
Реквизиты для благодарности и контакты для связи — в профиле
Макрос округления значений в таблице
 
Владислав Кузницын, 4 года прошло…
Если вам нужно обычное математическое округления (как на листе), то используйте --Format$(c,"0.000") (для данного кода и 3ёх знаков после запятой
Реквизиты для благодарности и контакты для связи — в профиле
ячейки с зада :), и такое бывает
 
Цитата-матка
Скрин
Изменено: Jack Famous - 24 окт 2020 21:26:53
Реквизиты для благодарности и контакты для связи — в профиле
Какую часть (процент) отрезка a---c составляет отрезок a---b
 
Цитата
r_a_s: Высчитать процент
  • 1. n % val (n процентов от числа val) = n/100*val
То есть 17% от 25 это 17/100*25 = 0,17*25 = 4,25
Цитата
r_a_s: из отрицательного числа
не "из", а "от"
  • 2. 17% от -25 = -4,25
Как видите, ничего сложного, а вы только рака за камень заводите своим ходом мысли
Про формулы в файле вообще молчу - такое ощущение, что вы в школе не бывали ни дня. Это край… вообще вилы  :D
Изменено: Jack Famous - 23 окт 2020 16:30:36
Реквизиты для благодарности и контакты для связи — в профиле
Округление значения в ячейке макросом
 
Цитата
natalia875: как округлить значение макросом … в ячейке … чтобы сумма была без копеек … в большую строну
Код
Range("A1").Value2=WorksheetFunction.RoundUp(число,0)
Изменено: Jack Famous - 23 окт 2020 16:00:35
Реквизиты для благодарности и контакты для связи — в профиле
Настройка распознавания текста надстройки fuzzy lookup
 
Цитата
bedvit: Тема довольно серьезная. Но кажется, что полезная
и серьёзная и полезная  :D

Выкладываю макросы для стандартизации строки и/или чисел в них. Основные (для вызова) — первые два (для диапазона и для элемента), остальные - вспомогательные, для работы
Это первая версия и довольно сырая, к тому же не претендует на универсальность - писал из реалий своих данных
Основной инструмент, используемый в коде - регулярные выражения
Код написан под раннее связывание, так что убедитесь, что у вас подключена библиотеки со скрина
Код
Изменено: Jack Famous - 23 окт 2020 15:56:30
Реквизиты для благодарности и контакты для связи — в профиле
Настройка распознавания текста надстройки fuzzy lookup
 
Цитата
Андрей VG: Я полагал, что вы с вышеуказанными алгоритмами работали
ну во-первых не "вы", а "ты"  :D
Там такая серьёзная математика, что сам боюсь браться, надо МСН подключать или нашу бригаду  :idea:
Вариант Димы мне понятен, прозрачен (подробен) и довольно надёжен, поэтому именно на его основе сделал себе макрос (поделюсь скоро), но там дополнительно используется серьёзная предварительная обработка строк с удалением "неопределяющих" символов
"Простую метрику" давно не трогал и не помню, а "Нечёткий поиск" даже запустить не удалось т.к. всю память съел
Реквизиты для благодарности и контакты для связи — в профиле
Настройка распознавания текста надстройки fuzzy lookup
 
Андрей VG, привет))
Цитата
Андрей VG: чем расстояние Левенштейна сильно слабее СРАВНЕНИЕ ТЕКСТА ПО ЧАСТИ ПРЕДЛОЖЕНИЯ?
я немного про другое. На данный момент для меня лучшие результаты выдаёт надстройка мелкомягких, но, если смотреть в сторону самостоятельного решения на VBA, не требующего подключений внешних данных (кроме штатных библиотек), то Димина функция отлично подходит. Вариант от Николая Владимировича мне не очень подходит…
Реквизиты для благодарности и контакты для связи — в профиле
Настройка распознавания текста надстройки fuzzy lookup
 
bedvit, Андрей VG, я давно ищу аналог Fuzzy Lookup, но всё найденное пока сильно слабее
Лучшее, что нашёл: СРАВНЕНИЕ ТЕКСТА ПО ЧАСТИ ПРЕДЛОЖЕНИЯ

А также варианты для ознакомления:
Простая метрика сходства текстовых строк
Нечёткий поиск
Изменено: Jack Famous - 23 окт 2020 10:23:53
Реквизиты для благодарности и контакты для связи — в профиле
Как преобразовать выделенный цветом ячейки в столбце цифрами в таблицу
 
Александр Зубков, почему собираете именно в такие блоки? Чем не устроил фильтр по цвету шрифта?
Скрин
Изменено: Jack Famous - 22 окт 2020 10:33:53
Реквизиты для благодарности и контакты для связи — в профиле
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 172 След.
Наверх