���������

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

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



    ��� �����
  • �������� ��������� ����� VBA
    ����������: 38 551 |
    ����������� (0)
    17 ������� 2011 |

    3.1. ������� ������ ����������

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

    -       ������ ����� �������� ������������ � ����� ������.

    -       ����� �������� ��������� ���������� �� ����� ������, �� ��������� ����� ����� ���������� (:).

    -       ���� �������� �� ���������� � ����� ������, �� ���������� ��������� � ����� ������ ������ � ���� ������������� ( _), � ����� ���������� �� ������������� ����� �� ��������� ������.

    3.2. �������� ������������

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

    ���_���������� = ���������

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

    ��������. �������� � ������� ��������� ������������ ��������� �������������� ���������:     

    �� V�� ��� ��������� ����� �������� � ���� ���������� ���������:

    Y = a^(1/3)+(a^2+Exp(-b))/(Sin(a)^2-Log(b))

    3.3. ���������  �����-������


    3.3.1. ��������  � �������  MsgBox

    �������� MsgBox ������������ ����� ���������� � ���������� ���� �  ������������� ����� �������� ������� ������ �������������.

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

    MsgBox  ���������[,������][, ���������]

    ���������:

    ��������� - ������������ ��������, �������� � ���� ��������� �������������� ���������. ����� �������� �� ���������� ��������� �����, ������������ ������ &. ������������� � ���� ��������� Chr(13) �������� � �������� �� ����� ������ ��� ������ ����������.

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

    ��������� - ������ ��������� ����.

    ������� MsgBox ���������� �������� ���� Integer, �����������, ����� ������ ���� ������ � ���������� ����.

    ������� 3.1. ���������� �������� ���������� ������

    �����������

    ��������

    ������ ��

    VbOKOnly

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

    VbOKCancel

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

    VbYesNo

    ������ ��, ��� � ������

    VbYesNoCancel

    ������ ����������, ��������� � ������������

    VbAbortRetryIgnore

    ������ ��������� � ������.

    VbRetryCancel

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

    VbInformation

    ����

    VbCritical

    ���� �������

    VbQuestion

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

    VbExclamation

    ��������. ������� ��������� � ������� ����.

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

    MsgBox "������� �� ���������" & Date , , "��������"


    � ���������� ����� �������� ��������� ���� (���.3.1).

    ���. 3.1

    ����� ������ �� ������ �� ���� ��������� ���������, � ���������� ��������� ������������ � ���������, �������� ��������������� �� ������� MsgBox.

     

    3.3.2. ������� InputBox

    ������� InputBox ������������ ���� �������� ���������� � ������� ����  ����� � ����� ��������� ���������:

    ���_���������� = InputBox( ���������[, ���������])

    ���������:

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

    ��������� - ������ ��������� ����.

    ��������, ������ �������� ���������� N � ����������, ������������ �������� �� ��������� ������ 10.

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

    N = InputBox("������� N", "���� �������� ������",10)

    � ���������� ����� �������� ��������� ���� ��� ����� �������� ����������  N  (���.3.2).

    ���� �������� �� ��������� �������� ������������, �� ����� ������ ������ �� ���� ����� ���������, ����������  N  ���������� �������� 10 � ���������� ��������� ������������ � ���������, �������� ��������������� �� ������� InputBox.

    ���� �� �������� �� ��������� �� �������� ������������, �� ����� ������� �� ������ �� ���������� ������ ������ �������� ���������� N.

     

    3.4. �������� �������� IF

    ��� ���������� ���������������� ��������������� �������� � VBA ������������ �������� If…Then…Else, ������� ������������ ����� ���������� ����� �������� �������. �� ����� ��������� ���������:

    If  �������   Then  ��������_1  Else  ��������_2

    ��������_1  �����������, ���� ������� �������, � ��������� ������ ����������� ��������_2. ��� ���� �������� If…Then…Else ������������ � ���� ������.

    ������� – ��� ��������� ����������� ����. ��������� ��������� ������ ����� ��������� ���. ��������� ����� ���� ������� � �������. ��� ������ ������� ������� ����� �������������� ��� ��������� �������� ���������, ��������� � ����. 3.2.

    ������� 3.2. ���������� ���������

    ��������

    ��������

    ���������

    ���������

    =

    �����

    A = �

    True, ���� � ����� �

    <> 

    �� �����

    A<>�

    True, ���� � �� ����� �

    ������

    �>B

    True, ���� � ,������ �

    ������

    A<B

    True, ���� � ������ �

    >=

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

    A>=B

    True, ���� � ������ ��� ����� �

    <=

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

    A<=B

    True, ���� � ������ ��� ����� �

    ������� ������� ���������� �� ������� ����� ���������� ���������� �������� � ������� ������. ������ ���������� �������� �������� � ����. 3.3.

    ������� 3.3. ���������� ��������

     

     

    ��������

    ���������

    ���������

    Not

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

    Not A

    False

    True

     

    True

    False

    And

    ���������� �

    A And B

    True

    True

    False

    False

    True

    False

    True

    False

    True

    False

    False

    False

    Or

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

    A Or B

    True

    True

    False

    False

    True

    False

    True

    False

    True

    True

    True

    False

    � �������� ��������� ��������� ������������� ����� ���������� ������ ������ �� ����������. � ���� ������ �������� �������� ����� ���:

    If �������  Then

             ����_����������_1

    Else

             ����_����������_2

    End If 

    � �������� ��������� ����� ����������� ��������� �������. � ���� ������ �������� �������� ����� ���:

    If �������_1  Then

             ����_����������_1

    ElseIf �������_2  Then

               ����_����������_2

             Else           

                  ….

    End If 

    ������ 1. �������� ����� ��������� ��� ��������� �� ���. 3.3.

     

     

    ������ 2. �������� ����� ��������� ��� ��������� �� ���. 3.4.

     

     

    3.5. �������� ������  Select Case 

    �������� Select Case ������ ������������, ����� � ����������� �� �������� ���������� ���������, �������� �������� ��������� ���������� ��������, ���������� ��������� ������ ��������. �� ����� ��������� � �������� ����������, �� ����� ������ ���:

    Select Case  �����������_���������

               Case  ��������_1

                         ���������_1

               Case  ��������_2 

                        ���������_2

               .  .  .

               Case  ��������_N

                        ���������_N

               [Case Else 

                        �����_���������]

    End Select

    �����������_��������� ����� ����� ����� ��������� ���, ����� �������������. �������� ������� �� ������������� ���������� �������� ��� ����������, ���������� ���� �� ����� ��������.

    ��� �������� ������ ��������� � ����� ������������_���������.

    ������� ����������� �����������_���������. ���� ��� �������� ��������� � ����� �� �������� ��������_I, �� ���������� ���������_I � ���������� ���������� ���������, �������� ����� End Select. ���� ��� �������� �� ��������� �� � ����� �� �������� ��������_I, �� ���������� �����_��������� � ���������� ���������� ���������, �������� ����� End Select

    ��������. �������� ����� ��������� ��� ��������� �� ���. 3.5, ������������� �������� ���������� S � ����������� �� �������� ���������� n.

     

     

    3.6. ��������� �����

    ��� ���������� ������������ ��������������� ��������, �. �. ������������� ���������� ������ ��� ���������� ����������, ������ �������� ����� For…Next, ������� ����� ��������� ���������:

    For �������=���_��������o ���_�������� Step ��� 

         ����_����������

         [Exit For]

         ����_����������

    Next ������� 

    ���� For…Next ���������� �������� ���������� �������, ������� �������� ���������� �����, �� ���������� �� ��������� �������� � ��������� ����� ���������. ��� ���� �������������� ���������� ����� ���������� ���� ����� ��� ������ ����� �������� ��������. ���� Step ��� � ����������� �����������, �� �� ��������� ���������, ��� ��� ����� 1. �� ���������  Exit For ����� ����� �� ��������� ����� �� ����, ��� ������� ��������� ���������� ��������.*

    ��� �������� �������� �� ������ �������� ��������, ��������, ����� �� ��������� ��� ��������� �������, ������ ������������ �������� ����� For… Each…Next.

    For Each ������� In ������ 

          ����_���������� 

          [Exit For]

          ����_����������

    Next ������� 

    � VBA ��� ����������� ������ � ����������� ������� ������ ���������� ������������ � ������ ��������� �����:

    ����� � ������������ –       Do WhileLoop,    

    Do UntilLoop;

    ����� � ������������ –       DoLoop While,      

    DoLoop Until.

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

    ' ���� � ������������    Do WhileLoop 

    Do While ������� 

          ����_����������

          [Exit Do]

          ����_����������

    Loop

     

    ����������. �� ������������� ������������� �������� �������� ��������� �����, ��� ���������� � ��������� �������� � ���� ����� For…Next.

     

    ' ���� � ������������    Do Until Loop 

    Do Until ������� 

          ����_����������

          [Exit Do]

          ����_����������

    Loop

    ' ���� � ������������    DoLoop While

    Do

          ����_���������� 

          [Exit Do]

          ����_����������

    Loop While ������� 

    ' ���� � ������������    DoLoop Until

    Do

          ����_���������� 

          [Exit For]

          ����_����������

    Loop Until ������� 

    �������� Do While…Loop ������������ ������������ ���������� ����� ���������� �� ��� ���, ���� ������� �����������, � �������� Do Until…Loop ���� ������� �� �����������. ��������� Do…Loop While, Do…Loop Until  ���������� �� ������������� ���� ���������� ���, ��� ������� ���� ���������� ����������� �� ������� ���� ���� ���, � ����� ����������� �������.

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

    �������� Exit Do ������������ ��������� ����� �� ��������� �����.

    ������ 1. ��������� �������� ��������� ��� ��������� �� ���. 3.6.
    ������ 2. ��������� �������� ��������� ��� ��������� �� ���. 3.7.
    ������ 3. ��������� �������� ���������, ��������������� ���������

     


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



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

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

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



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



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



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



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