Пишем свою функцию

 

И вот он окончательный вариант:

Dim a As String
dim k As Byte

Sub Макрос1()
a = ActiveCell.Value
For i = 1 To 3
ActiveCell.Value = fio():
ActiveCell.Cells(,2).Activate
Next i
End Sub

Function fio()
1: k = k + 1:
fio = fio + Mid(a, k, 1)
If Mid(a, k, 1) <> " " And k < Len(a) Then GoTo 1
End Function

 

При этом, мы немного изменили работу макроса. Если раньше он записывал результаты в столбец, опускаясь вниз, то сейчас будет это делать, продвигаясь по строке вправо. И хотя макрос получился компактным его можно еще доводить до совершенства, поскольку оно (совершенство) не имеет предела...

продолжение

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

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

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

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

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

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

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

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

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

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

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