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