Пользовательские функции рабочего листа

Применение функций

End Sub

End With

With Selection

End With

With Selection

Option Explicit

Private Sub CommandButton1_Click()

Range(“C1”).Value=”Свойства и методы объектов”

Range(“C1”).Select ‘ Выделение ячейки С1

MsgBox”Значение активной ячейки” &.Value

.Font.Sise=16

Range(“D2”).Value=7

Range(“D3”).Value=8

Range(“D4”).Value=”=D2*D3”

Calls(5,5)=”Свойства и методы объектов”

После запуска программы можно оценить выполнение команд.

Функции библиотеки MS Excel используются для выполнения вычислений путем:

· вставки в ячейки рабочего листа из программы;

· вызова в программе.

Вставка функции или формулы в ячейки рабочего листа из программы выполняется с помощью свойства Formula объекта Range. Синтаксис вставки показан на примерах:

Worksheets(“Лист1”).Range(“D3”).Formula=”=Max(B2:B6)”

Worksheets(“Лист1”),Range(“F5”).Formula=”=B2^B5”

Вызов функции в программе выполняется с помощью объекта WorksheetFunction. При этом следует указать диапазон ячеек, из которых функция получает значения параметров Рассмотрим пример программы:

Dim Диапазон. As Variant

Dim Макс As Variant

Set Диапазон = Worksheets(“Лист1”).Range(“D3:D7”)

Макс=Application. WorksheetFunction. Max(Диапазон)

MsgBox(Макс)

Если в библиотеке MS Excel нет требуемой функции, ее следуе создать. Для этого необходимо:

В активной рабочей книге запустить редактор Visual Basic. Затем выполнить команду Вставка – Модуль.

В созданный модуль вставить процедуру, используя команду меню Вставка – Процедура.

В открывшемся диалоговом окне Вставка процедуры установить:

переключатель Функция;

ввести имя функции в поле Функция;

установить переключатель Область определения

щелкнуть по кнопке Ok.

В результате выполнения этих действий в окне модуля появится заготовка функции:

Public Function Summa()

………………………..

End Function

В тело функции необходимо добавить операторы, реализующие желаемую функцию. Созданная функция помещается в библиотеку MS Excel. Ее использование для вычислений осуществляется с помощью Мастера функций.

Работа с диаграммами.

Создаваемые диаграммы относятся к семейству Charts. В таблице 4.5.8. приведены некоторые свойства объекта Chart семейства Charts.

Таблица 4.5.8.

Свойства	Описание
ChartArea	Возвращает ссылку на область диаграммы
ChartTitle	Возвращает ссылку на заголовок диаграммы
ChartType	Определяет тип диаграммы
HasTitle	Определяет присутствик или отсутствие заголовка и осей диаграммы

Основные методы объекта Chart:

ChartWizard – служит для построения или изменения диаграммы

Set SourceData – определяет источник данных

Add – создает новую диаграмму

Select – выбирает диаграмму

StringToFront - отображает диаграмму на переднем плане

Диаграммы можно строить, используя встроенные средства MS Excel. Тем не менее, иногда возникает необходимость для построения диаграммы создать программу VBA. Рассмотрим пример создания такой программы. Определим условия построения диаграммы.

Запускаться программа построения диаграммы будет с помощью кнопки.

Исходные данные будут размещаться в первых столбцах рабочего листа: значения независимой переменной – в столбце А, значения зависимой переменной – в столбце В.

Выполним ряд предварительных операций:

· присвоим ячейке А1, в которой хранится надпись столбца, содержащего независимой переменной, имя ArgName;

· присвоим ячейке В2, в которой хранится надпись столбца, содержащего значения зависимой переменной, имя FuncName;

· присвоим имя Tabl диапазону ячеек, содержащих всю исходную таблицу;

· присвоим имя arg диапазону ячеек, содержащих значения аргумента;

· присвоим имя func диапазону ячеек, содержащих значения зависимой переменной.

Разместим на рабочем листе кнопку «Построить диаграмму» и запишем следующую программу для процедуры обработки события Click этой кнопки:

Private Sub commandButton1_Click()

Dim mas As Object

Dim SheetName

Din diap As String

Dim ArgName As String

Dim FuncName As String

SheetName=Application.ActiveWorkbook.ActiveSheet.Name

Set mas = Worksheets(SheetName).Range(“Table”)

ArgName=Worksheets(SheetName).Range(“ArgName”)

FuncName=Worksheets(SheetName).Range(“FuncName”)

diap=”=”& SheetName & ”!arg”

Charts.Add

ActiveChart.ChartTipe=xlLine

ActiveChart,SetSourceData Source:=mas,PlotBy:=xlColumn

ActiveChart.SeriesCollection(1).Delete

ActiveChart.SeriesCollection(1).Xvalues=diap

ActiveChart.Location Where:=xlLocationAsObject,Name:=SheetName

With ActiveChart

.HasTitle=True

.ChartTitle.Characters,Text=”График функции”

.Axes(xlCategory, xlPrimary).HasTitle=True

.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text=ArgName

.Axes(xlValue, xlPrimary).HasTitle=True

.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text=FuncName

End With

With ActiveChart

.HasAxis(xlCategory, xlPrimary).=True

.HasAxis(xlValue, xlPrimary).= True

End With

ActiveChart.Axes(xlCategory, xlPrimary).CategoryType=xlAutomatic

End Sub

Используя данную программу, построим график функции Y=2X²+3 в диапазоне значений Х={-3,3}.

Для построения графика:

· В колонке А, начиная с ячейки А2, запишем последовательность значений аргумента с интервалом 0,5.

· В ячейку В2 запишем формулу Y=2*X^2+3 и скопируем ее в другие ячейки диапазона.

· Щелкнуть по кнопке «Построить диаграмму».

Вопросы для самоконтроля.

Какие средства программирования предоставляются пользователю при работе в MS Office?

1 Из каких компонентов состоит интегрированная среда программирования?

2 Что такое макрорекордер?

3 Что необходимо сделать для создания макроса?

4 Какие типы операторов различают в VBA?

5 Что такое операторы объявления?

6 Что такое операторы присваивания?

7 Что такое операторы управления?

8 Какие типы процедур имеются в VBA?

9 Что такое процедуры – функции?

10 Что такое процедуры – подпрограммы?

11 Единица текста программы, имеющая определенный смысл?

12 Что такое процедура – свойство?

13 Математические функции VBA.

14 Функции обработки строк VBA.

15 Основные объекты приложения Word и их свойства.

16 Создание приложений MS Excel.

17 Основные методы объекта Application.

Дата добавления: 2014-12-10