Самоучитель VBA


ПХЯ В 4 Главное окно редактора VBA



пХЯ. В.4. Главное окно редактора VBA




Sub Расходы()

'

' Расходы Макрос

' Расчет месячных расходов '

'

Range("Bl").Select

ActiveCell.FormulaRlCl = "Расходы"

Range("A2").Select

ActiveCell.FormulaRlCl = "Транспорт"

Range("A3").Select

ActiveCell.FormulaRlCl = "Коммунальные"

Range("A4").Select

ActiveCell.FormulaRlCl = "Еда"

Range("A5").Select

ActiveCell.FormulaRlCl = "Развлечения"

Range("A6").Select

ActiveCell.FormulaRlCl = "Одежда"

Range("A7").Select

ActiveCell.FormulaRlCl = "Компьютер"

Range("A8").Select

ActiveCell.FormulaRlCl = "Машина"

Range("A9").Select

ActiveCell.FormulaRlCl = "Прочие"

Range("A10").Select

ActiveCell.FormulaRlCl = "Итого"

Range("BIO").Select

ActiveCell.FormulaRlCl = "=SUM(R[-8]C:R[-1]C)"

Range("A10:BIO").Select

Selection.Interior.Colorlndex = 36

Range("B1").Select

Selection.Interior.Colorlndex = 36

Range("A2:A9").Select

Selection.Interior.Colorlndex = 34

Columns("A:A").ColumnWidth = 13.86

Range("A2:B9").Select

Charts.Add

ActiveChart.ChartType = xlColumnClustered

ActiveChart.SetSourceData

Source:=Sheets("Лист1").Range("A2:B9"), PlotBy:=xlColumns

ActiveChart.Location Where:=xlLocationAsObject, Nаmе:="Лист1"

With ActiveChart

.HasTitle = False

.Axes(xlCategory, xlPrimary)

.HasTitle = False

.Axes(xlValue, xlPrimary)

.HasTitle = False

End With

End Sub

На первый взгляд полученный макрос выглядит довольно устрашающе, но прочитав данную книгу вы поймете, что его очень легко создавать и читать. Еще более замечательным является то, что в настоящий момент эта программа сама по себе совершенно не нужна и с ней можно работать даже не понимая записанные в ней коды. Пока о программе надо знать только ее имя -Расходы и то, что рабочий лист, на котором при помощи этого макроса будет строиться шаблон таблицы с диаграммой, должен иметь имя лист1. Ограничение на выбор имени рабочего листа не столь обременительно. Изучив эту книгу, вы легко сможете создавать универсальные приложения без каких-либо ограничений на среду. Для того чтобы воспользоваться макросом, надо перед его выполнением переименовать рабочий лист, присвоив ему имя лист1. После построения таблицы можно изменить имя рабочего листа на новое, например, на имя месяца, для которого строится текущий отчет по расходам.

Итак, активизируем новый рабочей лист, временно присвоим ему имя лист1. Выберем команду Сервис, Макрос, Макросы (Tools, Macro, Macros), которая вызовет диалоговое окно Макрос (Macro). В этом окне в списке выделим исходный макрос и нажмем кнопку Выполнить (Run). Диалоговое окно закроется и выполнится процедура, создающая на активном рабочем листе шаблон таблицы. Теперь в нее остается ввести новые данные, а расчет суммарных расходов и построение диаграммы будет происходить автоматически.









Начало  Назад  Вперед