Циклы с условием и Работа со строками

[TI_ProJecT]

Здравствуйте.
Помогите выполнить несколько несложных (для знающих людей) заданий.
1) В несколько смежных клеток любого столбца на Листе1 введем фамилии, имя и отчество сотрудников. Выделим эти клетки. Программа должна из выделенного блока клеток выделить только фамилии и сформировать список фамилий на Листе2 в столбце А, начиная с клетки А2.
2) Выдать сообщение в диалоговом окне Msgbox является ли число, записанное в клетке А1, почтовым кодом города Новосибирска (код Новосибирска – шестизначное число, начинающееся на 630). Проверить оба варианта.

3) Выдать сообщение в диалоговом окне Msgbox заканчивается ли фамилия в клетке А2 на букву а (рус.). Проверить оба варианта.

4) Выдать сообщение в диалоговом окне: в какой из клеток А3 или В3 записано более длинное слово (или их длины равны). Проверить все варианты.

5) Если второй символ слова в клетке А4 - согласная, то в клетку В4 записать строку, содержащую пять символов звездочка, иначе - строку, содержащую три символа &.
6) В клетке А7 получить строку "Фамилия И.О." (например,"Соколов С.В."), используя данные клетки Е5.

7) Содержимое ячейки Е5 разнести в три ячейки А8, В8, С8: отдельно фамилию имя, отчество.

8) Создать функцию, определяющую, является ли символ цифрой.

9) В клетке А10 содержится возраст человека в годах (целое число). Создать процедуру, которая помещает в ячейку В10 текстовую строку: "год", или "года" или "лет" соответственно.

10) Составить процедуру, которая позволяет зашифровать слово из клетки А11. Зашифрованное слово помещается в клетку В11. Принцип шифрования следующий: имеется "новый" алфавит, представляющий собой некоторую строку - перестановку букв алфавита. Если некоторая буква является k-той буквой в обычном алфавите, то вместо нее должна быть взята буква из k-той позиции "нового" алфавита.

11) Составить процедуру, которая первую букву фамилии, имени и отчества принудительно делает прописной.

12) Создать процедуру, которая в текстовой строке, введенной в ячейку А13, выдаст сообщение при обнаружении русской буквы.

Заранее большое спасибо.

[TI_ProJecT]

Задание 1)
Написал, но не знаю, как сделать, чтобы брались не определенные ячейки, а выделенные.
Sub sampr3()
k = 1
Do While Mid(Cells(2, 11), k, 1) <> " "
k = k + 1
Loop
Sheets("Лист2").Cells(1, 1) = Mid(Sheets("Лист1").Cells(2, 11), 1, k - 1)
End Sub

[IgorGO]

действительно задачки простые до крайности. но время чтобы это все написать убить-то надо...
готовы поделиться деньгами - пишите igorgoсобакаukr.net
или ждите пока кто-то решит, такое тут случалось и неоднократно

[nerv]

Сообщение от TI_ProJecT

Заранее большое спасибо.

Игорь правильно сказал, "спасибо" тут мало будет. Тоже готов помочь, но не бесплатно (чисто символически). Мыло в подписи : )

[TI_ProJecT]

Для меня сейчас достаточно понять, как решить первую.
За деньги я и сам все сделаю.