Основы программирования на VBA. Регеда В.В - 80 стр.

UptoLike

Составители: 

Таблица 10.2
Свойство Кнопка 1 Кнопка 2 Кнопка 3
Name CommandButton1 CommandButton2 Diagram
Caption Очистить
таблицу
Заполнить
таблицу
Построить
диаграмму
5) Выполнить двойной щелчок на клавише CommandButton1, в
результате откроется окно редактора кода, в котором будет помещена заго-
товка для процедуры обработки события Click объекта
CommandButton1. Внутри процедуры необходимо дописать следующий
код:
Private Sub CommandButton1_Click()
Range("A3:B24).ClearContents
ActiveSheet.ChartObjects.Delete
End Sub
Записанная процедура очищает ячейки таблицы в диапазоне ячеек
A3:B24 и удаляет диаграмму ChartObjects из рабочего листа.
6) Выполнить двойной щелчок на клавише CommandButton2, в
результате откроется окно редактора кода, в котором будет помещена заго-
товка для процедуры обработки события Click объекта
CommandButton2. Внутри процедуры необходимо дописать код, с
помощью которого происходит заполнение соответствующих ячеек
таблицы в диапазоне ячеек A3:B24.
Private Sub CommandButton2_Click()
X = Range("E2").Value
k = Range("E1").Value
For i = 3 To 24
Cells(i, 1).Value = X
Cells(i, 2).Value = X^k
X = X+Range("E3").Value
Next i
End Sub
7) Выполнить двойной щелчок на клавише Diagram и дописать
следующий код, в результате откроется окно редактора кода, в котором
будет помещена заготовка для процедуры обработки события Click объ-
                                                           Таблица 10.2

  Свойство          Кнопка 1             Кнопка 2           Кнопка 3
Name           CommandButton1 CommandButton2 Diagram
Caption        Очистить       Заполнить      Построить
               таблицу        таблицу        диаграмму
      5)    Выполнить двойной щелчок на клавише CommandButton1, в
результате откроется окно редактора кода, в котором будет помещена заго-
товка    для    процедуры     обработки     события    Click    объекта
CommandButton1. Внутри процедуры необходимо дописать следующий
код:
      Private Sub CommandButton1_Click()
            Range("A3:B24).ClearContents
            ActiveSheet.ChartObjects.Delete
      End Sub
Записанная процедура очищает ячейки таблицы в диапазоне ячеек
A3:B24 и удаляет диаграмму ChartObjects из рабочего листа.
      6)    Выполнить двойной щелчок на клавише CommandButton2, в
результате откроется окно редактора кода, в котором будет помещена заго-
товка    для    процедуры     обработки     события    Click    объекта
CommandButton2. Внутри процедуры необходимо дописать код, с
помощью которого происходит заполнение соответствующих ячеек
таблицы в диапазоне ячеек A3:B24.
     Private Sub CommandButton2_Click()
              X = Range("E2").Value
              k = Range("E1").Value
         For i = 3 To 24
              Cells(i, 1).Value = X
              Cells(i, 2).Value = X^k
              X = X+Range("E3").Value
         Next i
     End Sub
      7)  Выполнить двойной щелчок на клавише Diagram и дописать
следующий код, в результате откроется окно редактора кода, в котором
будет помещена заготовка для процедуры обработки события Click объ-