Макрос для построения графика

Создадим макрос для вычисления расходов на оплату квартиры

Пример.

Sub График()

'

' График Макрос

' Построение точечного графика

'

' Сочетание клавиш: Ctrl+t

'

Columns("A:B").Select

Charts.Add

ActiveChart.ChartType = xlXYScatterSmoothNoMarkers

ActiveChart.SetSourceData Source:=Sheets("Лист1").Columns("A:B")

ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"

ActiveChart.HasLegend = True

ActiveChart.Legend.Select

Selection.Position = xlRight

End Sub

Sub График()

'

' График Макрос

' Построение точечного графика

'

' Сочетание клавиш: Ctrl+t

'

n = Application.CountA(Worksheets(1).Range("A:A"))

' Columns("A:B").Select

Range("A1:B" & CStr(n)).Select

Charts.Add

ActiveChart.ChartType = xlXYScatterSmoothNoMarkers

ActiveChart.SetSourceData Source:=Sheets("Лист1").Range("A1:B" & CStr(n))

ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"

ActiveChart.HasLegend = True

ActiveChart.Legend.Select

Selection.Position = xlRight

End Sub

7.9 Средства для анализа данных ( Использование надстроек: подбор параметра; поиск решения)

В Excel имеются два мощных средства для анализа данных: Подбор параметра (Goal Seek) — служит для определения входной величины, обеспечивающей определенное значение функции, и Поиск решения (Solver) — позволяет определить величину или группу величин, обеспечивающих оптимальное в некотором смысле значение функции при заданных ограничениях.

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

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

Чтобы найти оптимальное значение для какой-либо ячейки путем подбора значений одной или более ячеек или наложить определенные ограничения на одно или несколько значений, вовлеченных в вычисления, то необходимо воспользоваться программой Поиск решения Microsoft Excel.

Мы остановимся на следующих темах:

· Использование средства Подбор параметра (Goal Seek)

· Использование диаграмм для подбора параметров

· Использование надстройки Поиск решения (Solver) для подбора оптимального решения при заданных ограничениях

Дата добавления: 2014-01-05