.


:




:

































 

 

 

 


. .

.

. ; , , , :

;

.

(, .). . , , . .

. , , . , , .

( ) . ( ) , . , (, ) .

. , , (, .).

.

, . , . . , , , .

( ) , ( ) .

. , . , , -, + - , 10000 .

. .

.

, .

- :

- (, , , , , );

- (, , , );

- ( );

- ( , , -);

:

- , ;

- (, );

- .

 

VBA.

, . , , , . . Application . Excel. VBA, VBE Microsoft Word, Application Word.

Application ( Excel) . , Application:

Workbooks ( Workbook );

Windows ( Window );

Addlns ( Addln ).

. , Workbooks Workbook, Workbook , :

Worksheets ( Worksheet );

Charts ( Chart );

Names ( Name ).

, , . Worksheets Worksheet Workbook. Worksheet , :

ChartObjects ( . ChartQb ject );

Range ; PageSetup ;

PivotTables ( PivotTable ).

.

) . 321,5682, 10, 16

321,5682011010001,1011102

321,56810(384)+ (283) +(282)+ (581)+ (680)= (40963)+ (5122)+ (641) + (85) + (61)= 12288+1024+ 64+40+6= 1342210

321,56816011010001,101110346

) VBA, 7 .

Microsoft Excel

 

 

:

Public Sub ()

s = o

For i = 2 To 7 Step 1

s = s + Cells(i, 1)

Next

Range ("c1") = s

End Sub

 

 

) 7 MS Excel, :

, .

, .

, .

VBA, 10%.

Microsoft Excel :

 

 

:

Public Sub ()

'Range("d2") = Range("b2") * Range("c2")

i = 2

Do While Cells(i, 1) <> ""

Cells(i, 4) = Cells(i, 2) * Cells(i, 3) - Cells(i, 2) * Cells(i, 3) * 0.02

i = i + 1

Loop

Range("D1") = ""

End Sub

:

 

 

:

1. , .. Excel : . / .. , .. . .: , 2009.

2. , .. / .. . .: , 2008.

3. , . . VBA Microsoft Office 2010: / . . . .: - , 2010.

4. http://www.firststeps.ru/vba/excel/vbaexcel1.html

5. http://dic.academic.ru/dic.nsf/eng_rus/400718/VBA

6. http://www.5byte.ru/10/0009.php

7. http://www.lessons-tva.info/articles/informat/20.html

8. http://www.razlib.ru/kompyutery_i_internet/ofisnoe_programmirovanie/p4.php

 

 



<== | ==>
-21 . | . ,
:


: 2016-10-22; !; : 497 |


:

:

,
==> ...

1704 - | 1642 -


© 2015-2024 lektsii.org - -

: 0.019 .