������ ������������ ����� ��������� ASCII-���� � ����������� �����, ���������� ������������, ���������� � ���������. ������ ����� �������� �� ��������� ����������� �������. ��� �� �������� ���������� ��������� ������� ������� ������. ������� ���� ������ ������������ �� ���. 4.1.
������ �������� � VBA ���������� ��������� � �������.
��������� Sub– ��� ������������ ������������ ���������� VBA, ����������� ������������ ��������. � ����� ������ ��������� ��������� ��������� ��������� (����������, ������� ���������� ��������� � �������� �������� ������), ��������� ��������� � ����� ���������� �������������� ��������, ������� ������������� ���������� ������ ���������. ������ ���� ������������ ��������� ��� ����������. ��������, ���������, ������������� ��� ������������� ������������ �������. ����������� �������� � ������ ��������� �� �����������. ��������� ��������� ���������:
[������] Sub ���_��������� ([������_����������])
����_ ���������
End Sub
�������� ����� ������ �������� �������������� � ���������� ������� ��������� ���������. Public ���������, ��� ��������� �������� ��� ���� ������ �������� �� ���� ������� (����������). Private ���������, ��� ��������� �������� ��� ������ �������� ������ ���� ������, � ������� ��� ������� (���������). ������_���������� ����� �������� �������������� ��������� � ��������� ���������� ��������� ��������� �������� ������ ��� ������, ������� ���������� ����������� �����������. ��� ���� �������� ����� Dim �� �����������. ����_��������� ������� �� ������������ ����� � ����� ����������, ������������� ���� �� ������. ���� ���������� ���������� ���������� ��������� � ��������� ���������� �����, ��� ����� ������� � ������� ��������� Exit Sub. ���_��������� – ��� ����� �������������, ������������ �������������. ������������� – ��� ������������������ ����, ���� � ������� �������������, ������������ � ����� (������� ������ �������������� �����������). ��� ��������� ������ ������������ �� ������ ������. ��� ������������� ��������� � ������ ��������� (�.�. ��� � ������), ���������� ������� ��� ��������� � ������ ����������� ����������, ������� ������ �� ���� � ������� ���������� ��������� � ����������� �����������.
������� Function �� ������ ������ �� ���������, �� � ������� �� �� ��� ������ ������ ���������� ��������. ������� �������� ���������, ���������� �����������, � ��������� � ���� ��������� ��������, ��������� ������� ������������ ��������. ��������� ������� ���������:
[������] Function ���_�������(������_����������) As ���
����_ �������
���_������� = ���������
End Function
��� ���������� ��� ������ ������������� ����������. � ���� ������� ����������� ������ ��������������, �� ������� ����, ���� ��������, ������������� ����� ������� �������� ������������ ���������. ��������� ���������� ������� �������� � ������� ��������� Exit Function. � ��������� ����� ������� �������������� � ������� ��������� ������������, � ������ ����� �������� ����������� ��� ������� � �������� ����������� ����������, ��� � ����� ������ ���������� �������, ��������, Sqr, Cos ��� Chr.
��������� � �������, �� ��������� ���� � ������� �������� ���� Public ��� Private, �� ��������� �������� ������.
��� �������� ���������� � ������ ����������� ������ ��������������� �������� ������� ���������. � ����������� ���� (���. 4.2) ����� ������� ����������� �����.
� MS Excel � ���������, ���������� �������������, ����� �������� � ������� ������� ������� ����� ��� ��, ��� � �� ����������� ��������� �������� �����.
������. � MS Excel ������� ������� ������������, ������������� ������������ ��������� �������:
y = sin(x) ∙ e-5x
�������� ������, ��� ������� ���� (��� 4.2), � ������ � ���� ����� ��������� ���������:
Public Function Y(x As Single) As Single
Y = Sin(x) * Exp(- 5 * x )
End Function
��� ������������� ��������� ������� �� ������� ����� MS Excel ������ � ������ �2 ����� 0.1. � ������ �2 �������� �������� ������� Y ��� x = 0.1. ��� ����� � ������ �2 ���������� ������ ������� =Y(A2). ��� ����� ������� � � ������� ������� �������, ������� ����� ��������� ������� Y ������ � ������� ����������� ��������� MS Excel (��� 4.3).
����� �������� ����������� �������� VBA � ������ ���������. ������ ����� ��������� ���������� � �����, ������� ��������� ��������� ����������, �������� ��������� ����� � �. �.
����� ������� ���������� ���������� ��� ������� ������ ���������� � ��������, �.�. �����, ������� ������������ �� ���� ���������� ������.
����� ����������� ��������������� ����� ������� � ��������, ������������ ���� ���������.
������������ ���������� � ����� ������ ��� ������ ��������� �������� ������ “:”.
��� �������� ��������� �� ������ ������ ������������ ������ “_” (���� �������������).
������ ������ ��������� ������ �������� ����������� – ������������� �����, ������� ������������ ������������ � ����� ���� ������� � ����� ����� ���������. ����������� ������ ����� ������������ ��� ������� ��������� ��� ���������� ���������� ����������. ������ ������ ������������ ���������� �� ����� ���������.
������ ����������� ������:
Option Base 1
Option Explicit
‘ PI – ���������� ���������
Const PI As Double = 3.14159
‘ x - ���������� ����������
Dim x As Double
‘ ������� Disc ��������� ������� �����
Public Function Disc(R As Double) As Double
x = 2
Disc = PI * R ^ 2
End Function
‘ ������� Rec ��������� ������� ������������
Public Function Rec(a As Double, b As Double, c As Double ) As Double
‘ p – ��������� ����������
Dim p As Double
p = ( a + b + c) / 2
Rec = Sqr ( p * ( p – a )* ( p – b ) * ( p – c))
End Function
‘ ��������� Result �������� ������� Disc � Rec � ������� ����������
Public Sub Result ( )
‘R_1, R_2, a, b, c - ��������� ����������
Dim R_1 As Double
Dim R_2 As Double
Dim a As Double
Dim b As Double
Dim c As Double
R_1 = Disc( 2. 5 )
x = x + 2
MsgBox “ ������� ����� = “ & CStr( R_1) & “, x = “ & CStr (x)
a =1
b = 1
c = Sqr (2)
R_2 = Rec (a, b, c)
MsgBox “ ������� ������������ = “ & CStr( R_2)
End Sub
����� ���������� Option Explicit ��������� �� ������������� �������� ����� ����������, ������������ �� ������ ����� ������.
���������� Option Base 1 ���������, ��� ���������� ��������� ������� ����� ���������� � 1.
������� Sqr ��������� ���������� ������ ���������.
������� CStr ��������� �������� ������ � ���������.