Visual Basic for Applications. Практика. Нагина Е.К - 12 стр.

      Задача 2.2. Разработать процедуру Colour, которая преобразует
внешний вид ячеек выделенной области рабочего листа в зависимости от
содержимого ячеек этой области. Если число в ячейке > 0, то изменяется
цвет фона ячейки, размер, начертание и цвет шрифта содержимого этой
ячейки. Если число в ячейке < 0, то изменяется цвет фона ячейки, начерта-
ние шрифта содержимого этой ячейки. Если число в ячейке = 0, то изменя-
ется цвет фона ячейки, шрифт становится подчеркнутым.
      Порядок решения задачи следующий:
1. Рабочему листу Лист2 присвоить имя «Цвет».
2. Заполнить произвольный диапазон ячеек рабочего листа «Цвет» поло-
   жительными, отрицательными числами и нулями.
3. Перейти в режим редактора Visual Basic, выполнив команду Сервис /
   Макрос / Редактор Visual Basic.
4. Выполнить команды Insert / Module и Insert / Procedure.
5. Ввести имя процедуры Colour.
6. Набрать программный код:

Sub Colour()
   Dim B As Object
   For Each B In Selection
   If IsNumeric(B.Value) Then
     If B.Value > 0 Then
        B.Interior.Colorindex = 6
        B.Font.Size = 18
        B.Font.Bold = True
        B.Font.Colorindex = 7
     ElseIf B.Value < 0 Then
        B.Font.Italic = True
        B. Interior.Colorindex = 3
     Else
        B.Underline = xlDouble
        B. Interior.Colorindex = 4
     End If
   Else
     MsgBox “В выделенном диапазоне должны быть _
      числа”, vbOKOnly + vbInformation, “Числа”
   End If
   Next A
End Sub

     Для запуска процедуры на рабочем листе «Цвет» создать кнопку с
панели инструментов Формы и написать на ней название «Изменить цвет
выделенного диапазона».

                                   12