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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 22.06.2010, 08:33   #1
Нюни
 
Регистрация: 15.06.2010
Сообщений: 8
По умолчанию Поменять местами слова в ячейке

Привет всем!
Задача:
Дана таблица с данными. В первом столбце записывается ФИО. Сначала записывается имя, потом идет фамилия.
Надо:
Написать программку или каким-нибудь другим способом поменять имя и фамилию местами. Сначала должна идти Фамилия, потом Имя.
Вложения
Тип файла: rar cel.rar (3.9 Кб, 72 просмотров)
Нюни вне форума Ответить с цитированием
Старый 22.06.2010, 08:52   #2
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Посмотрите вложение. Запустите макрос "Main".
Вложения
Тип файла: rar cel_2.rar (8.1 Кб, 317 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 22.06.2010, 09:25   #3
Serge 007
Участник клуба
 
Аватар для Serge 007
 
Регистрация: 15.12.2009
Сообщений: 1,448
По умолчанию

Цитата:
Сообщение от Нюни Посмотреть сообщение
Привет всем!
Задача:
Дана таблица с данными. В первом столбце записывается ФИО. Сначала записывается имя, потом идет фамилия.
Надо:
Написать программку или каким-нибудь другим способом поменять имя и фамилию местами. Сначала должна идти Фамилия, потом Имя.
Код:
=ПРАВСИМВ(A2;ДЛСТР(A2)-НАЙТИ(" ";A2))&" "&ЛЕВСИМВ(A2;НАЙТИ(" ";A2))
Вложения
Тип файла: rar Нюни.rar (4.1 Кб, 98 просмотров)
Бесплатная помощь: www.excelworld.ru
Платная помощь: serge_007.planetaexcel@mail.ru
https://yoomoney.ru: 41001419691823
Serge 007 вне форума Ответить с цитированием
Старый 22.06.2010, 09:54   #4
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

2Serge 007
1. Ни одна формула не способна изменить данные в этой же ячейке. Т.е. Ваш формульный метод подразумевает доп. столбец.
2. Все-таки, нужно предусмотреть то, что в ячейке возможны "лишние" пробелы (до, после, повторные).
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 22.06.2010, 10:01   #5
vikttur
Участник клуба
 
Регистрация: 16.05.2010
Сообщений: 1,249
По умолчанию

Цитата:
Сообщение от SAS888 Посмотреть сообщение
2Serge 007
Ни одна формула не способна изменить данные в этой же ячейке
Не по теме, но по замечанию.
В А1 =A1+1, включаем итерации.
Шутка, но с долей правды
vikttur вне форума Ответить с цитированием
Старый 22.06.2010, 10:01   #6
Нюни
 
Регистрация: 15.06.2010
Сообщений: 8
По умолчанию

Цитата:
Сообщение от SAS888 Посмотреть сообщение
Посмотрите вложение. Запустите макрос "Main".
Спасибо Вам большое, работает и как раз то что нужно!
Нюни вне форума Ответить с цитированием
Старый 22.06.2010, 10:18   #7
Serge 007
Участник клуба
 
Аватар для Serge 007
 
Регистрация: 15.12.2009
Сообщений: 1,448
По умолчанию

Цитата:
Сообщение от SAS888 Посмотреть сообщение
2Serge 007
1. Ни одна формула не способна изменить данные в этой же ячейке.
2. Все-таки, нужно предусмотреть то, что в ячейке возможны "лишние" пробелы (до, после, повторные).
1. Я бы не стал этого утверждать :-)
2. Легко решаемо с помошью СЖПРОБЕЛЫ.
Бесплатная помощь: www.excelworld.ru
Платная помощь: serge_007.planetaexcel@mail.ru
https://yoomoney.ru: 41001419691823
Serge 007 вне форума Ответить с цитированием
Старый 22.06.2010, 10:24   #8
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Цитата:
1. Я бы не стал этого утверждать :-)
Приведите пример.
Цитата:
2. Легко решаемо с помошью СЖПРОБЕЛЫ.
И я об этом. Добавить СЖПРОБЕЛЫ, добавить ЕОШ, на случай пустой ячейки, либо в 1 слово и т.п. Т.е. формула "разрастется" до неприличных размеров.

P.S. Не обижайтесь. Это я так. Не для спора и дискуссии. Просто, вопрошающий проигнорировал настоятельные рекомендации правил раздела и не оговорил, какими средствами решать задачу. Но, т.к. мы имеем уже заполненную таблицу и требуется изменить данные, то я взял на себя смелость утверждать, что требуется именно макрос.
Чем шире угол зрения, тем он тупее.

Последний раз редактировалось SAS888; 22.06.2010 в 10:29.
SAS888 вне форума Ответить с цитированием
Старый 22.06.2010, 10:52   #9
Serge 007
Участник клуба
 
Аватар для Serge 007
 
Регистрация: 15.12.2009
Сообщений: 1,448
По умолчанию

Цитата:
Сообщение от SAS888 Посмотреть сообщение
Приведите пример.
Его уже привёл vikttur

Цитата:
И я об этом. Добавить СЖПРОБЕЛЫ, добавить ЕОШ, на случай пустой ячейки, либо в 1 слово и т.п. Т.е. формула "разрастется" до неприличных размеров.

P.S. Не обижайтесь. Это я так. Не для спора и дискуссии. Просто, вопрошающий проигнорировал настоятельные рекомендации правил раздела и не оговорил, какими средствами решать задачу. Но, т.к. мы имеем уже заполненную таблицу и требуется изменить данные, то я взял на себя смелость утверждать, что требуется именно макрос
Да, к сожалению это так

P.S. И в мыслях не было! SAS888, я очень уважаю Вас и вижу Ваш профессионализм. И по-поводу макроса Вы оказались правы.
А автор ввёл в заблуждение фразой:
Цитата:
... Написать программку или каким-нибудь другим способом поменять имя и фамилию местами...
С уважением,
Сергей.
Бесплатная помощь: www.excelworld.ru
Платная помощь: serge_007.planetaexcel@mail.ru
https://yoomoney.ru: 41001419691823
Serge 007 вне форума Ответить с цитированием
Старый 12.12.2010, 23:25   #10
Velada
Новичок
Джуниор
 
Регистрация: 12.12.2010
Сообщений: 1
По умолчанию

SAS888
Большое спасибо за макрос, мне тоже ооооочень помог.
Velada вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
поменять местами слова в предложении (C++) Slicker Общие вопросы C/C++ 15 10.03.2011 10:17
Поменять местами слова в разных названиях компаний Cassini Microsoft Office Excel 6 26.05.2010 14:31
поменять местами слова в предложении (C++) Slicker Помощь студентам 3 30.05.2009 17:57
поменять местами научите Паскаль, Turbo Pascal, PascalABC.NET 13 08.01.2009 13:43
как поменять местами слова в файле? r-tem Общие вопросы C/C++ 6 01.12.2008 22:17