www.ПЕРВЫЕ ШАГИ.ru :: Шаг 7 - Запись макросов и что это дает

VBA

Шаг 7 - Запись макросов и что это дает

Попробуем записать макрос. Для этого выбираем пункт меню Сервис -> Макрос -> Начать запись, в ответ на это Вы получите следующее диалоговое окно.

7_1.gif (3070 b)

Здесь вы можете указать название макроса, быструю клавишу, где хранить макрос. Оставьте все как есть и нажмите кноку OK. В результате у вас появится значек, который говорит о том, что идет запись. Вообще при записи макросов рекомендуется пользоваться клавишами, но я, например, и мышкой пользуюсь и записывается. Итак, появится значек.

7_2.gif (934 b)

А теперь выполните следующие действия. Создайте новую книгу, введите два числа в колонку, примените автосуммирование , сохраните книгу. После чего остановите запись макроса нажав на эту квадратную синюю кнопку. Зайдите в меню Сервис -> Макрос -> Максросы, у вас в диалоговом окне появится название вашего макроса. Выделите его мышкой и нажмите Изменить. Должен появиться такой код:

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 31.10.99 (Admin)
'
'
	Application.WindowState = xlMinimized
	Application.WindowState = xlNormal
	Workbooks.Add
	ActiveCell.FormulaR1C1 = "12"
	Range("A2").Select
	ActiveCell.FormulaR1C1 = "23"
	Range("A3").Select
	ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
	Range("A4").Select
	ChDir "C:\WINDOWS\Рабочий стол"
	ActiveWorkbook.SaveAs FileName:="C:\WINDOWS\Рабочий стол\Книга2.xls", _
		FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
		ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Да Вы не ошиблись это код VBA. Этот код ваших операций. Конечно здесь нет циклов и массивов. Но здесь есть решение задачи. Если вы знаете как сделать в ручную, но не знаете как запрограммировать, запишите макрос, добавьте функциональность за счет выбора и циклов, продумайте адресацию. Но общая стратегия у Вас есть. Кроме того, если вы хотите запрограммировать, например, открытие файла DBF в Excel, то чего гадать с параметрами. Запишите макрос и посмотрите.


Предыдущий Шаг | Следующий Шаг
Автор Каев Артем.