IfThenElse
If...Then...Else . .
:
If Then [_1] [Else _2]
:
If Then
[_1]
[ElseIf Then
[_2]]
[ElseIf Then
[_3]]
...
[ElseIf Then
[_N]]
[Else
[_N+1]]
End If
, . 0, false, true.
: true, , Then. Else, _1 , . , :
Sub IfThenElse()
Dim a As Single
Dim b As Single
Dim c As Single
a = Range("A1").Value
b = Range("A2").Value
If b=0 Then MsgBox " !" Else c=a/b: _
MsgBox "c="&c
End Sub
:
Sub IfThenElse1()
Dim a As Single
Dim b As Single
Dim c As Single
a = Range("A1").Value
b = Range("A2").Value
If b=0 Then
MsgBox " !"
Else
c = a / b
MsgBox "c=" & c
End If
End Sub
IfThen... Else.
- Then If . , .
- End If , .
- , .
If...Then...Else :
1). - :
Sub IfThenElse2()
Dim As String
If Range("A5").Value = "" Or Range("A5").Value = "" Then
MsgBox " "
End If
End Sub
2). - , :
Option Compare Text
Sub IfThenElse3()
Dim As String
If Range("a5").Value = "" Or Range("a5").Value = "" Then
MsgBox " "
Else
MsgBox " "
End If
End Sub
,
IfThenElse3, Option Compare Text. Option Compare .
|
|
|
:
Option Compare {Binary | Text | Database}Option Compare Binary, Text Database . Option Compare, Binary. Option Compare Binary , . Microsoft Windows . :
A < B < E < Z < a < b < e < z < < < < < <Option Compare Text . , , Option Compare Text :
(A=a) < (B=b) < (E=e) < (Z=z) < (=) < (=) < (=)
Option Compare Database Microsoft Access.
Option Compare Text , IfThenElse3, A5 "", "", "", "", "" ..
IfThenElse2 Option Compare Binary , A5 -, "", , "", False " " .
3). False, , ElseIf.
:
Sub IfThenElse4()
If Range("a6").Value >= 0.84 Then
MsgBox " " & """"""
ElseIf Range("A6") < 0.84 And Range("A6") >= 0.67 Then
MsgBox " """""
ElseIf Range("A6") < 0.67 And Range("A6") > 0.5 Then
MsgBox " """""
Else
MsgBox " """""
End If
End Sub
IfThen . IfThenElse4 , IfThen:
Sub IfThenElse5()
If Range("a6").Value >= 0.84 Then
MsgBox " " & """"""
Else
If Range("A6") < 0.84 And Range("A6") >= 0.67 Then
MsgBox " " & """""""
Else
If Range("A6") < 0.67 And Range("A6") > 0.5 Then
MsgBox " " & """"""
Else
MsgBox " " & """"""
End If
End If
|
|
|
EndIf
End Sub
1
1. IfThenElse.
2. IfThenElse, IfThenElse1 , .
2
1.
Option Compare Binary | Text | Database,
.
2. IfThenElse2, IfThenElse3 , .
3
VBA IfThenElse4 IfThenElse5, .
SelectCase
IfThenElse ElseIf . Select Case, . Select Case . :
Select Case
[ase ___1
[ _1 ]]
...
[Case ___n
[ _n ]]
[Case Else
[ _n+1 ]]
End Select
___n .
- :
Case
, .
- , To.
Case To
- Is, (>, <, >=, <=, <>) , , Select Case.
Is _
_1... _n+1 , , , .
Else . , _n+1 , , .
Case- ___n, _n, Case- ( Case- End Select). , End Select. _-n Case-, , . Select Case . Case Else .
CaseSelect , IfThenElse4.
Sub CaseSelect()
Select Case Range("A6")
Case Is >= 0.84
MsgBox " " & """"""
Case 0.68 To 0.83
MsgBox " " & """"""
Case Is > 0.5
MsgBox " " & """"""
Case Else
MsgBox " " & """"""
End Select
End Sub
4
1. Select Case.
2. CaseSelect , A6 .
5
1. .
| <=10 | |
| <=15 | |
| <=20 | |
| >20 |
2. IfThenElse, ElseIf; InputBox .
|
|
|
3. , Select Case Case Else.
