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

                        2. Создание процедур

      Задача 2.1. Разработать процедуру Substitute, которая заменяет на
рабочем листе с именем «Замена» все положительные числа диапазона
ячеек B2 : E5 знаком «*», все отрицательные числа – знаком «%», а нули
заменяет знаком «!».
      Порядок решения задачи следующий:
1. Рабочему листу Лист1 присвоить имя «Замена».
2. Заполнить диапазон ячеек B2 : E5 рабочего листа «Замена» положи-
   тельными, отрицательными числами и нулями.
3. Перейти в режим редактора Visual Basic, выполнив команду Сервис /
   Макрос / Редактор Visual Basic.
4. Выполнить команды Insert / Module и Insert / Procedure.
5. Ввести имя процедуры Substitute.
6. Набрать программный код:
Sub Substitute()
   Dim A As Object
   For Each A In WorkSheets(“Замена”).Range(B2:E5)
   If IsNumeric(A.Value) Then
     If A.Value > 0 Then
        A.Value = “*”
     ElseIf A.Value < 0 Then
        A.Value = “%”
     Else
        A.Value = “!”
     End If
   Else
     MsgBox “В диапазоне B2 : E5 должны быть числа”
   End If
   Next A
End Sub

7. Вернуться на рабочий лист «Замена».
8. Запуск процедуры оформить кнопкой, расположенной на рабочем лис-
   те, там же, где расположен список. Для этого вывести на экран панель
   инструментов Формы. Четвертый элемент управления этой панели
   предназначен для создания кнопок, которые запускают процедуры -
   макросы. Для создания кнопки щелкните на кнопке панели инструмен-
   тов и нарисуйте прямоугольную кнопку на листе «Замена». Вам будет
   предложено назначить макрос для данной кнопки. Это нужно будет
   сделать немедленно. Затем ввести название для этой кнопки «Заме-
   нить». Для запуска программы нужно просто щелкнуть на этой кнопке.

                                  11