Este artículo demostrará cómo utilizar la instrucción Switch de VBA.
La instrucción VBA Switch se usa de manera similar a la instrucción VBA Select Case.
La sintaxis de la declaración Switch
La instrucción switch evalúa una lista de expresiones para ver si son verdaderas o falsas y devuelve el valor de las primeras expresiones que se evalúan como verdaderas. La lista de argumentos está formada por pares: una expresión y un valor que se devuelve si la expresión se evalúa como verdadera.
Cambiar(expr-1, valor-1, [ expr-2, valor-2… , [ expr-n, valor-n ]])
Uso de la instrucción Switch en un procedimiento de VBA
Usar esto en una macro podría ser similar al siguiente ejemplo:
| 1234567 | Interruptor de prueba secundario ()Dim strCompany como cadenaDim CompanyID como enteroCompanyID = 2strCompany = Switch (CompanyID = 1, "Apple", CompanyID = 2, "IBM", CompanyID = 3, "Samsung")MsgBox strCominessesEnd Sub |
Estamos declarando una variable entera para contener los valores de las expresiones dentro de la declaración de cambio. Luego declaramos otra variable de cadena para devolver el valor contenido dentro de esa expresión.
Uso de la instrucción Switch con un rango
En lugar de codificar el valor que el switch evaluará en el código, podemos usar un valor que hayamos almacenado en una celda de Excel para devolver la cadena que necesitamos.
| 1234567 | Interruptor de prueba secundario ()Dim strCompany como cadenaDim CompanyID como enteroCompanyID = Rango ("A2")strCompany = Switch (CompanyID = 1, "Apple", CompanyID = 2, "IBM", CompanyID = 3, "Samsung")MsgBox strCominessesEnd Sub |
Para usar este procedimiento, necesitaríamos tener un número en la celda A2 de la hoja de trabajo. Luego podemos ejecutar la macro para obtener el nombre de la empresa (es decir, Samsung).
Si no tenemos un número en la celda A3 y ejecutamos el código, se devolverá un Error de no coincidencia de tipo.
Creación de una función personalizada con el conmutador VBA
También podemos crear una función personalizada usando el interruptor VBA y usarla dentro de nuestro Libro de trabajo.
| 123 | Función SwitchStatement (i como entero) como cadenaSwitchStatement = Switch (i = 1, "Apple", i = 2, "IBM", i = 3, "Samsung")Función final |
Para usar esto dentro de nuestro libro de trabajo, podemos usar el cuadro de diálogo Insertar función.
Haga clic en la celda A3 y luego haga clic en Insertar función en la barra de funciones.
En el cuadro de diálogo Insertar función, seleccione Usuario definido desde el Seleccione la lista desplegable de categoríay luego seleccione SwitchStatement.
Hacer clic OK, y luego haga clic en la celda A2.
El nombre de la empresa, tal como se almacena en la Declaración de cambio, se devolverá a nuestra hoja de trabajo.
