{"id":362,"date":"2019-01-17T18:39:06","date_gmt":"2019-01-17T18:39:06","guid":{"rendered":"http:\/\/www.vbastring.com\/blog\/?p=362"},"modified":"2019-01-29T04:15:49","modified_gmt":"2019-01-29T04:15:49","slug":"what-is-a-select-case-statement-in-vba","status":"publish","type":"post","link":"https:\/\/vbastring.com\/blog\/2019\/01\/17\/what-is-a-select-case-statement-in-vba\/","title":{"rendered":"What is a Select Case statement in VBA?"},"content":{"rendered":"

A Select Case in VBA is a conditional check function.
\nIn my opinion, it is a bit easier to read than the If statement. <\/p>\n

It controls program flow based on the condition of a variable<\/p>\n

In the following example I am using the Select Case to evaluate the price of a certain security.<\/p>\n

The “PriceDecision” function returns the result based on the price value passed to it.<\/p>\n

Public Function PriceDecision(dblPrice As Double) As String\r\n    \r\n    Dim strDecision As String\r\n    \r\n    Select Case dblPrice\r\n        Case 1.1323 'S1\r\n            strDecision = \"Buy\"\r\n        Case 1.1216 'S2\r\n            strDecision = \"Buy\"\r\n        Case 1.111 'S3\r\n            strDecision = \"Buy\"\r\n            \r\n        Case 1.1622 'R3\r\n            strDecision = \"Sell\"\r\n        Case 1.1558 'R2\r\n            strDecision = \"Sell\"\r\n        Case 1.1481 'R1\r\n            strDecision = \"Sell\"\r\n        Case Else\r\n            strDecision = \"Hold\"\r\n    End Select\r\n    \r\n    PriceDecision = strDecision\r\n    \r\nEnd Function\r\n<\/pre>\n
Here are some screenshots (and these values are just sammples!)<\/p>\n
The result of the custom function is in column “C” the “Decision” column.<\/strong><\/p>\n
\"\"<\/a><\/p>\n
\"\"<\/a><\/p>\n
Watch me do it:<\/p>\n