Основы офисного программирования и язык VBA


Система документов One - Two - Three - часть 3


Вот его тексты:

Private Sub CommandButton1_Click() BookOne.Sheet1.ChooseBook End Sub

Public Sub ChangeGlobal() 'Изменение значений глобальных переменных системы BookOne.ModuleOne.Three = "My value is Three " BookTwo.ModuleTwo.TwoThree = "My value: Two-Three" End Sub

Public Sub PrintGlobal() Dim Number As Integer Debug.Print ("Работает процедура PrintThree") Number = BookOne.ModuleOne.Plus1(2) Debug.Print ("Это книга " & Number) ChangeGlobal BookTwo.ModuleTwo.PrintGlobal End Sub

Приведем результаты отладочной печати, полученные при нажатии кнопки PrintGlobal в книге BookThree:

Работает процедура PrintThree Это книга 3 Работает процедура PrintTwo Печать глобальных переменных My value: Two-Three Это книга 2 Работает процедура PrintOne Печать глобальных переменных My value is One -My value is Two -My value is Three Допустимы ссылки на ячейки различных рабочих книг! BookOne BookTwo BookThree

В заключение приведем вид окна проектов, где отображены все проекты нашей системы.

Три проекта One - Two - Three

увеличить изображение
Рис. 2.8.  Три проекта One - Two - Three




Начало  Назад  Вперед