Интернет-журнал 'Домашняя лаборатория', 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.
