Основы офисного программирования и язык 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




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