. .
.
. ; , , , :
;
.
(, .). . , , . .
. , , . , , .
( ) . ( ) , . , (, ) .
. , , (, .).
.
, . , . . , , , .
( ) , ( ) .
. , . , , -, + - , 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