23
: VBA. MS Word MS Excel.
: , , .
1. MacroRecorder MS Excel, , 1.
1) (1) 1.
2) .
3) , , ϳ1. , <Ctrl+> .
4) .
5) ϳ . .
6) 1 , .4. .
7) . B1:G1, 
. 2 , .
8) 23_< >.xlsm.
9) , .
2. MS Word, .
1) Microsoft Word;
2) ;
3) ;
4) M Normal.dotm ( );
5) ChangeColor .
Visual Basic :
Sub ChangeColor()
'
' ChangeColor
''
End Sub
6) , :
Sub ChangeColor()
'
' ChangeColor
'
Dim intRed As Integer
Dim intGreen As Integer
Dim intBlue As Integer
intRed = InputBox(" ? (0-255)")
intGreen = InputBox(" ? (0-255)")
intBlue = InputBox(" ? (0-255)")
ActiveWindow.View = wdWebView
With ActiveDocument.Background.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(intRed, intGreen, intBlue)
End With
MsgBox " RGB(" & intRed & ", " & intGreen & ", " & intBlue & ")."
End Sub
7) View () Microsoft Word;
8) , ;
9) 23_< >.docm
|
|
|
10) ChangeColor, .;
11) 0 255 ( , ), . -- (RGB), .
3. MS Excel :
1) :
1:25 ;
- ;
2:25 1 24;
2) :
26 ,
28 ,
30
3) Ctrl+.
4) 3 (2, 3, 4) : .
5) VBA, (5) () .
6) .
1. VBA?
2. 䳺 VBA MS Office?
3. VBA MS Office?
4. ?
5. MacroRecorder?
6. ?
7. ?
8. ?
9. ?
10. ?
11. Word 2010, ?
12. Excel 2010, ?
.
1. VBA :
) ;
) ᒺ- ;
) ;
) Microsoft Office 2010.
2. Visual Basic :
) ;
) Microsoft Office 2010;
) Microsoft Windows;
) Visual Basic.
3. VBA :
) Microsoft Office 2010;
) Microsoft Office 2010;
) ;
) Microsoft Office 2010.
4. VBA :
) Microsoft Office 2010;
) Microsoft Office 2010;
) . vba;
) .
5. ᒺ- :
) ;
) ᒺ 䳿;
) ;
) ;
) .
