Войтюшенко Н.М., Остапець А.І. Інформатика і комп’ютерна техніка
Подождите немного. Документ загружается.
501
B Show. $
#! CreateZap #, ! -
!. \A & ,
#!
, # ! ,
! :
ActiveDocument.Variables (“<' ”) = <0'
2>. <' >.<>
+ ! ! B # -
#!. H , – -
! 8 ! ! # -
.
\A ! ,, -
B!.
@! ! #
ThisDocument, ! ': Document New
:
Private Sub Document_New()
''%! ! !
Dim fld As Field
.Show
If CreateZap = True Then
.Hide
'$:! # !
ActiveDocument.Variables("8") = .Tipe.Text
ActiveDocument.Variables("5") = .Komy.Text
ActiveDocument.Variables("&0?") = .FIO.Text
ActiveDocument.Variables("8") = .Tema.Text
ActiveDocument.Variables("&") = .Kto.Text
ActiveDocument.Variables("&") = .FIO_kto.Text
ActiveDocument.Variables(";") = .Data.Text
'!
For Each fld In ActiveDocument.Fields
fld.Update
Next
'$ ! !
ActiveDocument.Bookmarks("8").Select
'B! '!
Unload
502
Else
'&# ""
Unload
ActiveDocument.Close SaveChanges:=False
End If
End Sub
$! B -
%:
+ Microsoft Word
. $ o . o #
o 5 o ! , A '!!, (
& ) o o
'! .
<# # B ! % -
.
& $ $3
1. \ # B !
Word?
2. ! B! B Visial Basic Visial Basic for
Application?
3. & VBA ! ! ?
4. $ ! ?
5. \ % Word?
6. \
% !
': Document, ! New?
7. @ ! -
, A : – $!.
8. < VBA !:
) ! ;
) ! .
9. * % ! ! !
.
503
10.2 !
Microsoft Excel *% VBA
VBA Microsoft Excel !: #
# : ! , -
! # !, ! ,
! ! , B! -
# , ! -
, .
+ VBA Microsoft Excel :! % 100 ':, A
!! ! :. J % -
! Excel. :! #: '! B ': -
: %! . $! ! ':, -
B #% Visial Basic:
. o . : o . ' Visial Basic o . View o
. Object Browser.
J 10.5 : ':
VBA, O ':.
$ ! ': :! ! -
':. ': !
: , ! #:! ': Application #:! '! -
':. J, ! # !1 # -
G1 # '! !, : :
Application.WorkBooks("!,").WorkSheets("G1").Range("
Al")
$ A ! ': '!-
. # B! ! ! ':.
+ ! , , ':, A
, ! , B . + ! ,
!A ! # !1 , -
A Excel, ! ': Application B A,
!:
WorkBooks("!,").WorkSheets("G1").Range("Al")
\A # : , ! B A
%:
WorkSheets("G1").Range("Al")
504
\A # G1 ,
B! ! !1:
Range("Al").
'': Excel B, ! % -
!, ! ! ! B -
.
B ': . +
B#
Visible () #! False () # % -
( ': WorkSheets) !:
Worksheets.Visible = False
10.5 – $ : ': VBA
Application
WorkBooks
WorkSheets
WorkBoo
k
WorkSheet
Windows Window
Sharts Shart
ShartOb
j
ects ShartOb
j
ect
Ran
g
e
Borders Borde
r
FormatCondition FormatCondition
&
'’
Cells
Selection
&
= -
, -
#
@
_
!
(B
)
505
* , A -
':. $ % # B -
.
!ctiveWindow – : Excel; !ctiveWorkbook – -
: # Excel; !ctiveSheet – -
: # ; !ctiveDialog – : -
# ; ActiveChart – -
: # ; ActiveCell – :
# # .
( B ': . +
hartObjects () # G1
Delete (), A !
# G1:
WorkSheets("G1") .ChartObjects. Delete
@! % VBA
Microsoft Excel (. 4 ) ! -
! . + Excel :! – !1
R1C1. ' : ! # B-
. + !1 ! ,
R1C1 – . $ R1C1 :! :
. o . & o Y o -
# R1C1 o 5.
$! !1 – ! #
R1C1.
@ Microsoft Excel ! -
! !1. + R1C1 ! # # B
! . < : R2C1 – #
! % !. – -
: B! # A #, ! % .
$ B !
A #. B
( 10.6).
506
10.6 – $ R1C1
\ 10.6, B #!
. $! R6C[-1] R6C[-4] -
% !, A ! # # #
# R6C7. _ R[4]C7 -
! B , 4 ! B# . -
# ! !! ( B
:! B) . $!
R[3]C[1] : #
! .
10.2.1 $
, 2$
VBA : B # ,
! # B -
, ! -! :.
)! VBA – , A #:!
Function, #:! End Function. ) B -
#! , -
B, ! Function ( B -
). # B ! -
, '! ! :! '! .
R
[
4
]
C7
R6C7
<-
R6C
[
-1
]
R6C
[
-4
]
R
[
3
]
C
[
1
]
507
J:
Function 8 (8$)
85 = 8$ + 273
End Function
! B ! VBA ,
#! , , #
%: % .
*! #: .
1). *# # ,
! # Visual Basic, A
#: - .
2). $ ! Visual Basic ! #! -
#!, A # # .
$ 10.1. –
@! ! -
( 10.7) -
% . & , -
# ! !
!. ( B !% B: 0,30
., !A % 1000 !%, ! 100 ., %
1500 !% – ! -200 .).
!
. + # Excel
, ! ': .
*# # % .
@ '! 5, – K, &,, .
@! .
1. (. o . : o . ' Visual Basic , -
# :! VBA.
2. (. Insert () o . Module (() ! !
! Module1.
3. $ – Properties Name
'! 3 ( 10.8).
508
10.7 – ) 10.1
10.8 – VBA
4. J ! -
:
Function 5(K, &,, )
5 = K + &, –
End Function
509
5. (B ( ,-
), B # B #
Excel.
6. (. File o . Close And Return To Microsoft Excel ! -
! # .
7. # ! % (H5), -
# # -
, # 5. @ -
B:! ! # :. + #-
– =5(B5;C5;D5). )-
B #.
$ – #
– , !! -
.
# 510 -
! . ' -
: B , # -
A (. 10.8), -
: ! .
$ – + Excel -
! ! ! B ,
B # %. (B -
, !
10.8, ! ! . + -
% , !A -
!! .
$ , B-
-! .
510
10.2.2 " %,
# ! # , -
! # # -
# B! #. \ Microsoft Word, %-
:! ! , :! Microsoft Excel.
B ! ! # . %
(Book.xls) :! #!, A -
#! ! Excel. * !
# B # . \A # -
% # , B -
%, ! !:!
.
@ # # #:!
% #, # ! . \A #:
# # # !A -
! # ! !
, :! .
A % , : # %,
A % ! B . D -
AB: # #.
:! , ! # # ,
#! !: , A ! %
# # # %. #: -
# , A ! , ,
!, . $ B -
. \A : %,
! , A : ! -
# %. % B -
# % # # , A #
# %, !.
+, A ! Excel %, #, ! -
! ! ! # # -
%, %. + % !:
x ! ! ;
x ;
x # ;