Так, программный код:
Dim A As Integer
A = Range("H5").Value, позволит присвоить переменной А значение целого числа, расположенного в ячейке Н5 рабочего листа. Это удобно использовать при передаче исходных данных, которые предварительно помещены в ячейки рабочего листа, в процедуру. Выражение Range("C13").Value = A, даст возможность поместить значение переменной А в ячейку С13, а если еще необходимо выдать текст “A=” в ячейку В13, следует применить программный код Range("В13").Value=“A=”. При необходимости заполнить группу ячеек, например В5-Е5, одинаковыми данными, это удобно реализовать с помощью выражения Range("В5:Е5").Value = A. Это позволит занести в ячейки с В5 по Е5 одинаковые значения переменной А.
11.3. Запуск программы на выполнение
Запуск программы на выполнение можно производить:
Из редактора Visual Basic;
Из Microsoft Excel.
11.3.1. Запуск из редактора Visual Basic
Запуск программы на выполнения из редактора Visual Basic можно осуществлять, как из диалогового окна «Макрос», так и непосредственно с активного окна программного кода.
Чтобы запустить программу из диалогового окна «Макрос» необходимо выполнить следующие действия:
Вызвать, одним из способов, диалоговое окно «Макрос»:
щелкнуть на кнопке
«Run»
(Выполнить) в панели инструментов
«Standard»
или «Debug»
редактора VBA;нажать клавишу «F5»;
выбрать команду меню RunRun Macro;
В появившемся окне «Макрос», вид которого представлен на рис. 4, выбрать необходимый макрос (например, Perimetr) и нажать клавишу «Enter» или кнопку с именем «Run», или двойным щелчком левой кнопкой мыши на имени макроса.
Запуск программы при активном окне программного кода осуществляется следующим образом:
В активном окне программного кода установить курсор в любой строке запускаемой программы;
Запустить программу одним из способов описанных выше (запуск окна «макроса»).
Рис. 4. Диалоговое окно «Макрос»
11.3.2. Запуск из Microsoft Excel
Запуск программы из Microsoft Excel можно осуществить как из, знакомого уже окна «Макрос», так и с использованием управляющей кнопки.
Запуск программы из диалогового окна «Макрос» выполняется таким же самым образом, как и в редакторе Visual Basic. Однако рассмотрим способы вызова диалогового окна «Макрос» средствами Microsoft Excel:
щелкнуть на кнопке
«Run»
(Выполнить) в панели инструментов
«Visual
Basic»;выбрать команду меню СервисМакросМакросы…;
нажать сочетание клавиш «Alt+F8».
Для запуска программы по управляющей кнопке, в первую очередь, необходимо выполнить настройку кнопки и действия по «связыванию» кнопки с конкретной программой, для этого выполняются следующие действия:
нажать на кнопке
,
которая находится на панели инструментов
«Формы»;щелкнуть левой кнопкой мыши на месте, где будет размещаться кнопка;
в появившемся диалоговом окне «Назначить макрос объекту» из списка доступных макросов выбрать необходимый и нажать кнопку «OK».
После выполнений данных действий программу можно запускать нажатием созданной кнопки. По необходимости можно изменить размеры кнопки, название, шрифт и т.п.