End Sub
End Sub
End Sub
Dim x As Single, a As Single, m As Single, w As Single, z As Single
End Sub
Dim x As Single, a As Single, m As Single, w As Single, z As Single
x = Worksheets("Лист2").Range("c17")
a = Worksheets("Лист2").Range("c18")
m = Worksheets("Лист2").Range("c19")
w = 0.5 * Sqr(x * a * Abs(1 - m * m))
z = Cos(Log(Abs(w)) / (2 + w))
Worksheets("Лист2").Range("g25") = w
Worksheets("Лист2").Range("h25") = z
Здесь ввод исходных данных и вывод результата организован из ячеек рабочего листа и в ячейки рабочего листа.
Если использовать относительные ссылки, то эта же процедура может выглядеть следующим образом:
Private Sub CommandButton1_Click()
x = Worksheets("Лист1").Cells(17, 3)
a = Worksheets("Лист1").Cells(18, 3)
m = Worksheets("Лист1").Cells(19, 3)
w = exp(x) * a * (1 - m ^ 2)
z = Sin(w / (2 + w))
Worksheets("Лист1").Cells(24, 7) = w
Worksheets("Лист1").Cells(24, 8) = z
Для очистки ячеек рабочего листа можно использовать метод Clear для объектов Cells() и Range().
Т. о. программный код кнопки «Очистить» будет выглядеть следующим образом:
Private Sub CommandButton4_Click()
Worksheets("Лист2").Range("g25").Clear
Worksheets("Лист2").Range("h25").Clear
Если необходимо очистить диапазон ячеек, либо все ячейки рабочего листа, то нужно записать:
Private Sub CommandButton4_Click()
Worksheets("Лист1").Range("d8:d12").Clear ‘очистка диапазона ячеек
Worksheets("Лист2").Сells.Clear ‘очистка всех ячеек
Свойства ячеек также можно менять программно, например, если нужно вывести значения на рабочем листе «Лист1», используя размер 14 и шрифт Times New Roman, то надо записать в процедуре перед выводом данных:
Worksheets("Лист1").Range("a2").Font.Name = "Times New Roman"
Worksheets("Лист1").Range("a2").Font.Size = 14
Отладка программы. Если при вводе оператора была допущена синтаксическая ошибка, то редактор VBA помечает строку красным цветом. При возникновении ошибки во время запуска программы (например, деление на 0) происходит прерывание выполнения программы и вывод сообщения о типе ошибки. При этом в окне сообщения можно выбрать режим остановки программы End или перехода в окно отладки программы Debug. Строка с ошибкой или процедура, где возникла ошибка, будет помечена желтым цветом.
Для исправления ошибки нужно прервать программу, нажав кнопку Reset на панели инструментов редактора VBA, исправить ее и запустить программу заново. Или исправить ошибку, затем продолжить выполнение программы, нажав кнопку Continue(Run).
ЦИКЛЫ В ИНЖЕНЕРНЫХ РАСЧЕТАХ (Задание 2)
Если в программе необходимо повторить один оператор или последовательность операторов несколько раз, используются операторы циклов. Операторы циклов заключают такой оператор или группу операторов между ключевыми словами начала и конца цикла и определяют условия повтора выполнения. Параметром цикла называется переменная, которая используется при проверке условия цикла и принудительно изменяется на каждой итерации. Если параметр цикла целочисленный, он называется счетчиком цикла. Имеется большой выбор средств организации циклов, которые можно разделить на две группы: циклыFor...Nextи циклыDo...Loop
Циклы For...Next
Циклы For…Next используются, когда заранее определено, сколько раз должны выполняться операторы цикла.
For <счетчик> = <нач. значение> То <кон. значение> Step <приращение>
<операторы>