Основы алгоритмизации и программирования. 5. Появится окно, содержащее программный код стандарт­ного модуля: SubУмножение () ActiveCell.FormulaRlCl = "2" Range("Bl").Select

5. Появится окно, содержащее программный код стандарт­ного модуля: Sub Умножение () ActiveCell.FormulaRlCl = "2" Range("Bl").Select ActiveCell.FormulaRlCl = "3" Range("CI").Select

ActiveCell.FormulaRlCl = "=RC[-2]*RC[-1]" End Sub

Проанализируем полученный программный код макроса Умножение. Первая строка содержит имя объекта Active-Cell (активная ячейка), свойству которого FormulaRlCl (формула) присваивается числовое значение 2.

Во второй строке выделяется ячейка В1 с помощью объ­екта Range("Bl") и его метода Select.

Третья и четвертые строки аналогичны по своему синтак­сису строкам, рассмотренным выше.

В пятой строке в активную ячейку вводится формула. Свойство FormulaRlCl требует ввода адресов ячеек в форма­те R1C1, в этом случае Rows (строки) и Columns (столбцы) отсчитываются от активной ячейки. После знака «-» указы­вается величина смещения от активной ячейки, которая в данном формате имеет адрес R1C3 или в обычном формате за­писи — С1. Следовательно, запись "=RC[-2] *RC[-1] " соот­ветствует записи "=А1*В1".

_пЩ1 Практические задания

4.34. Записать макрос, который преобразует слово «информатика» в слово «форма». Проанализировать программный код полу­ченного стандартного модуля.

4.15.4. Создание проектов

С помощью VBA можно создавать проекты с графическим интерфейсом.

Проект в приложении Word. Преобразуем макрос (стан­дартный программный модуль) Редактирование, который осуществляет редактирование документа в приложении Word, в проект «Редактирование» с графическим интерфей­сом в виде кнопки на форме.

Глава 4

4б§[ Проект «Редактирование»

1. Открыть в приложении Word исходный документ Редакти­рование текста.с)ос. Запустить интегрированную среду раз­работки VBA командой [Сервис-Макрос-Редактор Visual Basic].

2. Добавить в проект форму UserForml командой [1п-sert-UserForm].

3. С помощью панели инструментов поместить на форму кнопку CommandButtonl.

4. С помощью окна Свойства объекта присвоить свойству Na­me формы и кнопки новые значения f rmEdit и cmdEdit. Изменить также надписи, цвет и так далее.

Создадим событийную процедуру и скопируем в нее про­граммный код макроса.

1V Project - Proje<t alHB	[□Jill
□ ~ [r5j	■r
Щ $& Project (Редактирование)	±1
- <bi Microsoft Word Objects
Й] ThisDocument	$4
- **» Forms
13 frmEdit
- - 1 Modules
«1	\>fi,

5. Осуществить двойной щелчок по кнопке cmdEdit. В окне Программный код появится заготовка событийной проце­дуры cmdEdit_Click().

6. В окне Проводник проекта видно, что в состав проек­та «Редактирование» вхо­дят программный модуль документа ThisDocument, программный модуль фор­мы frmEdit и стандарт­ный программный модуль moduleEdit.

Осуществить двойной щелчок на имени стандартного про­граммного модуля.

7. В открывшемся окне Программный код выделить код мо­дуля и скопировать его в заготовку событийной процеду­ры. Событийная процедура примет вид:

Private Sub cmdEdit_Click ()

Selection.MoveRight Unit:=wdCharacter, _

Count:=15, Extend:=wdExtend

Selection.Cut

Selection.MoveRight Unit:=wdCharacter, Count:=7

Selection.Paste