Оптимизируем код, знакомимся с назначением подпрограмм и циклов

 

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

Sub Макрос1()
a = Range("А1")
dlina = Len(a)
For i = 1 To 3 'это цикл который будет повторятся 3 раза
scet 'вызываю подпрограмму
ActiveCell.Value = fio 'в ячейку вносим фамилию
ActiveCell.Cells(2).Activate 'переход к следующей ячейке
Next i
End Sub

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

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

продолжение

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

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

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

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

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

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

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

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

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

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

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