ПХЯ В 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). Диалоговое окно закроется и выполнится процедура, создающая на активном рабочем листе шаблон таблицы. Теперь в нее остается ввести новые данные, а расчет суммарных расходов и построение диаграммы будет происходить автоматически.
