���������

  • ������� �����

    ���� �����-������ � ���� ������ ����� �����-������, ������� ����� ��������� ������� ������ � ��������� Microsoft Word.



    ��� �����
  • ��������� ���������. ������, ��������� � �������
    ����������: 10 255 |
    ����������� (0)
    17 ������� 2011 |

    ������ ������������ ����� ��������� 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 �������� ������� DiscRec  � ������� ����������

    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 ��������� �������� ������ � ���������.


    ��������� �����



    ������ ������� �� ����:

      ������ �����
      ���������

      ����� �� �������� ������ �����������, �� �������� �����? ���� ��������, ��� ��������� �� ���������� �������� �������� ������. � ���� ��� ��� �� �������, �� ����� ����������� ��������� ���� �������, ������ ����������� ����� ��������.



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



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



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



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