Информационные системы в экономике: Учебное пособие

  • Published on
    14-Dec-2016

  • View
    220

  • Download
    4

Embed Size (px)

Transcript

  • - ,

    .. , ..

    -

    2010

  • 2

    , . . . : , 2010. 66c.

    - Office . Visual Basic for Application (VBA), - .

    , .

    080801

    , 6 15/12/09

    - 2007-2008 - - , - , - . 2015 , - .

    - , , 2010 .., .. ., 2010

  • 3

    ... 5 1. xcel ... 6

    1. 6 2. 7

    2.1. 7 2.2. . 9 2.3. ... 9 2.4. . 11

    3. .. 16 2. (Word). - (Excel).

    18

    1. (Word).... 18 2. (Excel). 21

    2.1 ... 21 2.2 ... 23

    3. , - ...

    25

    1. ..... 25 2. ... 30

    4. -

    31

    1. ..... 31 1.1. , . 31 1.2. -....

    33

    1.3. Format..... 34 2. . 36 3. ... 39 4. .... 41 5. .. 42

    5. VBA. . 44 1. . .... 44 2. VBA. 45

    2.1. 45 2.2. . 46 2.3. .. 49

    3. . 49 4. ... 51

    6. , .

    53

    1. .. 53 2. ..... 54 3. . 56

  • 4

    3.1 -.....

    56

    3.2 - ..

    58

    3.3 .. 59 3.4 -

    VBA. 61

    4. ... 62 ... 64

  • 5

    , Microsoft Office, -

    , , . -, - .

    , Office 95, - . - Visual Basic for application (VBA), Excel 5, - - Office .

    Office -. , - , , - Office . VBA -.

    , Office, , , , - , . - , . , , .

    , - . - , - .

    (Word) - (Excel) , - .

  • 6

    1. EXCEL

    1. .

    . , , , .

    - , , . Excel , , , .

    . - .

    , (), :

    9 / -/

    9 fx,

    1.1 - .

    ? - , . -, , .

  • 7 , - , .

    !

    ?

    Excel, . , , . .. -. , 1.2 .

    2. 2.1. 1. -

    .

    : .2.

    1.2 1. . 1 -

    . , ( , ) ( 1.3) - . (. .1.3.), "_" : "2", ">" , "3".

    -, - ,

    ,

    a=b

    - -

    2, A3, 4. , -, .1.2. 2. -?

  • 8

    1.3. .

    , , (. 1.3.)

    " " -:

    9 , ; 9

    , -;

    9 ; 9 , , ,

    ;

    9 ! " " , ;

    9 ! , , - Excel. .

    2. , -

    , . , - . .

  • 9

    1.4 , . - .

    1.4 2 2.2 .

    1.5 3 2.3 2..1. , . 4 , : 9 , ABS, , , - . 9 , 9 , , -

    .

    3 9 ,

    1.5 9 , ? 9 , -

    ?

    .4 a>b ?

    c

  • 10

    9 - : , , , . -?

    2.3.2. . 5. ,

    , 1

    1 2

    : 2, ,

    1, : 9 ,

    ? 9 120? 9 .

    6. . ,

    , : , . 3 - 6

    9 7 , 7,

    . 9 7 , D7,

    .

    - 100

    50 3 320 1000 ? ? 20 ? ? 100 70 120

    7, , - -:

    9 - .

    9 .

  • 11

    -.

    , , , - . -, . , .

    , , - . -.

    2.4. 2.4.1. . .

    - .(. )

    7. -

    , , 1.6. D, -, .

    1.6 7-8

    8. 1.6 7 . : , -

    . .. - , - .. .

  • 12

    2.4.2. , ,

    . . ., , - :

    , , , . ( .

    ). -

    1.7.

    1.7-

    9. ( ),

    , , . , . , . - .

    , . . .

    -.

    .

    1.8. , . .

    () -2-

    1

    3

    2

    1

    ()

    - ( )

    -1-

  • 13

    , -, . , - , , , . 3 - 3 3 .

    , : 9 -

    ; 9 -

    . .

    , . -

    , , . 1.8, , .

    .1.8. 2.4.3 ,

    .

  • 14 . .

    (; __; __; ;)

    . , , .

    , ( ) - - , . , - .

    10

    .

    (, 55) . .

    2.4.4 ,

    : , , ... (. ). 11. -

    . 2.4.5. . : -

    . ,

    . :. (;_;_) 12. 9 -

    . 9 ,

    , , 1.9.

  • 15

    . . , .. -, .

    , - : , , - .

    .

    1.9 - 2.4.6 -

    . .

    1.10

    2

    1,5

    1 12 1,53 24 35 46 4,5

  • 16

    13 9 1.10 9 1.10.,

    3. , Visual Basic for

    Application (VBA). Excel - 5 7 - . Excel 97 - VBA. , .

    , - Excel - . - // ( -// ).

    14. Excel. . ,

    A3. , -.

    2. . , -

    . , . : 9 VBA - -

    , 9 , 9 Modules/Module1

    , 9 .

    - - . - .

  • 17

    Excel, /// , , .

    15. , -

    . , , ( ) .

    16 ,

    Word. -.

    17 -

    . - , .

  • 18

    2. (WORD)

    (EXCEL)

    1. (WORD) -

    - , , 2 , 2.1.

    2.1.- .

  • 19

    , - , , - . . : , , ..

    , , . -, ..

    -, , .

    1

    1. (. 2.1).

    1 , , Times New Ro-man Cyr , 12. -. , .

    2. . -

    , : . ( Word 2007) ( -

    Word ) - . - . , Word, -.

    2.2. - .

    ,

    2.2.. Office, .

  • 20

    .

    Word 2007 , , -

    . -.

    : Word , - / /.

    () - , . 2.3 , : ; - ; .

    2.3.

    2.1 2.2, .

    2.1

    .

    3 123 -1 2 12 1 8 80 60 -1 20 .. -2 60 .. 2.2

    , , , , , , , , , , ,

    -

    , ,

  • 21

    3. . .

    . , - , , ,

    : Word - / ..../ - . .

    4. Pois_Zap. 5. .

    -. .

    2. (EXCEL)

    - . , Excel . - , - - .

    : . 2.1. .

    ,

    . - .

    2.4.

    .. 6 ( .), 7 ( ) 11 ( ..), - , . -

  • 22

    2.4 . . (. .2.2 ): (9)=1+2+3+4+5+6+7+8; =1+2+3+4+5+8 2 ..

    - : , , .. .

  • 23

    2.2. . , ,

    , -2.4 ..14 ( ), . , , - .

    . , , , , , .

    - , , 2.5.

    2.5 .

    - -

  • 24

    3. ,

    : 1. . 2. , .

    3. . 4. ( ) .

    1.

    (), 3.1.

    3.1- .

  • 25

    :

    1. : 9 ; 9 : -1,5; -2,5; 0,5; 2; 9 ( ).

    2. , - 3.1 3.2

    3.1

    A 0,42 G 1,57 M 0,17 S 0,92B 9,86 H 4,43 N 1,71 T 2,43C 11,71 I 6,71 O 3,29 U 2,57D 2,57 J 0,42 P 3,43 V 0,83E 4,86 K 4,57 Q 4,57 W 3F 4 L 1,57 R 4,57 X 0,33

    3.2

    1 12,75 14 12,75 27 7 40 12,752 12,75 15 12,75 28 14 41 12,753 12,75 16 12,75 29 3 42 12,754 8,25 17 12,75 30 12,75 43 12,755 9,75 18 12,75 31 5,25 44 12,756 9 19 5 32 12,75 45 12,757 10,5 20 14 33 12,75 46-48 12,758 9,75 21 7 34 14 49 9,759 14,25 22 7 35 14 50 12,75

    10 13 23 14 36 12,75 51 11,2511 12,75 24 3 37 2,25 52 11,2512 5 25 14 38 14,25 53 16,513 12,75 26 7 39 5 54 12,75

    3. Times New Roman Cyr, , 10, - .

  • 26

    4. - - ,( ) : 2:2, B3:C3, E2:I2, E3:I3, I6:N6, P6:R6,U3:W4 K12:L12, K17:L17, K20:L21, K22:L23, K25L26, K27:L28, K30:L30, B21:I22, B26:I27, N20:U21, N22:U23 N25:U26, N27:U28, W6:W7 , , -, .

    5. 3.3, , ( ): 3.3

    , -

    ,

    3 . . E30

    5 - K17 .

    9 K20 10 K22 . 12 K25 18 K27 . 23 K30 . 28 K34 . 30 K35 . . 36 K36 45 O7 51 .. P48 I7 Q34 . G48 Q35 . . K12 Q36 . E3 . . U3 401060 E12

    6. , ,

    , 35 :

    9 2 3 ( , E - I ); 9 6 7 ( I - N P - T );

  • 27

    9 15 W. 7. / /, -

    :

    9 (): 11:W11, B13:J13, B19:M19, B24:W24, K21:M21, K26:M26, B29:M29, B31:J31, K33:W33, K34:M34, K35:M35, Q34:R34, Q35:R35, B37:W37, B38:W38, B46:W46, E50:K50, E53:K53

    9 (): 11:B11, D12:D13, D30:D31, J12:J37, M13:M37, P34:P36, R34:R36, C38, G38, H38, K38, Q38, U38

    9 (): U3:W4, W6:W7

    8. ,

    , . , . : 9

    . 3.2 - .

    3.2. .

    , , - , , - , - . Excel, 3.3.

    . - .. . , .

    . Excel// ../ / /.

  • 28 9 -

    . , -

    . - .

    3.3.- Excel 9 -

    . .

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

    , . :

    3.4

    B2 B14 B15 B16 B17 B20 B21 B25 B26 B32 B33 B34 B35B38 B39 B40 B41 B42 B43 B44

    N12 N17 N20 N23 N25 N27 N30 N34 N35 N36 N38 N12

    C9 E2 I5 G30 T34 F5 P5C10 E50 I38 G12 T35 H38 R38C12 E53 T36 D38 V38C30 W5

  • 29

    9. . , . - , -. 3.4

    3.4. .

    10. .

    11. , - .

    - . .

    2.

    1. . 2. . 3. -.

    , , - . - .

  • 30

    4.

    . (1-6), , . -, , , .

    , " " , " " . , - - . - - !

    1. . 1.1. , .

    Office

    Visual Basic for Application (VBA). - Office , , , Visual Basic.

    , Excel , .

    " " -

    . " "

    . .

    "" , - Enter:

    9 - print ?. 9 . -

    Debug.Print

  • 31

    4.1.- 1.

    1. .4.1

    : 9 VBA; 9 , -

    .4.1.; 9 ; 9 ,

    , , .

    2. , (-

    ), 4.2

    4.2 2.

  • 32

    1.2 Immediate ( ) -

    Immediate ()

    (. 4.3) : 9 , - (,), , 14 .

    9 (;), : , , . - .

    9 (;) - ,

    3. 4.3. , , , , :

    9 ? Print ; 9 '1234567890123#12.. ,

    , - # 14-

    4.3

  • 33

    1.3. Format

    Format :

    . Format ,

    ( ). , -

    , :

    (#) - ; (, ) , 3 -

    ; (. - ), ; (0 - ), .

    4.

    1. 4.4. - .

    4.4

    2. : =98733,12345

    b=0,0012345

    Format (, "")

    , - , , -

    , - .. ( )

  • 34

    , 98733,1 98733,12 98733,123 098733,1234 98 733,1

    98733,12 ,0 ,001234500

    3. , - 4.5.

    4.5 - .

    . 5. -

    4.6

    4.6 .

  • 35

    .

    1.2. . -

    , , , - :

    - User-Defined Formats.-

    6. VBA

    . - .

    .

    : -Format - -

    - .

    1.4. .

    , , - : .

    7 1 10. . For i=1 to 10 i Next i

    2.

    8 . 4.1. , , -

    , . . . , , - , -.

  • 36 4.1 ..

    -

    ( )

    1 Lcase

    2 Ucase

    3 Len 4 Instr 5 Lset 6 Rset

    7 Left 8 Right 9 Mid -

    10 LTrim 11 RTrim 12 Trim

    13 Asc ASCII ASCII ?

    14 Chr ASCII 15 Str 16 Val 17 StrComp 2 . 3

    . =" " =" " ? Lcase(A) -

    ? Instr(B,"") "" 18 ? Left(A,9) 9 ,

  • 37 ? Mid(B,18,5) 5 , 18- =" Hello " -

    . ? "|" & Ltrim( C) & "|" |Hello | ? Val("rwq123") 0 ? Val(" 123") 123 ? Val(" 123.7fds") 123,7

    9 , 4.1,

    . . Lset Rset -

    - qq(), . , , , .

    , , "" , . , Stop.

    Dim. Dim , qq().

    ! , - .

    , -

    VBA. ' (3 )

    . Dim D As String * 10 ' D ,

    10 Dim D01 As String * 10, D02 As String * 10

    VAL , .

    .. - .

    .

  • 38

    Dim D3 As Variant, D4 As Object, DD(10) As Integer, D1 As Date Sub qq() ------------------------------------------

    D = "123456789012345" D1 = Day(Now) D3 = Null LSet D01 = "qaz" RSet D02 = "qaz" Stop . ,

    . - -

    .. End Sub

    D1. , D1 ?

    3. - .

    10 . , 4.7. 4.2. . , Day(), Month(), Weekday(), Year(), Hour(),

    Minute() , , 4.7.

    4.7 .

  • 39

    4.2 ..

    -

    ( -)

    1 Date

    2 Time

    3 Now 4 Date-

    Serial : , ,

    5 Day

    6 Month

    7 Weekday

    8 Year

    9 Hour

    10 Minute

    11 , : Timer, DateAdd DateDiff.

    DateDiff, 1

    2:

    DateDiff(interval, 1, 2 : - interval DateAdd DateDiff :

    Yyyy , Q - , m- , ww- , H- , N- , S- .

    9 , - .

  • 40

    9 . 9 , , , ,

    . 9 1

    , 10 ( DateAdd)

    4. . 12 , -

    4.3. - 4.8.

    4.8 .

  • 41

    4.3 ..

    -

    - (- -)

    1 = 2 >< 3 < 4 > 5 = 7 Is ( )

    True, - .

    8 Like . .: * - - , ? - ,

    # - , [ ] - , [! ] - -

    9 StrComp 2 . 3 . : StrComp(1, -2,_). 1>2, +1, 1=2, 0, 1 2, -1. _ - (0) (1) .

    5.

    , 4.4 : -

    True, , False .

  • 42 13 9 "" -

    qq(), 9. ? 9 : , ()

    Option Explicit.? 9 , 4.4. 9

    4.4 ..

    (- )

    1 IsArray() True, - .

    2 IsDate() True, - .

    3 IsNull() True, - Null.

    4 IsNumeric True, -

    5 IsObject() True, - .

    6 IsMiss-ing()

    True, .

    -?

    "" :

    ? D 1234567890 ? D1 15.01.1900 ? IsArray(D), IsArray(DD), IsNull(D3) False True True ? IsDate(D), IsDate(D1), IsNumeric(DD), IsObject(D4) False True False True

  • 43

    5. VBA.

    1. . .

    VBA -

    Office VBA. Microsoft Excel , Word , PowerPoint (IDE), , , , , Office

    , - , , , , ., -.

    5.1 VBA.

  • 44

    VBA - (, Excel) : //Visual Basic, . , VBA , , , , -. , - 5.1.

    VBA \ (View\Immediate Windows), \ (View\Project Explorer) .. , - , . , - , F4 ( ).

    (Insert), ( ) (User Form), (Module), (Class Module), (Procedure) (File).

    () ( (Module) , - - . .

    . , -

    (, , ..).

    1 VBA; , , , -; ; , . .

    2. VBA. 2.1. ( Project explorer). -, Hide

    () . . Dockeble (),

    , 3- .

    Remove() , , .

  • 45

    - , , , ( ) .

    "+" . " " - .

    2.2. . . -

    - . ( 5.2). Worksheet. (), . - ( - ), .

    , .

    5.2 ()

    VBA . 9

    \(Insert Procedure). , , .

    9 ( qq), - - Dim qq As, As.

  • 46

    9 , , - \ \ (Edit\List Properties/Medods), - ( ) - \ (List Properties/Medods).

    9 , , .5.2 Range. , ( \ - \ (Tolls\Options\Editor) (Auto List Members).

    9 \ (View\Object Browser) F2 (. 5.1). - ,...

Recommended

View more >