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


Пример 2.4


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

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

Public Sub PrintGlobal() Dim Number As Integer Debug.Print ("Работает процедура PrintTwo") Debug.Print ("Печать глобальных переменных") Debug.Print TwoThree 'Вызов процедур и функций проекта BookOne Number = BookOne.ModuleOne.PLus1(1) Debug.Print ("Это книга " & Number) ChangeGlobal BookOne.ModuleOne.PrintGlobal End Sub

Пример 2.4.

Закрыть окно






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



Книжный магазин