Statements
When Case do we use a Ca se Sta tement? Wha t does Ca se El se mea n? Wha t i s Ca se I s?
Cour se Gui de p. 207
#1
Setti ng up the Case Statement
First, you need to tell VBA which variable or expression that you are checking Select Case vntTest ---Or--Select Case vntTest + 1
CS 105 Fal l 2006
#2
Di ffer ent Expr essi ons
T hr ee types: Ca se 2, 6, 8 Ca se 2 T o 8 Ca se I s <= 8
CS 105 Fal l 2006
#3
The Case Statement
Preferable to the IF statement for a multi-branch situation Sel ect Ca se vntT emp Ca se 90 Ra nge("A2").I nter i or .Col or = vbYel l ow Ca se 80 Ra nge("A2").I nter i or .Col or = vbGr een Ca se 70 Ra nge("A2").I nter i or .Col or = vbRed Ca se El se Ra nge("A2").I nter i or .Col or = vbBl ue
CS 105 Fal l 2006
#4
Sel ect Case Exampl e We can use thi s l ater i n l oops!
Select Case vntPercentage Case Is > = 0.90 strGrade = "A" Case Is >= 0.80 strGrade = "B" Case Is > = 0.70 strGrade = "C" Case Is > 0.60 = strGrade = "D" Case Else strGrade = "Less than D" End Select
CS 105 Fal l 2006
#5
Checki ng a var i abl e, showi ng a pi ctur e
(hi de al l the pi ctur es each ti me you cl i ck on the button)
i ntM onth = I nputBox ("T ype the number of the month", _ "M onth", 12) Sel ect Case i ntMonth Case 12, 1, 2, 3 i mgCol d.Vi si bl e = Tr ue Case 4 To 6 i mgSpr i ng.Vi si bl e = Tr ue Case 7 To 8 i mgSun.Vi si bl e = Tr ue Case 9 To 11 i mgFal l .Vi si bl e = Tr ue Case El se (show a message box) End Sel ect
CS 105 Fal l 2006
#6
i ntM onth = I nputBox("Enter the number of a month", _ "Entr y must be between 1 and 12") Sel ect Case i ntM onth Case 1 str M onth = "J anuar y" Case 2 str M onth = "Febr uar y" Case 3 str M onth = "M ar ch " (and so on...)
CS 105 Fal l 2006
#7
Case To Summar i ze:
One val ue i s bei ng checked, often a var i abl e The or der of statements i s VERY i mpor tant thi nk about i t!
CS 105 Fal l 2006
#8