, . ( ), , , , MS Excel .
, ( , , , , ), . , , VBA .
, MS Excel .
( ).
VBA.
䳿.
Tools\Macro\Record New Macro.
. 4. ij .
, (Macro name), , (Shortcut key).
ϳ , MS Excel . Stop Recording ( ).
. 5. Stop Recording ( ).
Tools\Macro\Stop Recording ( ) Stop Recording ( ).
.
䳿.
Visual Basic Tools\Macro\Visual Basic Editor ALT+F11.
. 6. Visual Basic.
( ), .
Insert\Module.
VBA, MS Excel.
Visual Basic.
, VBA-, Sub ( . 6 FormatFont).
Tools\Macro\Macros. , . 7.
. 7. ij .
, () Run. MS Excel. Options () (. . 7). MS Excel 䳿.
|
|
Tools\Customize.
Toolbars ( ), . 8, , New (). . ϳ MS Excel.
. 8. ij : Toolbars.
Commands () (Categories) Macros (), . 9.
. 9. ij : Commands.
dz (Commands) Custom Menu Item ( ), Custom Button ( ), , , (. . 10).
. 10. .
Assign Macro ( ).
. 11. ij .
, , Ok.
.
MS Excel . .
. 12. MS Excel.
.
, .
1) .
ϳ Tools\Macro\Record New Macro 䳿:
Sheet1 , , 2 , Format Cells.
, , Font.
Font type (Italic) Color .
, .
Formatting ;
Tools\Macro\Stop Recording.
2) VBA.
ϳ Visual Basic ( Insert\Module) VBA-.
Sub ChangeFont() '
With Selection.Font ' ᒺ Selection.Font
.Name = Times New Roman ' ᒺ Selection.Font
.FontStyle = Italic ' ᒺ Selection.Font
.Size = 14 ' ᒺ Selection.Font
.ColorIndex = 3 ' ᒺ Selection.Font
|
|
.Bold = True ' "" Bold () ᒺ Selection.Font
End With ' ᒺ Selection.Font
End Sub '
, Word , . , . - , , , , , . ϳ , , , - - .
, 䳿.
1. ³ , :
, , ' ;
, , . , , ,
, , , .
2. :
(Save As) (File). (Save As) (Save as type) (Document Template). (Look in) ' ;
. (New) (File) (General). , (Templates);
' ' (File Name) . , , , , ,
, 䳿:
³ (Open) (File);
, (Files of Type) (*.dot) (Document Templates);
.
, , , , , Normal.dot. (Tools) (Templates And Add-Ins) , , (Attach) (. 10.12). (Attach Template) .
, ³ (Open). , (Automatically Update Document Styles) .
, . , .