Declaración de caso de Excel VBA
La declaración de caso de VBA es una de las funciones lógicas. Case Statement prueba múltiples pruebas lógicas y llega el resultado de dos formas, es decir, si el resultado o la prueba lógica es VERDADERO un conjunto de resultados y si el resultado o la prueba lógica es FALSO, entonces el segundo conjunto de resultados.
Las pruebas lógicas se realizan típicamente utilizando fórmulas IF, ya sea una fórmula de hoja de trabajo o en codificación VBA; en ambas plataformas, esta función nos ayuda a realizar muchos tipos de cálculos complicados. No muchos de nosotros nos damos cuenta de que tenemos una alternativa a la declaración IF en VBA, es decir, "Declaración de caso". Este artículo le proporciona todos los detalles sobre esta declaración lógica.
Sintaxis
A continuación se muestra la sintaxis de la instrucción "Seleccionar caso".
Seleccione el caso "Valor para ser prueba" El caso es "Prueba lógica" Resultado si el Caso 1 es VERDADERO El caso es "Prueba lógica" Resultado si el Caso 2 es VERDADERO El caso es "Prueba lógica" Resultado si el Caso 3 es VERDADERO Caso contrario Si ninguno de los los resultados son VERDADEROS End Select
Esto es casi similar a la sintaxis de la instrucción IF, pero en lugar de usar ELSEIF, usamos el Caso 1, el Caso 2, el Caso 3 y así sucesivamente.
Ejemplos de declaración de caso de VBA
Ejemplo 1
En la celda A1, ingresé el número como 240.
Ahora probaremos este número si es mayor que 200 o no usando la instrucción SELECT CASE .
Paso 1: Abra la instrucción Select Case ahora.
Código:
Sub Select_Case_Example1 () Seleccionar caso End Sub
Paso 2: Una vez que se abre el "Caso de selección", debemos proporcionar cuál es el valor que estamos probando. En este caso, estamos probando los valores de la celda A1.
Código:
Sub Select_Case_Example1 () Seleccionar rango de casos ("A1"). Valor End Sub
Paso 3: Una vez que se proporciona el valor que se va a probar, debemos aplicar pruebas lógicas en Excel utilizando la palabra " Case Is ".
Código:
Sub Select_Case_Example1 () Seleccione el rango de casos ("A1"). El valor del caso es> 200 End Sub
Paso 4: Ahora, en la siguiente línea, debemos proporcionar el valor del "resultado" si la prueba lógica aplicada es VERDADERA. En el cuadro de mensaje, necesitamos el resultado como "El número es> 200".
Código:
Sub Select_Case_Example1 () Seleccione el rango de mayúsculas y minúsculas ("A1"). Valor de mayúsculas y minúsculas es> 200 MsgBox "El número es> 200" End Sub
Paso 5: En este ejemplo, solo necesitamos dos resultados, por lo que no usaré más declaraciones "Case Is". A continuación, usaré la palabra "Case Else" para cerrar la declaración de VBA "Select Case".
Código:
Sub Select_Case_Example1 () Seleccione el rango de mayúsculas y minúsculas ("A1"). Valor de mayúsculas y minúsculas es> 200 MsgBox "El número es> 200" Case Else MsgBox "El número es <200" End Sub
Paso 6: Una vez que se hayan proporcionado todos los casos, debemos cerrar la declaración de selección de casos utilizando la palabra "End Select".
Código:
Sub Select_Case_Example1 () Seleccione el rango de mayúsculas y minúsculas ("A1"). Valor de mayúsculas y minúsculas es> 200 MsgBox "El número es> 200" Case Else MsgBox "El número es <200" Fin Seleccione Fin Sub
Paso 7: Ahora ejecute el código y vea cuál es el resultado que obtenemos en el cuadro de mensaje de VBA.
El resultado que obtuvimos es "El número es> 200" porque en la celda A1 el valor es 240, que es> 200.
Ejemplo # 2
Ahora veremos algunos ejemplos prácticos en tiempo real de puntajes de pruebas. Mira el código VBA a continuación.
Código:
Sub Select_Case_Example2 () Dim ScoreCard As Integer ScoreCard = Application.InputBox ("La puntuación debe ser b / n 0 a 100", "¿Cuál es la puntuación que desea evaluar") Seleccione el caso ScoreCard El caso es> = 85 MsgBox "Distinction" Case Es> = 60 MsgBox "Primera clase" Caso Es> = 50 MsgBox "Segunda clase" Caso Es> = 35 MsgBox "Pasa" Caso Else MsgBox "Falla" Fin Seleccionar Fin Sub
Permítanme explicar el código línea por línea para entender mejor.
Primero, he declarado la variable como Integer, y para esta variable, he asignado el InputBox en VBA, donde un usuario debe ingresar la puntuación entre 0 y 100.
Cuando ejecute el código, verá el cuadro de entrada como el siguiente, y en este cuadro de entrada, debe ingresar la puntuación.
Ahora, todo lo que ingresemos en el cuadro de entrada se almacenará en la variable "ScoreCard".
In the next line, I have applied a select case statement to test this score.
First, it will test the ScoreCard>=85 or not. If this is TRUE, then we will get the value in the message box as “Distinction.”
Select Case ScoreCard Case Is>= 85 MsgBox "Distinction"
Similarly, in the following lines, I have applied the second test as ScoreCard>=60. If this is TRUE, then it will show the result as “First.”
Case Is>= 60 MsgBox "First Class"
Like this, I have applied other tests as well, and in the end, I have used the “Case Else” statement. If all the applied logical tests are FALSE, then we will get the result as “Fail.”
Case Else MsgBox "Fail"
Now I have supplied 68 as the score, and we should get the result as “First Class” in the message box.
Example #3 - Using the “To” keyword
In the above example, we have used student scores to arrive at the result. The same test can be conducted by using the “To” word to determine the lower limit and upper limit of the logical test.
Code:
Sub Select_Case_Example3() Dim ScoreCard As Integer ScoreCard = Application.InputBox("Score should be b/w 0 to 100", "What is the score you want to test") Select Case ScoreCard Case 85 To 100 MsgBox "Distinction" Case 60 To 84 MsgBox "First Class" Case 50 To 59 MsgBox "Second Class" Case 35 To 49 MsgBox "Pass" Case Else MsgBox "Fail" End Select End Sub
I have used the same code as above, but the only yellow-colored area I have changed here. Based on the number we type in the input box accordingly, we will get the result.
Things to Remember
- Select Case es una alternativa a la instrucción IF.
- Select Case está disponible solo con VBA.
- En la primera línea de "Seleccionar caso", solo necesitamos proporcionar el valor que debe probarse. Luego, en la línea "Caso", debemos aplicar la prueba lógica. Esto es diferente a nuestra condición IF.
