OPI_RGZ_2011

11

8 n -

Userform1. 8 n o K -

, 9 ( .

' 9 -

9'n , o 9 K . A 9 ( 9 9 View Properties Window (: : ) 9 -

.

1.2.3 ' ! ) 0 !%(/ # (.' ) #-

: ( 9 9 ( n

9. u 9 , 9-

( 9 9 9 - 9 K: ( K 9 9

d . u , 9 n, 9 d

9 n , K ( ' 9-, o K . : VBA ( n 9,

K 9 K 9, 9 -

.

5 ( 9 9 – ,

' .

–

9. 5 ( n -

, o . 5, -

, 9 .

! – , - K . ' K ( 9

, d 9, o 9 K

K . 5, ,

9 n 9, 9 9 -

.

5 ( 9 K , -

d . -

. . 9 d -

n ( d. 9

9 ( VBA.

12

8 o 9 VBA n -

9 ( .

', o ( d . 5-

9- –

.

" #$%& – (

9.

– -

K .

u o 9 9-

, 9 9 d , 9 -

9 , , o

n .

( ( :

1. ' ! ! ( )(*. : K, o VBA ( -

, , -

9 9 -

. A K -

, d — . A

, VBA n

, .

2. ' ! ! &! . : K , 9-

d . ' K ( 9

9 ( , , -

). ' , ,

K VBA. ' ,

9 . ' ( -: ( 9 9 ,

( d , K d .

3. + (, ( ! ! ( d . y-

9 .

. n K , o n 9 ( -

. ' K d -

K 9 ( VBA.

-( )( – , -

K K, d . u o n -

, n, K

9 K ( n -

13

. A ( 9 -

( “Continue”

VBA. 09 , ( d

“Reset”, , . ' n -

K . , d -

K K VBA,

. 7 Visual Basic n -

.

: K ,

( K 9- 9 . 7 o K -

K :

•, -

;

•( d , 9 d-

;

•( d , K , , o' 9 ;

•d, .

' d d 9 (

K “Run Run Sub/Userform” (“: : / -”) 9 ( d F5. 2 9 - 9 . J “ ” (9 n

) n

Visual Basic.

7 9 K K n . '

9 o K -

, 9 9 , K -

9'n n K 9'n ( 9 K.

1.2.4 % / # !% !%

. n:

–;

–.

14

2 !% !%(-/' b n :

Msgbox (' [,0 9] [, ]).

' &( – , 9 ( , n 9-' . v 9

. 6 ( 1024 . :

( n , o Msgbox n nK, o -

n .

.$! %$! K 9 , 9

, 9 ( . 0 .$! %$! n -

: K

, o , K, 9 (-

.

v n 9 ( -

( 9 :

.$! %$! = '$ 1 + '$ 2.

'$ 1 Kn

(9. 1.1).

6 9 1.1 – ( 1 Msgbox

u o .$! %$! , VBA n, o n “.J”.

'$ 2 n ,

(9. 1.2).

15

6 9 1.2 – ( 2 Msgbox

3 & – .

Msgbox . 8 -

Msgbox 9 n . -

, o n, ( , -

.

9. 1.3 , o K nK

Msgbox.

6 9 1.3 – 8 , K nK

Msgbox

% !!'(' ), , ( 9 (

9 nK.

2 Inputbox n 9 . v 9 ( n , o

, o Kn; :

16

Inputbox('[, ] [, ]).

' &( – n 9' ; ( -

K , K 9 -

.

3 & – . 5 &, – , 9 9 (

, n . u o

, 9 ( n (.

, o n K nK, n , o

. , o n, ( -

, 9 d, -

9 . .

5 Msgbox .$! %$! , ' - n 5 &,: n , -

9 9 . '

“.J” Kn ,

“Cancel” n (.

: , o Inputbox n ,

Msgbox n .

1.2.5 /# ,-%& % c%d -!, VBA

J VBA d n . n

. J ( , o , n 9 - K-nK, 9 K-K.

' ) % – 9- VBA, n-

. u , n , o - K -9 9, o 9 KK . J ( -

n . ~

n nK -9 (6. , o 7 (6.

! ' ) d c'( , n -

:

•9 9 ;

•.

18

End with

' 8&% , VBA K

. € 9

. . 9 9

9 9 ' -d, (

9 ,

. K -

.

c%) If . . . Then

J If ... Then n, 9

9 ( . 8 n

n 9 -

:

1-0 %F:

If % & Then &! :

2-0 %F:

If % & Then

&! :

End If

n , ( 9 9- 9 K . u o ,

K (, o d K K

Then.

' c, / For ($% ! ' &, / ! ' b)

8:

For : ( = M1 To M2 [Step M3]

$!

ext

6 M1, M2, M3 – . . Kn

, ( ) Kn

1 2 3. u o

, n 1.

19

1.2.6 VBA ! ) ( MS Word

' Word 9 VBA n d (

9 9 . ( 9- 9 -9 9, . .

A 9 d -

K 9'n, Sections ( ), Paragraphs (9), Sentences ( ), Words ( ) .

' ! :

Words(6) – n ( d

.

Sentences(11) – .

' ( -

9'n Font, o n K d. v 9'n , o 9 K K “2 •”.

.9'n Range n 9 . ‚ ( -

9 ( ' -

K 9 K), ( ( . Range -

9 9'n, Words ( ) 9 Sentences ( );

9'n Range 9,

Sections ( ) 9 Paragraphs (9) 9 9.

.9'n Range n , K

( , “J K”, “:”, “:-”, K “2”).

A 9 9 , o

KK .

A

, n (

, n n . A 9:

1.: 9 K “8 | | ' ” ( . 1.3).

20

7 1.3 –

2.“ ” “„' ” ' -

.

3.: 9 “ ” d 9 9 -

, 9 9 .

4.“.”.

5.“' ” “'” (

9 K);

“J d” ( 9 d); o 9, “OK”. u o

9 n -9 , -

9 9 K d.

6.: , 9 K .

8 ' , o 9 -

, , 9 K d, K. 7. 5 ( “ ”.

1.3 !( ) ( F ,

1.3.1 .

K 9, K , ( -

.