Specify a range in select case statement : Select « Language Basics « VBA / Excel / Access / Word

Home
VBA / Excel / Access / Word
1.Access
2.Application
3.Data Type
4.Data Type Functions
5.Date Functions
6.Excel
7.File Path
8.Forms
9.Language Basics
10.Math Functions
11.Outlook
12.PowerPoint
13.String Functions
14.Windows API
15.Word
16.XML
Microsoft Office PowerPoint 2007 Tutorial
Microsoft Office Excel 2007 Tutorial
Microsoft Office Word 2007 Tutorial
VBA / Excel / Access / Word » Language Basics » Select 
Specify a range in select case statement
 

Function Fare(Age As IntegerAs Variant
  Select Case Age
    Case To 3, Is > 65
      Fare = 0
    Case To 15
      Fare = 10
    Case 16 To 65
      Fare = 20
    Case Else
      Fare = CVErr(xlErrNA)
  End Select
End Function

Sub test()
    MsgBox CStr(Fare(32))
End Sub

 
Related examples in the same category
1.Use Integer as the switch value for Select Case Structure
2.Use select case statement
3.Use string text as the select case statement control value
4.Specifying a Range of Values in a Case Clause by using the To keyword between the values of expressions
5.Select Case Statements with comparison operator
6.Specifying Multiple Expressions in a Case Clause: specify multiple conditions within a single Case clause by separating each condition with a comma
7.Using Is with the Case Clause
8.Select Case Else
9.A nested Select Case example
10.Three-level nested Select Case statement
11.Convert number to String by using Select statement
12.Choosing Actions with Select Case
java2s.com  |  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.