: VBA.
VBA .
.
.
. , , 8 . , Windows ( ) , () , . 8 , . : , , , , , , , .
.
, Microsoft Word (, .doc).
Word → → Visual Basic VBA. Insert → UserForm .
. : , , , .
. Properties () Caption. , , : . . , , Toolbox Frame ( VBA ). :
ٸ , , , Frame1.
Frame1 ( ), . , 8 .
VBA, Frame1 Caption, , . Properties Caption : .
. OptionButton () Toolbox :
|
|
.
. : OptionButton1, OptionButton2, OptionButton3,OptionButton4, OptionButton5, OptionButton6, OptionButton7, OptionButton8. Caption. Caption , . OptionButton1 Caption , OptionButton2 , OptionButton3 , OptionButton4 Ƹ, OptionButton5 , OptionButton6 , OptionButton7 , OptionButton8 .
CommandButton1 CommandButton2. Caption , . , Font. . . 1.
. , , UserForm1 . , 11, BackColor ( ), .
. 1
Visual Basic : . , . , , vb ( Visual Basic) . vbWhite, vbBlack, vbRed, vbYellow, vbBlue, vbGreen, vbMagenta, vbCyan. :
UserForm1.BackColor = vbWhite
. , , , .
, OptionButton1, :
Private Sub OptionButton1_Click()
End Sub
, , . :
Private Sub OptionButton1_Click()
UserForm1.Backolor = vbWhite
End Sub
, OptionButton2, . :
UserForm1.BackColor = vbBlack
OptionButton2 :
Private Sub OptionButton2_Click()
UserForm1.Backolor = vbBlack
End Sub
. 6 , .
|
|
CommandButton1 ( ). , . , , . , , Ok, .
Msgbox. Msgbox , .
:
Msgbox( .. )
CommandButton1_Click, . :
Private Sub CommandButton1_Click()
Msgbox( .. )
End Sub
, . . 2. OK .
. 2
CommandButton2 (), , , . , :
Private Sub CommandButton1_Click()
MsgBox (" ..")
End Sub
Private Sub CommandButton2_Click()
End
End Sub
Private Sub OptionButton1_Click()
UserForm1.BackColor = vbWhite
End Sub
Private Sub OptionButton2_Click()
UserForm1.BackColor = vbBlack
End Sub
Private Sub OptionButton3_Click()
UserForm1.BackColor = vbRed
End Sub
Private Sub OptionButton4_Click()
UserForm1.BackColor = vbYellow
End Sub
Private Sub OptionButton5_Click()
UserForm1.BackColor = vbBlue
End Sub
Private Sub OptionButton6_Click()
UserForm1.BackColor = vbGreen
End Sub
Private Sub OptionButton7_Click()
UserForm1.BackColor = vbMagenta
End Sub
Private Sub OptionButton8_Click()
UserForm1.BackColor = vbCyan
End Sub
. . 3 , . , .
8 , , , , .
. 3
- , . , : Compile error ( ). , , . , , , , , . .
, , . Visual Basic , ( File ), .doc .
|
|
.
1. ()?
2. VBA ?
3.
Word , VBA?
4. VBA ?
5. ?
6. ?
7. , VBA .
8. , ?
9. Toolbox?
10. OptionButton?
/
1. VBA ,
http://www.lessons-tva.info/edu/e-inf2/m2t3_7.html
2. VBA MS Office, http://www.libray.narod.ru/rapid/vba_programmirovanie_office.htm
3. VBA
http://www.proklondike.com/books/vb/vb_Cummings_VBA_Dummies.html
4 VBA,
http://itteach.ru/vba/programmirovanie-na-vba
14.