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
- �������� ����� � ������ : �������(Insert) USER 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 ��� �������� ������ � ���� ����, � ������ ����� ����.