Макрос, разделяющий фио по составляющим словам

 

Sub Макрос1()
a = Range("A1").Value 'В переменную а вносим значение ячуйки А1
dlina = Len(a) 'В переменную длина внесем количество символов нашего слова
fio = "" 'а эту переменную приравняем пустой строке, т.е. очистим ее

1: k = k + 1 'это счетчик
f = Mid(a, k, 1) 'эта команда заносит в переменную f букву, стоящую под номером, равным значению счетчика
fio = fio + f 'в переменной fio собираем буквы
If f <>" " Then 'проверяем не пробел ли очередная буква, если нет
If k < dlina Then GoTo 1'то проверим, а не больше ли число в счетчике чем количество символов в нашей строке
'и если меньше то идем на метку 1 где увеличиваем значение счетчика на единицу и все повторяем снова

fami = fio
'заносим значение fio в переменную famш, а cледующие команды вам будут уже понятны, только сейчас уже будем набирать имя, но, поскольку метка 1 у нас уже была изменем ее на метку 2, а все остальное оставим без изменения

fio = ""
2: k = k + 1
f = Mid(a, k, 1)
fio = fio + f
If f <>" " Then
If k < dlina Then GoTo 2

'сохраняем имя и все повторяем еще раз, набирая отчество а затем все это разносим по разным ячейка
otce = fio
Range("B2").Value = fami:
Range("B3").Value = imia:
Range("B4").Value = otce
End Sub

Вот какой большой получился у нас код, а теперь начнем его оптимизировать...

продолжение

СПРАВОЧНИК ДЛЯ ВАС

Как запустить редактор VBA...

Не знаете, как создать форму...

Не знаете, как подключить макросы ...

Вы не знаете как открыть окно свойств...

Инструментальную панель как открыть...

Автоматическая запись макроса...

Создание своей кнопки и ее подключение к макросу на выполнение...

Как провести проверку на работоспособность созданой кнопки...

Как найти макрос только что созданный вами в автоматическом режиме для последующего редактирования и изучения...

 

Рейтинг@Mail.ru
 главная с чего начать готовые программы задачи с решениями карта
Copyright © СОМИТ, А.Козлов, 2005 г