VBA . . , . , , ( ).
, . - . . :
Kol>15 -
Str*31/100 -
, . , :
Fam =
IntI=6
StrName=Range(D4)
VBA .
, , . VBA : If Then Select Case.
If Then , - , .
:
Ø : If Then
Ø : If Then _1 Else _2.
True (), 1, False (), 2. Else . , 5% >1000, VBA :
If Money > 1000 Then Discont = 0.05 Else Discont = 0
,
If Money > 1000 Then Discont = 0.05
, . , End If :
|
, , If... Then...Elseif, :
1. True, 1 , End if. 1 False, 2 .., , True, Else.
, If Then . , Select Case, .
|
|
- , . , , - .
Visual Basic : .
( ) For Next. :
For = To [Step ]
: [Exit For], Next [ ].
Step () , , .. , . . Step , 1.
Exit For - ().
. 50 , Excel.
:
Sub sum()
Dim f As Integer, sum As Integer
sum = 0
For f = 2 To 50 Step 2 , ,
sum = sum + f Step 2
Next For
Range("A1").Value = sum 1
End Sub
, , (True) (False). Visual Basic Do While Loop Do Until Loop. .
|
|
, .
DO, LOOP - , ;
WHILE UNTIL - , . DO WHILE , True (.. ). DO UNTIL , False.
EXIT DO - .