If y  X Then

Check = False: Exit For

End If

Next ' Сравнение с 8 соседями

If Check Then

Cells(i, j). Select

With Selection

.Font.Size = 14 : .Font.Bold = True 'Изменение шрифта

.Interior.ColorIndex = 3 : 'Красный цвет

End With

End If

Next : Next

2.5. Элементы управления

Элементы управления практически одинаковы для всех прило-жений, поэтому они также будут рассматриваться на платформе Excel. Вызвать на экран элементы управления можно, щелкнув мышкой на пиктограмме в меню VBA. На экране появится панель элемен-тов управления (см. рис. 2). Элементы управления позволяют удобно оформить рабочий лист надписями, кнопками и т. д., легко позволяют

управлять готовыми программами. Щелкнув мышкой

на элементе управления панели и перенеся курсор на

рабочий лист, увидим, что курсор преобразуется в кре-

стик, которым можно определить на листе место для

выбранного элемента управления. Щелкнув правой

кнопкой мыши на выбранном поле, получим меню, где

можно выбрать просмотр свойств элемента или заго-

товку кода. Свойства элемента можно получить и не-

посредственно из панели инструментов (пиктограмма

"свойства").

Перечислим элементы панели управления постро-

чно сверху вниз: Конструктор, Свойства, Исходный

текст (заготовка кода), Флажок, (текстовое) Поле, Кно-

Рис. 2 пка, Переключатель, Список, Поле со списком, Вык-

лючатель, Счетчик, Полоса прокрутки, Надпись (в ок-не), Рисунок, Дополнительные элементы (управления). Включенный Конструктор позволяет изменять установленные на лист элементы уп-равления, выключение Конструктора приводит их в рабочее состо-яние.

Перечислим общие свойства элементов управления:

1. Name - имя (текст),

2. Autosize - установка наименьшего размера (True, False),

3. Enabled - доступность (True, False),

4. Font (шрифт),

5. Left, Top, Width, Height - положение на экране и размеры,

6. Locked - защита от редактирования (True, False),

7. Visible - визуализация (True, False),

8. PrintObject - печатание при печати листа (True, False).

Общие события (реакция на щелчок мыши, ввод кода):

1. Click - щелчок мышкой по (объекту),

2. DblClick - двойной щелчок мышкой,

3. KeyPress - нажатие клавиши на клавиатуре, если элемент активи-

зирован (имеет "фокус"),

4. Got Focus - приобретение "фокуса",

5. Lost Focus - потеря "фокуса",

.

Некоторые специфические свойства и методы.

Флажок (CheckBox) представляет возможность выбора.

Свойства: Caption - заголовок, текст рядом с флажком,

Value = True, если флажок установлен, False, если флажок

снят, Null - флажок неопределен (если свойство

TripleState = True),

LinkedCell - связанная сo свойством Value ячейка.

Событие: Click - отклик на изменение состояния флажка (за-

пускает соответствующий код).

Кнопка (CommandButton) - обычно используется для запуска подпро-

грамм.

Свойства: Caption - текст на кнопке,

Picture - графическое изображение на кнопке (иконка),

TakeFocusOnClick - свойство брать "активность на себя"

(True, False). Желательно устанавливать False.

События: Click - ответ на нажатие кнопки (запуск кода).

Список (ListBox) позволяет выделить один или несколько элементов

списка, в зависимости от выделения запускает тот или иной код

(по типу Select Case). Можно добавить полосу прокрутки.

Свойства: List - массив строк списка,

ListCount - количество элементов в списке,

ListFillRange - диапазон листа с элементами списка,

ListIndex - индекс выбранного элемента списка,

Value - текст, выбранный в списке,

LinkedCell - ячейка рабочего листа, где появляется значе-

ние .Value,

Selected - массив булевских значений True, False в соответ-

ствии с выбранным элементом списка, и др.

Выключатель (ToggleButton) по свойствам и событиям мало отлича-

ется от кнопки.

Поле (TextBox) - позволяет вводить текст в заданную область (и ме-

нять его программно).

Свойства: Text - устанавливает и возвращает текст,

Multiline - допускает многострочный текст(True, False),

MaxLenght - наибольшая длина текста (целое число),

LinkedCell - ячейка рабочего листа,содержащая отобража-

емый текст.

Переключатель (OptionButton) - по свойствам и событиям мало отли-

чается от кнопки.

Поле со списком (ComboBox):

Свойства: как у списка (ListBox), и еще

ListRows - количество элементов в раскрывающемся списке.

Надпись (Label) - отображение надписей, нечто среднее между эле-

ментами поле и кнопка и имеет сходные с ними свойства и со-

бытия.

Пример. Создадим простейший арифмометр. Поместим на рабо-чем листе Excel две надписи с текстом "х = " и "у = ", рядом помес-тим два текстовых окна (поля). Ниже поместим еще одну надпись "ре-зультат", справа поместим заготовку списка операций. В ячейки К1 - К5 внесем 5 текстовых элементов: "сложить х с у", "вычесть у из х",

"умножить х на у", "поделить х на у", "возвести х в степень у". Щелк-нув мышкой на пиктограмме "Свойства", дадим списку имя "Arithm" и определим диапазон ListFillRange "K1: K5". Щелкнув по пиктограм-ме "Исходный текст" (программы), получаем в поле кода (редактор

VBA) заготовку программы:

Private Sub Arithm_Click ( )

End Sub

Заполним тело подпрограммы следующим кодом:

DIM x As Single, y As Single, z As Single

Const T As String = "Результат: "

Const S As String = " Равно "

x = Val(TextBox1.Text) : y = Val(TextBox2.Text)

Select Case Arithm.ListIndex

Case 0 : z = x + y

Label3.Caption = T & "x+y" & S & Str$(z)

Case 1 : z = x - y

Label3.Caption = T & "x-y" & S & Str$(z)

Case 2 : z = x *y

Label3.Caption = T & "xy" & S & Str$(z)

Case 3

If Abs(y) < Abs(x) * 1E-30 Then

MsgBox("Деление на ноль!"): END

Else

z = x / y

Label3.Caption = T & "x/y" & S & Str$(z)

End If

Case 4