Интернет-журнал "Домашняя лаборатория", 2007 №3 - Вудворт

� ��� ���� �������� ��� ���������� ��������� ������������ ����������. ��������, ����� �������� ��������� ��� ���������� ����� ���� ������ �������������� ���������� � ��������� ���������� � ����� ��������� ���������, � �������� �� ������ ���, ����� ���� ���������� ����� �����, ��������� ��������� �����, ��� �������� ����� ����� ���������.

����� �������, ��� ���������, �� ������������ ����� ��������, ������� �� ����� ������� ���������.

������� �� � ��� ���������, ������� �� ������ �������� �� ������ ��������� �����-������ ����������, �� � ���������� ��� ��������� ������������ ��������, ������� ����� ���� �� � ���������� ������������.

� VBA ����� ���������, ���������� ������ �� ������ ���������, ����� ��������� ������:

Sub "�������� ���������"("���������� ����������" As "��� ������ ���������� ����������")

"����� ���������"

End Sub

���������� ���������� ����� ���� ���������. ��� ������ �� ��� ���������� ������� �� ���, �� ��� ����� ��������.

����� ��������� ���������� ��� ��, ��� � ����� ����� ������� VBA,�� ����� �������� �� �������� � �������� �� ��������������� �������� ����������, ����������� ����� ����� ��������� � ������� �� ������, ���, ��������, � ���� ���������:

Sub Main()

� Dim a As Integer

����� a = 1

����� uvelich a, 3

����� MsgBox a

End Sub

Sub uvelich(b As Integer, � As Integer)

������ b = b + �

End Sub

����� �� ��������� Main ���������� ��������� uvelich, ������� ���������� ��� ��������� � � (������ 1) � ������ � ����� 3. ��������� uvelich ����������� ������ ���������� ���������� �� �������� ������� ����������� �����, � ����� Main ���������� ���������.

����� �������, ��� ���� � �������� ��������� ����������� ���� ������ ����������, �� � � ���������� ��������� ������������ �������� ������ ���� ���������� � ����� ��� �� ����� ���, ����� VBA ������ ��������� �� ������[2].

���������� ����� ������������ � ��������� ����� ��������� � ������ ��� ������ ��� � ��� ���������. �� ��������� ���������� ����� � ������� ����������. ���, ������, � ��������������� ������� � ���������� "�" ���� �������� � ��������� (��� ������ "�", ����� ����� ����������������� ���� ������) � ��� ���������� (� ��� ��������� �������� ���������� "�"), � ����� � �������� ��������� ��� ���� ����� ����� ����� ���������� ��������.

���� �� �� �����, ����� ���������� � ��������� �������� (������, ��������� ���������� ���������� ��� �����-�� ����� ����, �� ��������� � �������� ����������), �� ����� ������ ���� ���������� � ��������� ��������� ������� ��������� ���������� ByVal. ����� ��������� ������ ���������� ���������� ���, ��� � ���� ��������� �������, ��������, ������� �� ��������, � ���������, ��������� ���������, ������ ����� �������� � ������� ��������� ����������.

� �������, ���� �� ��������� ��������� uvelich � ��������������� ������� ���� ��� Sub uvelich(ByVal b As Integer, � As Integer), �� �������� ���������� ���������� "�" �� ��������� �� � ��������� ���������� �� � �������� ���������� ����� 1. ������ � ����� ��������� uvelich ��������������� ���������� ����������� �� �� 3 �, ���� �� ��������� �� ������� ���� �� MsgBox b, �� ��� ���������� �� �������� 4.

������� ���������� �� ��������� ���, ��� ��� �������� � ��������� �� ��������� ������������ ��������, ������� ����� ���� ������������ � ���������� ������ ���������. � ���������, ��� ������������� ������� ��������������� ������ ��� �� ����� ����� ���:

Sub Main()

�� Dim a As Integer

�� Dim d As Integer

������ a = 1

������ d = uvelich(a, 3)

������ MsgBox d

End Sub

Function uvelich(ByVal b As Integer, ByVal � As Integer) As Integer

�������uvelich = b + �

End Function

��� �������� ������, ��������� ����������� ���������� "d" ��������, ����������� ��������.

��� �������� ������� �����-���� ������� �������, ��� ���� � ��������� ������� �� ������� ���������� ByVal ����� ���������� ����������, �� ��������������� ���������� ����� ���� � ������� �������� � ����� �� ���������� � �������� ��������� ��� ����� ����� ��� ���������� ��������. ���, ���� �� ������ ������ ���� ���

Sub Main ()

�� Dim a As Integer

�� Dim d As Integer

������ a = 1

������ d = uvelich(a, 3)

������ MsgBox d

����� �MsgBox a

��� End Sub

��� Function uvelich(b As Integer, � As Integer) As Integer

�������uvelich = b + �

������ b = 1555

��� End Function,

�� ��������� �� � �������� �������� ���������� "�" ���������� �� ����� 1555, � �� 1.