VBA Visual Basic VB . MS Office. VBA .
VBA: 1) VBA - VBA; 2) VBA; 3) VBA ; 4) -: Function and Function 5) VBA . - ; 6) (., , ); 7) ; 8)
40) VBA
41) Range. Range Cells Range Worksheet . - Range: Range Range . Range(1); . Range(1, 2). Worksheets("1"). Range("A1").Value = 1 Range("A1:B1O").Value = 2 Cells: Cells Worksheet Range. C e l l s: . Cells (_, _); . Cells (_); . Cells. Worksheets("1").Cells(1, 1) = 9 (1) ActiveSheet.Cells(3, 4) = 7 (D3) Cells I 40 Range. 2000 2, 2 : Range("A1:D10").Cells(5) = 2000 Cells .
42) VBA. , , . , . VBA: VBA, VBA, . , . . VBA: . . : 1) , , . 2) VBA 3) . 4) (#, $, %, &) 5) 254 . :VBA , . , . VBA , : . Dim A As Integer, As Integer, As Integer
|
|
|
43) VBA. VBA, . VBA (=). , (+), (*), (/), (), (^) (&). , Excel: (=), (>), (<), (>=), (<=) (<>)
44) -( MsgBox) - MsgBox VBA, . . MsgBox: MsgBox([, ] [, ] [, _] [, ]) ( ) , . ( ) , , ( ) . - (, vbYesNo). ( } , . Microsoft Excel. _ ( ) , . ( ) . .
45) if-then : If Then _ [Else _ ] VBA i f - T h e n IIf. Excel. :I I f (, a_r, _False),
46) Select Case Select Case . If- Then-Else. Select Case : Select Case
Do While, Do Until
Do while , . Do While : Do[While ][]Loop DO[]
[Exit Do]
[]
Loop [While ]
Do U n t i l , Do[Until ][][Exit Do][] Loop
DO[]
[Exit Do]
[]
Loop [Until ]
48) . . ( . . ) . .: ; ; . . .: 1, 2,, N, - -.
49) , - , . . .() . : 1, 2,, N, -.
|
|
|
11 1 +122++1NxN = b1
21 1 +222++2NxN = b2 - (1)
m1 1 +m22++mN xN = bN
= 1 1 + 22 ++NN max (2)
1, 2,, N, (1). , - (2).
. . : ; ; ; .
. .
( 2 ). , . . : ; - ; -.
51). . . . 2 4 . 1- 2 000 .., 2- 3000 .. 1- .
. . 1 - 1- ; 2-2- .
31 + 32<=15 . 1-
21 + 62<=18
41 <=16
1 +22<=8
1, 2>=0
E = 20001 + 30002 =>max
.
3 4 . ij, i = 1-3, j = 1-4. = i, i = 1-3. j = 1-4.
, = . . .1) ij - , i- j- .( 12 )2) .
-
11 + 21 + 31=1
12 + 22 + 32=2
13 + 23 + 33=3
14 + 24 + 34=4
i=1 3 ij = j j(1-4)
11 + 12 + 13 +14 = 1
21 + 22 + 23 + 24 = 2
31 + 32 + 33 + 34=3
i=1 4 ij = i, I = 1-3.
3) .
ij>=0, i=1-3, j=1-4.
4) - .
Zmin=∑∑ijxij
