Executes one of several groups of statements, depending on the value of an expression.<\/p>\n\n\n\n
Select Case<\/strong> testexpression<\/em> The Select Case<\/strong> statement syntax has these parts:<\/p>\n\n\n\n If testexpression<\/em> matches any Case<\/strong> expressionlist<\/em> expression, the statements<\/em> following that Case<\/strong> clause are executed up to the next Case<\/strong> clause, or, for the last clause, up to End Select<\/strong>. Control then passes to the statement following End Select<\/strong>. If testexpression<\/em> matches an expressionlist<\/em> expression in more than one Case<\/strong> clause, only the statements following the first match are executed.<\/p>\n\n\n\n The Case Else<\/strong> clause is used to indicate the elsestatements<\/em> to be executed if no match is found between the testexpression<\/em> and an expressionlist<\/em> in any of the other Case<\/strong> selections. Although not required, it is a good idea to have a Case Else<\/strong> statement in your Select Case<\/strong> block to handle unforeseen testexpression<\/em> values. If no Case<\/strong> expressionlist<\/em> matches testexpression<\/em> and there is no Case Else<\/strong> statement, execution continues at the statement following End Select<\/strong>.<\/p>\n\n\n\n You can use multiple expressions or ranges in each Case<\/strong> clause. For example, the following line is valid:VBCopy<\/p>\n\n\n\n Note<\/p>\n\n\n\n The Is<\/strong> comparison operator is not the same as the Is<\/strong> keyword used in the Select Case<\/strong> statement.<\/p>\n\n\n\n You also can specify ranges and multiple expressions for character strings. In the following example, Case<\/strong> matches strings that are exactly equal to Select Case<\/strong> statements can be nested. Each nested Select Case<\/strong> statement must have a matching End Select<\/strong> statement.<\/p>\n\n\n\n This example uses the Select Case<\/strong> statement to evaluate the value of a variable. The second Case<\/strong> clause contains the value of the variable being evaluated, and therefore only the statement associated with it is executed.VBCopy<\/p>\n\n\n\n Select Case statement Executes one of several groups of statements, depending on the value of an expression. Syntax Select Case testexpression[ Case expressionlist-n [ statements-n ]][ Case Else [ elsestatements ]]End Select The Select Case statement syntax has these parts: Part Description testexpression Required. Any numeric expression or string expression. expressionlist-n Required if a Case appears. Delimited list of one or more of the following forms: expression, expression to expression, Is comparison operator expression. The To keyword specifies a range of Read More<\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_bbp_topic_count":0,"_bbp_reply_count":0,"_bbp_total_topic_count":0,"_bbp_total_reply_count":0,"_bbp_voice_count":0,"_bbp_anonymous_reply_count":0,"_bbp_topic_count_hidden":0,"_bbp_reply_count_hidden":0,"_bbp_forum_subforum_count":0,"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"footnotes":""},"categories":[10,18],"tags":[220,221],"class_list":["post-1672","post","type-post","status-publish","format-standard","hentry","category-microsoft","category-microsoft-office","tag-excel-vba","tag-select-case"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t\n\t\n\t\n\t\n\t\n\t\n\t\t
[ Case<\/strong> expressionlist-n<\/em> [ statements-n<\/em> ]]
[ Case Else<\/strong> [ elsestatements<\/em> ]]
End Select<\/strong><\/p>\n\n\n\nPart<\/th> Description<\/th><\/tr><\/thead> testexpression<\/em><\/td> Required. Any numeric expression or string expression.<\/td><\/tr> expressionlist-n<\/em><\/td> Required if a Case appears.
Delimited list of one or more of the following forms: expression, expression to expression, Is<\/strong> comparison operator<\/em> expression<\/em>.
The To<\/strong> keyword specifies a range of values. If you use the To<\/strong> keyword, the smaller value must appear before To<\/strong>.
Use the Is<\/strong> keyword with comparison operators (except Is<\/strong> and Like<\/strong>) to specify a range of values. If not supplied, the Is<\/strong> keyword is automatically inserted.<\/td><\/tr>statements-n<\/em><\/td> Optional. One or more statements executed if testexpression<\/em> matches any part of expressionlist-n<\/em>.<\/td><\/tr> elsestatements<\/em><\/td> Optional. One or more statements executed if testexpression<\/em> doesn’t match any of the Case<\/strong> clause.<\/td><\/tr><\/tbody><\/table><\/figure>\n\n\n\n Remarks<\/h3>\n\n\n\n
Case 1 To 4, 7 To 9, 11, 13, Is > MaxNumber <\/code><\/pre>\n\n\n\neverything<\/code>, strings that fall between nuts<\/code> and soup<\/code> in alphabetic order, and the current value of TestItem<\/code>:VBCopy<\/p>\n\n\n\nCase \"everything\", \"nuts\" To \"soup\", TestItem <\/code><\/pre>\n\n\n\nExample<\/h3>\n\n\n\n
Dim Number \nNumber = 8 ' Initialize variable. \nSelect Case Number ' Evaluate Number. \nCase 1 To 5 ' Number between 1 and 5, inclusive. \n Debug.Print \"Between 1 and 5\" \n' The following is the only Case clause that evaluates to True. \nCase 6, 7, 8 ' Number between 6 and 8. \n Debug.Print \"Between 6 and 8\" \nCase 9 To 10 ' Number is 9 or 10. \nDebug.Print \"Greater than 8\" \nCase Else ' Other values. \n Debug.Print \"Not between 1 and 10\" \nEnd Select<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"