Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Замена фамилии в ячейках случайными из списка - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Замена фамилии в ячейках случайными из списка (Макросы/Sub)
Замена фамилии в ячейках случайными из списка
artemgurin19982703 Дата: Воскресенье, 21.11.2021, 20:17 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

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

Пример
Исходные данные:
Абаев, купите пылесос
Измененные:
Абдеев (случайная фамилия из списка фамилий заканчивающихся на "ев" "ева"), купите пылесос
В ту же ячейку, где и была

Исходные данные находятся на всём листе (прикрепляю файл)
Список фамилий (справочник) находится в отдельной книге на всём листе (ActiveSheet.UsedRange) (прикрепляю файл)
1. В строке может быть несколько фамилий, несколько имён и соответственно отчеств
2. Перед ФИО нужно поставить обязательный пробел, исключая случаи, когда ФИО стоит в начале строки
3. В конце ФИО могут быть окончания по падежам. Поэтому нужно, чтобы эти ФИО тоже заменялось. Выдержку из справочника прикрепляю. Предположу, что нужно не учитывать последнюю букву и делать до конца слова, или в самом справочнике убрать 1-2 буквы в зависимости от столбца, чтобы не было неопределенности. Таким образом отчества (так как это производные от имени) тоже будут затрагиваться и меняться
4. После каждой буквы измененного ФИО сделать #. То есть должно быть: И#в#а#н#о#в# И#в#а#н# И#в#а#н#о#в#и#ч#. Эту часть кода в виде комментария, так как потом не понадобится
К сообщению приложен файл: -2-1-.xlsx(9.4 Kb) · 6121868.xlsx(9.8 Kb)


Сообщение отредактировал artemgurin19982703 - Воскресенье, 21.11.2021, 21:39
 
Ответить
СообщениеДобрый день, нужна помощь в задачке
Задача состоит в следующем: заменить фамилии в исходных ячейках случайными из списка (они должны перемешаться, но должны быть из того же столбца Азаренко-Акименко, Абдрашева-Абдуллаев ​и т.д).

Пример
Исходные данные:
Абаев, купите пылесос
Измененные:
Абдеев (случайная фамилия из списка фамилий заканчивающихся на "ев" "ева"), купите пылесос
В ту же ячейку, где и была

Исходные данные находятся на всём листе (прикрепляю файл)
Список фамилий (справочник) находится в отдельной книге на всём листе (ActiveSheet.UsedRange) (прикрепляю файл)
1. В строке может быть несколько фамилий, несколько имён и соответственно отчеств
2. Перед ФИО нужно поставить обязательный пробел, исключая случаи, когда ФИО стоит в начале строки
3. В конце ФИО могут быть окончания по падежам. Поэтому нужно, чтобы эти ФИО тоже заменялось. Выдержку из справочника прикрепляю. Предположу, что нужно не учитывать последнюю букву и делать до конца слова, или в самом справочнике убрать 1-2 буквы в зависимости от столбца, чтобы не было неопределенности. Таким образом отчества (так как это производные от имени) тоже будут затрагиваться и меняться
4. После каждой буквы измененного ФИО сделать #. То есть должно быть: И#в#а#н#о#в# И#в#а#н# И#в#а#н#о#в#и#ч#. Эту часть кода в виде комментария, так как потом не понадобится

Автор - artemgurin19982703
Дата добавления - 21.11.2021 в 20:17
Gustav Дата: Воскресенье, 21.11.2021, 21:33 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1952
Репутация: 784 ±
Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1
Файл не прикрепился.
[offtop]
Вирус для Пенсионного фонда пишете? :D


Мой tip box - яд 41001663842605
 
Ответить
СообщениеФайл не прикрепился.
[offtop]
Вирус для Пенсионного фонда пишете? :D

Автор - Gustav
Дата добавления - 21.11.2021 в 21:33
artemgurin19982703 Дата: Воскресенье, 21.11.2021, 21:40 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Файл не прикрепился.

Спасибо, не заметил
 
Ответить
Сообщение
Файл не прикрепился.

Спасибо, не заметил

Автор - artemgurin19982703
Дата добавления - 21.11.2021 в 21:40
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Замена фамилии в ячейках случайными из списка (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!