End Sub. Dim w As Single, z As Single

Dim w As Single, z As Single

Dim x As Single, a As Single, m As Single

End Sub

Dim w As Single, z As Single

Dim x As Single, a As Single, m As Single

x = Val(InputBox("Введите x"))

a = Val(InputBox("Введите a"))

m = Val(InputBox("Введите m"))

w = 0.1 * x * a * (1 - m ^ 2)

z = Sin(w / (2 + w))

MsgBox (w): MsgBox (z) ‘ два оператора на одной строчке

В программе могут быть комментарии. Перед текстом комментария ставится апостроф ‘.

Во втором варианте программы ввод данных организован из ячеек листа Excel, вывод – в ячейки листа. Используются объекты Range и Cells:

Sub CommandButton1_Click()

a = Worksheets("Лист1").Range("B3")

m = Worksheets("Лист1").Range("B4")

w = 0.1 * x * a * (1 - m ^ 2)

z = Sin(w / (2 + w))

Worksheets("Лист1").Range("B8") = w

Worksheets("Лист1").Cells(2,9) = z

Если при вводе оператора строчка помечается красным цветом, значит, имеется ошибка в записи оператора. При возникновении ошибки во время запуска программы (например, деление на 0) происходит прерывание выполнения программы и вывод сообщения о типе ошибки. В окне сообщения можно выбрать режим остановки программы (End) или режим перехода в окно отладки программы (Debug), при котором строка с ошибкой или процедура, где возникла ошибка, будет подсвечена желтым цветом.

Для исправления ошибки можно прервать программу, нажав кнопку Reset на панели инструментов редактора VBA, исправить ошибку и запустить программу заново нажав кнопку Run .

Для очистки ячеек объектов Cells и Range используется метод Clear. Например, можно создать кнопку «Очистка», для которой программный код может иметь следующий вид:

Private Sub CommandButton2_Click()

Worksheets("Лист1").Range("b7").Clear

Worksheets("Лист1").Range("d8:d12").Clear

Дата добавления: 2014-01-20