Реферат: Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов

Call Obrabotka – вызываем функцию «обработка».

End If

End Sub

В этой конструкции некоторые операторы выполняются только при условии, содержащееся в конструкции логическое выражение имеет значение True (истинно):

If Логическое_выражение Then Оператор

или сложнее

If Логическое_выражение Then
Группа_операторов
End If

В первом случает оператор может быть только один. Во втором сколько угодно (в том числе и один).

Далее…

Sub Cng_List(par As Boolean)

If par Then 'Активное

Sheet1.ListBox1.ForeColor = &H80000007

Sheet1.ListBox1.Enabled = True

Else 'Неактивное

Sheet1.ListBox1.ForeColor = &H80000013

Sheet1.ListBox1.Enabled = False

End If

End Sub

ListBox1 – элемент управления, префикс lst (При именовании элементов управления рекомендуется следовать стандартным соглашениям именования пользовательского интерфейса и элементов управления. Это позволяет упростить чтение и отладку программного кода. В именах элементов управления удобно проставлять префикс, однозначно указывающий на тип (класс) этого объекта.)

Sub Init()

Cng_List (False)

n = 0

For i = 1 To m

For j = 1 To m

A(i, j) = 0

Next j

Next i

Sheet2.Visible = xlSheetHidden

Sheet3.Visible = xlSheetHidden

End Sub