VBNet - Форум - VBA & Excel задача

Вопрос: VBA & Excel задача Добавлено: 15.04.08 16:21

Автор вопроса: Piotr

Всем привет. Помогите пожалуйста решить такую задачку. В одном столбце А1 по A10 вписаны 10 имён и фамилий. Надо сделать так, чтобы код выводил имена в отдельный столбец B1-B10, а фамилии в столбец C1-C10 копируя их из столбца A1-A10.

Спасибо за любые ответы.
Ответить

Ответы Всего ответов: 10

Номер ответа: 1 Автор ответа: VoVaN ICQ: 4921085 Вопросов: 27 Ответов: 38	Профиль \| \| #1	Добавлено: 15.04.08 22:05
	Разделяй строку "Имя Фамилия" по пробелу в середине. Вот только это не поможет, если фамилия и имя могут меняться местами. Ответить

Номер ответа: 2 Автор ответа: J. Smith ICQ: ненавижу Вопросов: 40 Ответов: 477	Web-сайт: Не хочу ломать голову, если её уже сломал кто-то другой. Профиль \| \| #2	Добавлено: 16.04.08 11:03
	Макросы ты видимо писать неумееш, а жаль. И ещё одна проблема с двойными фамилиями/именами типа: Петров Немецкий или Абу Хасан придётся писать их без пробела через тире например. Скин документ, напишу тебе макрос Ответить

Номер ответа: 3 Автор ответа: J. Smith ICQ: ненавижу Вопросов: 40 Ответов: 477	Web-сайт: Не хочу ломать голову, если её уже сломал кто-то другой. Профиль \| \| #3	Добавлено: 16.04.08 11:03
	Макросы ты видимо писать неумееш, а жаль. И ещё одна проблема с двойными фамилиями/именами типа: Петров Немецкий или Абу Хасан придётся писать их без пробела через тире например. Скин документ, напишу тебе макрос Ответить

Номер ответа: 4 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #4	Добавлено: 16.04.08 11:07
	Private Sub Worksheet_Activate() For I = 1 To 10 a = Cells(I, 1) Cells(I, 2) = Left(a, InStr(1, a, " " - 1) Cells(I, 3) = Right(a, Len - InStr(1, a, " ") Next End Sub Ответить

Номер ответа: 5 Автор ответа: urain Вопросов: 3 Ответов: 34	Профиль \| \| #5	Добавлено: 16.04.08 11:09
	Adam Smith Будь другом и мне скинь? Такая проблема однажды была. До макросов не добрался но при помощи VB делал. С двойными не проблема, нужно определить порядок записи таких Фамилий, проверять соблюдено ли условие? И если нет (не двойная фамилия) проверять достигут ли конец строки? Ответить

Номер ответа: 6 Автор ответа: J. Smith ICQ: ненавижу Вопросов: 40 Ответов: 477	Web-сайт: Не хочу ломать голову, если её уже сломал кто-то другой. Профиль \| \| #6	Добавлено: 16.04.08 13:22
	Скин документ, напишу тебе макрос тут опечатка, имел ввиду СкинЬ документ. Юрэйн я непонял что скинуть то? А Executionerа пример ляпота, помню у меня подлинее получалось и цикл длился до последней использованой строки UsedRange или чтото вроде того, память дырявая нынче стала. Ответить

Номер ответа: 7 Автор ответа: Piotr Вопросов: 4 Ответов: 3	Профиль \| \| #7	Добавлено: 16.04.08 13:58
	Спасибо, Executioner. Ваш код работает. А также спасибо и всем остальным за ответы Ответить

Номер ответа: 8 Автор ответа: urain Вопросов: 3 Ответов: 34	Профиль \| \| #8	Добавлено: 16.04.08 19:20
	Вот этот прмерчик я бы хотел себе! Ответить

Номер ответа: 9 Автор ответа: J. Smith ICQ: ненавижу Вопросов: 40 Ответов: 477	Web-сайт: Не хочу ломать голову, если её уже сломал кто-то другой. Профиль \| \| #9	Добавлено: 17.04.08 12:04
	в верхнем меню Сервис - Макрос - Редактор Visual Basic копируй отсюда вставляй в модуль1 и мучайся наздоровье Ответить

Номер ответа: 10 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #10	Добавлено: 17.04.08 14:35
	Могу залить готовую книгу, если оч надо. Ответить

Страница: 1 |