:
: VBA
:
:
1.
2.
3.
VBA Sub Function, , End Sub End Function. . , .
, - , . VBA , .
IfThenElse . .
If, , :
If Then [] [Else _else]
, True False. True, , Else . False, , _else. Else False, If.
, :
If Sales > 15000 Then Comission=0.08 Else Comission=0.05
15000 ., 8 . , 5 .
, . :
If Then
[]
[ElseIf -n Then
[_elseif]...
[Else
[_else]]
End If
. . , If:
| If Sales > 15000 Then Commission = 0.08 Rating = "" AnnualSales = AnnualSales + Sales Else | Commission = 0.05 Rating = "" AnnualSales = AnnualSales + Sales End If |
ElseIf :
| If Sales > 15000 Then Commission = 0.08 Rating = "" ElseIf Sales > 12000 Then Commission = 0.07 Rating = "" ElseIf Sales > 9000 Then | Commission = 0.06 Rating = "" Else Commission = 0.05 Rating = "" End If AnnualSales = AnnualSales + Sales |
If :
|
|
|
- , , , Then. If.
- If End If. End If .
If . VBA , .
Select Case . :
| Select Case [Case -n [-n]]... | [Case Else [_else]] End Select |
. , -n. Case. , Case Else.
, :
| Select Case StateOfResidence Case "" SalesTax = 0.0525 Case "" SalesTax = 0.045 | Case "" SalesTax = 0.065 Case Else SalesTax = 0 End Select |
, . StateOfResidence , . , .
Select Case , , :
| Select Case UnitsOrdered Case 1 To 10 Discount = 0 Case 11 To 19 | Discount = 0.05 Case Is >= 20 Discount = 0.10 End Select |
, Case Is >= 20 UnitsOrdered, 20. , , , End Select.
:
| AreaCode = "914" Select Case AreaCode Case "212", "718" City = " " Case "312" | City = "" Case "213" City = "" End Select |
, City , , . . Select Case Case Else.
:
And (),
Or (),
Not ().
|
|
|
:
(0 < A) And (A <= 1),
(X = 0) Or (Abs(X) <5),
Not (X=Y).
. . :
false AND false = false false OR true = true
false AND true = false true OR false = true
true AND false = false true OR true = true
true AND true = true NOT false = true
false OR false = false NOT true = false
