���������

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

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



    ��� �����
  • ������������ ���������
    ����������: 17 900 |
    ����������� (0)
    18 ������� 2011 |

    6.1. ������������ ������ � 1.         

    ����: "���������� � ��������������� ������ ���������� VBA"

    ���� ������: �������� ������ ������ � ����� VBA.

    �������:

    1.     ��������� ���������� ����l.

    2.     �� "����1" ����l ������� �������� ������:

     

    1

    a=

    5

     

    2

    b=

    2

     

    3

    n=

    3

     

    3.     ��������� �������� VBA: ������   ������   �������� VBA.

    4.     ������� ����� ������: ������� ������. � ��� ���� �������� ����� ���������:

    Sub Prtm1()

    Dim a As Single, b As Single, c As Single

    Dim d As Single, i As Integer, n As Integer

    Sheets("����1").Activate

    a= Cells(1,2)

    b= Cells(2,2)

    n= Cells(3,2)

    For  i=1 To n

    c=a*b/(a-b)*i

    d=c*b/4

    Cells(i+1,4)=i

    Cells(i+1,5)=c

    Cells(i+1,6)=d

    Next i

    Cells(1,4)="i"

    Cells(1,5)="c"

    Cells(1,6)="d"

    End Sub

    5.     C�������� ������ � ����� � ������ ������� � ����� ����� ������.

    6.     ������� ���� VBA � ����l.

    7.     ��������� ���������� ����l � ������� ����� �������, � ����� ���� ������1.

    8.     ��������� ��������� �� ����������.

    9.     ���� ���� ������, �� ��������� �� � ��������� ��������� ��������.

    10.                       ������������� �� "����1" ����l, ����������� ���������� ������ ���������, � ����� ������� ���������� ������ ���������.

    11.                       ��������� � ���� ��������� VBA.

    12.                       ����������� ��������� ���������� ���������, ������������ ��� ���� �������� ���� ����������.

    13.                       ������� ����� ������, � ������� ����������� ����� ��������� �� ������1.

    14.                       �������� � ������ ��������� ������2 ��������

    Sheets("����1").Activate        �� ��������  

    Sheets("����2").Activate

    15.                       ������������� �� "����2" ����l � ������� ���� ����� �������� ������ ��� ���������.

    16.                       ��������� � ���� ������2 � ��������� ��������� �� ����������.

    17.                       ������������� �� "����2" ����l � ����������� ���������� ������ ���������.

    18.                       �������� ������ �������������.


    6.2. ������������ ������ �2.

    ����: "�������� �������� ����: ������ � ���������� ����������"

    ���� ������: ��������� �������� � ���������� ���������� � ����� VBA.

    �������:

    1.    ����������� ����-����� ��������� � ������ VBA � ��������  ������ (��. ������ �������� �����) � ������������ � ��������� ������� (�������� ��������� ����):

    • ����� � ��������������� ����� ���������� VBA:  ������   ������   �������� VBA.
    • ���������� ���� ������� : ���(View)   Project Explorer
    • ���������� ���� ������� ����������� �������� ���������� : ���(View)  Properties Windows
    • �������� ����� � ������ : �������(InsertUSER FORM.
    • �������� ������ �������� ���������� �� ����� � �������  ������ ��������� (ToolBox).
    • ���������� �������� (Name) ��� ��������� ����� (TextBox) � ������ (CommandButton).
    • ���������� ��������  Caption ��� ����� ������������ (User Form),��������(Label), ��������� ������ (CommandButton).

    2.    �������� ����� �������� "�������� ������" � "����������" (��������-Font).

    3.    ���������� ��������� ���� ���� ����� ������������ (�������� –BackColor).

    4.    ���������� ����� ���� ���� ������ (�������� –BackColor).

    5.    �������� ������� � ����� ������������ (�������� Picture ������� ������� �� ���� ����).

    6.    ������� ����������� ������ � ������������ � ��������� �������:

    • ������� ������ �� ������ "����������" � ���� ��������� VBA ������ ����� ������������ ��������� ������ �� ������ CmdSolve.
    • ������� ������ �� ������ "�������" � ���� ��������� VBA ������ ����� ������������ ��������� ������ �� ������
    •  CmdClear.
    • ������� ������ �� ������ "�����" � ���� ��������� VBA ������ ����� ������������ ��������� ������ �� ������ CmdExit..

    7.    ����� ����� ���� ����������� ������, ��������� ������ (Run Macro) ��������� � ���� ���� ��������� �� ������� ���������� – ��������� �� � ����� ��������� ������ ���������.

    8.    � ������ ���������� ��������� ������ �������� ������ � ��������������� ����.

    9.    �������� �� ������ "����������".

    10.                       �������� �� ������ "�������".

    11.                       ������ ������ �������� ������� ������.

    12.                       �������� �� ������ "�����".


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

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

     

     

    6.3. ������������ ������ �3.

    ����: "�������� ����������� ������� VBA ��� ���������

    ��������� ������ MS Excel ".

    ���� ������: ��������� ������������ �������� ������ � ����� VBA.

    �������:

    ������� ������, ����� ������������ � ����������� ������ ��� ��������� ������, �������������� � ������� Excel ��������������� �������� ������� (�������� ������� ��������� �� ���.67). �� ���� �������� �������������� ������ �������, ��������� � �.1. 

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

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

    ������� ������, ����� ������������ � ����������� ������ ��� ��������� ������ ���������:

    1                 ������� ������� ��������� ���������:

    –                   ������ ������;

    –                   ������� ��������;

    –                   ������ �� ���� ���������;

    –                   ���������;

    2                 �������� � ������� ������������ ���������� �����;

    3                 ���������� ��������� ��������� �� ����������� ������, ������ ���������� ��������� ��������� �� 100%, ������� ��� ����� – ��������� �� 30%, � ��� ������� ���� �� ����� ������ ��������� �� ���������;

    4                 ������� �� 2-�� ����� ����� ��������� ��� ������ ��������� ���������;

    5                 ����������� ������ � ������� �� ��������� �������;

    6                 �������� ���������� �������� � �������� ��������;

    7                 ������� �� ������� ������ � ���������, ������� ����� ���� �����.

     

     

     

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

     

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

    ��� ��������

    ������� 1

    ������� 2

    ������� 3

    ������� 4

    ������� 5

    ��������� 

    ���02�

    ������

    5

    4

    5

    4

    2

    0

    ���02�

    ������

    4

    5

    3

    3

    3

    100

    ���02�

    �������

    5

    4

    5

    4

    3

    100

    ���02�

    ��������

    3

    3

    3

    3

    3

    100

    ���02�

    ��������

    4

    4

    5

    3

    3

    100

    ���02�

    �������

    4

    4

    3

    3

    4

    100

    ���02�

    ���������

    4

    3

    5

    4

    4

    100

    ���02�

    ������

    3

    3

    3

    3

    3

    100

    ���02�

    ������

    5

    5

    5

    5

    5

    200

     

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

     

     

    ����������� ������ «����» (���������� � � ������ «��������»):

    Dim i As Double

    Private Sub UserForm_Activate()

       ‘ ������� ���������� ����� � ������� � �����  �� ����� � ���� txtN 

       i = 1

       Do While Cells(i, 1) > " "

          i = i + 1

       Loop

       txtN.Enabled = True

       txtN.Text = CStr(i - 2)

       txtN.Enabled = False

    End Sub

     

     

     

     

     

     

    ����������� ������ «����������»:

     

     

    ����������� ������ «�������������»: 

    ������KOR

     

     

    ����������� ������ «�������������» (�����������): 

     

    ������ KOR1


     

    ����������� ������ «��������»:

     

    ����� ������� ������ ��������� ���� ���������� ��� ��������� Dicter ���������� google ��� �������� ������ � ���� ����, � ������ ����� ����.


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



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

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

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



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



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



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



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