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
End Sub
.
, :
Private Sub CommandButton1_Click()
Dim x As Single, a As Single, m As Single, w As Single, z As Single
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
End Sub
, . :
Private Sub CommandButton2_Click()
Dim x As Single, a As Single
Dim m As Single, w As Single
Dim z As Single
x = Val(InputBox( x ))
a = Val(InputBox( a))
m= Val(InputBox( m))
w = 0.5*Sqr(x*a*abs(1 - m * m))
z = cos(log(w)/(2 + w))
MsgBox (w= & w)
MsgBox (z= & z)
End Sub
G24 :
=0,5*((C17*C18)*ABS(1-C19*C19))
H24:
=COS(LN(ABS(G24))/(2+G24))
Clear Cells() Range().
.. :
Private Sub CommandButton4_Click()
Worksheets("2").Range("g25").Clear
Worksheets("2").Range("h25").Clear
End Sub
, , :
Private Sub CommandButton4_Click()
Worksheets("1").Range("d8:d12").Clear
Worksheets("2").ells.Clear
End Sub
, , 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).
1. . .
2. c , . 4.2.
.
4.2