Создание процедур в Visual Basic

Создание функций пользователя с помощью VBA

Назначение макроса кнопке панели инструментов

Для использования созданного макроса необходимо ввести команду Сервис, Макросы выбрать в списке нужный макрос и дать команду Выполнить. Можно использовать для запуска макроса комбинацию клавиш, а наиболее удобно использовать макрос, если он назначен кнопке панели инструментов или кнопке, установленной на рабочий лист.

Для присвоения макроса кнопке меню выполните следующие операции:

введите команду Сервис, Настройка, выберите закладку Команды окна диалога Настройка и в списке “Категории” выделите Макросы. Выберите в списке “Команды” “Настраиваемую кнопку” и перетащите ее на панель инструментов. Вызовите контекстное меню кнопки и выберите в нем команду Назначить макрос. Выберите в списке макросов нужный макрос.

Для удаления кнопки введите команду Сервис, Настройка, откройте закладку Команды, выберите категорию Макросы и перетащить кнопку с панели инструментов в окно диалога.

В приложение Excel интегрирована неполная версия языка программирования Visual Basic под названием Visual Basic, Application Edition или Visual Basic for Applications, которая обладает частью стандартных функциональных возможностей. Кроме того, эта специальная версия поддерживает объекты, которые позволяют обращаться к содержимому ячеек и управлять приложением Excel.

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

Sub Имя_процедуры(аргументы)

Тело процедуры

End Sub

Function Имя_процедуры(аргументы)

Тело процедуры

End Function

Для создания функции пользователя необходимо ввести команду Сервис, Макрос, Редактор Visual Basic. В редакторе VB выбрать команду Вставка, Модуль, а затем Вставка, Процедура. Написать программный код и сохранить программу командой Файл (File), Сохранить и выйти из Excel (Close and Return to Microsoft Excel) (см. также раздел 5.9).

Для использования функций пользователя необходимо выделить ячейку и ввести функцию, указав аргументы. При вводе функций работы с массивами необходимо выделить область ячеек, куда будет помещаться массив, ввести функцию в первую ячейку массива (для этого достаточно нажать клавишу "=") и нажать комбинацию клавиш Ctrl+Shift+Enter. Для ввода функций пользователя можно воспользоваться Мастером функций, категория " Определенные пользователем”.

Пример 6.10. Создать функцию пользователя для табулирования функции одной переменной y=x²

Листинг 6.21. Табулирование функции одной переменной
	A	B	C	D	E	F
	Исходные данные		Текст программы
	N=			Public Function Tab1perem(n As Byte, _
	X=			x As Single, dx As Single) As Variant
	Dx=	0,5		Dim i As Byte
5	Аргумент	Функция		Dim a(50,1) As Single
				For i = 0 To n - 1
	1,5	2,25		a(i, 0) = x: a(i, 1) = x * x
				x = x + dx
	2,5	6,25		Next i
				Tab1perem = a
	3,5	12,25		End Function

Порядок выполнения:

- введите команду Сервис, Макрос, Редактор Visual Basic;

- в редакторе VB выберите команду Вставка, Модуль, а затем Вставка, Процедура;

- установите в окне диалога переключатели Function и Public, запишите в строке ввода Name имя функции: Tablperem;

- напишите текст программы;

- сохранить программу командой File, Save и вернуться в программу Excel командой Close and Return to Microsoft Excel (Файл, Сохранитьи выйти из Excel).

Из данного примера видно также, что в функциях можно использовать массивы, но массивы объявляются только как статические, поэтому размерность массива приходится объявлять с “запасом”.

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