24
: VBA. .
: VB, , .
1. , Run, .
1) ³ 24_< >.docm ChangeColor ChangeColor_<_>.bas. .
2) 24_< >.docm, , .
3) VBA,
4) .
5) <Ctrl>+< >.
6) Run, .
2. VBA .
1. (UserForm1) , (), .
2. ᒺ , , :
3. , 24_ < > ᒺ: (Label1) :
Font Times New Roman Cyr; , 14
Font style Bold
Size 14
4. :
Label2 -
Label3 () -11
Label4
5. ᒺ (Image1) Picture (), Microsoft Clipart:
C:\ Program Files \ Microsoft Office \ Clipart \ PUB60COR
6. , ᒺ (Image2), Visible False.
7. ᒺ (CommandButton1 CommandButton2) Caption . ֳ . , CommandButton1 CommandButton2:
Private Sub CommandButton1_Click()
Image1.Visible = True '
Image2.Visible = False '
End Sub
8. ( Run) .
3. Գ < > , , .
|
|
1. 3 Label (s), (krd), (kvd).
2. 3 TextBox , .
3. 3 CommandButton :
Ø , , narahovano=s/krd*kvd;
Ø , ( (4 %), (0,5 %), (1 %), (13 %), utrymano=)
Ø , narahovano utrymano.
4. Label.
5. ᒺ , , ᒺ , .
6. .
1. VBA?
2. ?
3. ᒺ?
4. ?
5. VBA?
6. UserForm?
7. Toolbox?
8. ᒺ ?
9. ᒺ ?
10. ᒺ ?
11. ᒺ ?
12. ᒺ ?
.
1. VBA :
) ;
) <F1>;
) Visual
Basic;
) Windows.
2. VBA:
) ;
) ;
) ;
) ;
) .
3. , VBA, :
) , , , ;
) , , ;
) , , , ;
) , , , .
4. :
) ;
) ;
) ;
) .
5. VBA- :
) , , ;
) , , ;
) , , , ;
) , , , .
|
|