Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.08.2023, 22:45   #1
energoadres
 
Регистрация: 06.07.2023
Сообщений: 7
По умолчанию Замена неполных наименований полными

Добрый день
Помогите с макросом
на листе 1 есть неполные наименования (желтым) и полные
на листе ТМЦ список полных наименований

Цель: Поставив курсор в любую ячейку листа 1 и нажав кнопку "ОБРАБОТАТЬ", макрос заменяет неполные наименования полными, если нет вариантов - ничего не меняется, если несколько вариантов (выделено синим) предлагает выбрать нужный вариант.
Заранее спасибо
Вложения
Тип файла: xlsx АВТОЗАМЕНА.xlsx (293.8 Кб, 1 просмотров)
energoadres вне форума Ответить с цитированием
Старый 17.08.2023, 05:19   #2
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Здравствуйте.
Пример во вложении.
Если выбрать пустую ячейку, или выделить несколько ячеек, то при нажатии кнопки "Обработать" ничего не произойдет.
Если вариант замены единственный, то при нажатии кнопки замена будет произведена сразу.
Если вариантов несколько, то при нажатии кнопки будет выведено окно с предложениями вариантов замены.
Проверяйте. Все ли так, как требовалось?
Вложения
Тип файла: rar АВТОЗАМЕНА.rar (173.8 Кб, 3 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 17.08.2023, 09:02   #3
energoadres
 
Регистрация: 06.07.2023
Сообщений: 7
По умолчанию

Добрый день. Спасибо БОЛЬШОЕ.
Только почему-то не обрабатывает такой вариант:
неполное наименование полное
G-200-100 S2.0 L3000 GYROUX G-200-100 S2.0 L3000, короб замковый

т.е. есть еще символы ДО начала неполного наименования

Еще пожелания, если это решаемо:
1. Обработку сделать по 1 клику (у меня при тестировании надо нажимать 2 раза кнопку обработать).
energoadres вне форума Ответить с цитированием
Старый 17.08.2023, 09:42   #4
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Прикрепите пример файла со всеми возможными неполными наименованиями на листе "Лист1" и укажите, как должно быть после замены.
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 17.08.2023, 11:14   #5
energoadres
 
Регистрация: 06.07.2023
Сообщений: 7
По умолчанию

SAS888,

Выделил зеленым типовые неполные наименования, где добавляются символы спереди
Вложения
Тип файла: xlsx АВТОЗАМЕНА2.xlsx (294.2 Кб, 1 просмотров)
energoadres вне форума Ответить с цитированием
Старый 17.08.2023, 11:32   #6
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Проверяйте.
Вложения
Тип файла: rar АВТОЗАМЕНА_3.rar (180.6 Кб, 9 просмотров)
Чем шире угол зрения, тем он тупее.

Последний раз редактировалось SAS888; 17.08.2023 в 11:38.
SAS888 вне форума Ответить с цитированием
Старый 17.08.2023, 11:50   #7
energoadres
 
Регистрация: 06.07.2023
Сообщений: 7
По умолчанию

SAS888, Все отлично работает,
Спасибо ОГРОМНОЕ
energoadres вне форума Ответить с цитированием
Старый 17.08.2023, 12:18   #8
Serge 007
Участник клуба
 
Аватар для Serge 007
 
Регистрация: 15.12.2009
Сообщений: 1,448
По умолчанию

ТС забыл упомянуть, что разместил тему не только на этом форуме
Кросс: http://www.excelworld.ru/forum/10-52234-1
Бесплатная помощь: www.excelworld.ru
Платная помощь: serge_007.planetaexcel@mail.ru
https://yoomoney.ru: 41001419691823
Serge 007 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создание папки с полными правами на запись\изменение garuna Общие вопросы Delphi 1 07.10.2015 21:41
Удаление неполных дубликатов в StringGrid DIgorevich Общие вопросы Delphi 9 16.08.2015 16:45
Найти количество чисел ai(i = 1, 2, ..., n), являющихся полными квадратами. (в Паскале) vasya1 Паскаль, Turbo Pascal, PascalABC.NET 3 01.02.2012 06:45
Перекодировка наименований Gigabait Microsoft Office Excel 11 03.06.2011 17:29
Записать в файл g все компоненты файла f, которые являются полными квадратами. loloverg Помощь студентам 1 20.05.2010 04:36