Hoja inteligente 9.1.1
Smartsheet es una plataforma de trabajo dinámica que le permite gestionar proyectos, crear flujos de trabajo y colaborar con su equipo.
Cómo utilizar la estructura de caso de selección en Excel 2016 VBA
La estructura Seleccionar caso es una estructura VBA útil para decisiones que involucran tres o más opciones en Excel 2016 (aunque también funciona con dos opciones, proporcionando una alternativa a la estructura If-Then-Else).
Un ejemplo de caso selecto
El siguiente ejemplo muestra cómo utilizar la estructura Seleccionar caso:
Sub ShowDiscount3 ()
Dim Cantidad tan larga
Descuento tenue como doble
Cantidad = InputBox ("Ingresar cantidad:")
Seleccionar cantidad de caja
Caso 0 a 24
Descuento = 0.1
Caso 25 a 49
Descuento = 0,15
Caso 50 a 74
Descuento = 0,2
El caso es> = 75
Descuento = 0,25
Finalizar Seleccionar
MsgBox "Descuento:" & Descuento
End Sub
En este ejemplo, se está evaluando la variable Cantidad. La rutina verifica cuatro casos diferentes (0-24, 25-49, 50-74 y 75 o más).
Cualquier número de declaraciones puede seguir a cada declaración de caso, y todas se ejecutan si el caso es verdadero. Si usa solo una declaración, como en este ejemplo, puede poner la declaración en la misma línea que la palabra clave Case, precedida por dos puntos: el carácter separador de declaración de VBA. Esto hace que el código sea más compacto y un poco más claro. Así es como se ve la rutina en este formato:
Sub ShowDiscount4 ()
Dim Cantidad tan larga
Descuento tenue como doble
Cantidad = InputBox ("Ingresar cantidad:")
Seleccionar cantidad de caja
Caso 0 a 24: Descuento = 0,1
Caso 25 a 49: Descuento = 0,15
Caso 50 a 74: Descuento = 0,2
Caso es> = 75: Descuento = 0,25
Finalizar Seleccionar
MsgBox "Descuento:" & Descuento
End Sub
Cuando VBA ejecuta una estructura Select Case, se sale de la estructura tan pronto como VBA encuentra un caso verdadero y ejecuta las declaraciones para ese caso.
Un ejemplo de caso de selección anidado
Como se demuestra en el siguiente ejemplo, puede anidar las estructuras Seleccionar caso. Esta rutina examina la celda activa y muestra un mensaje que describe el contenido de la celda. Observe que el procedimiento tiene tres estructuras Select Case, y cada una tiene su propia instrucción End Select:
Sub CheckCell ()
Dim Msg como cadena
Seleccionar caso está vacío (ActiveCell)
Caso verdadero
Msg = "está en blanco".
Caso otro
Seleccione el caso ActiveCell.HasFormula
Caso verdadero
Msg = "tiene una fórmula"
Caso otro
Seleccione mayúsculas y minúsculas (ActiveCell)
Caso verdadero
Msg = "tiene un número"
Caso otro
Msg = "tiene texto"
Finalizar Seleccionar
Finalizar Seleccionar
Finalizar Seleccionar
MsgBox “Celda“ & ActiveCell.Address & ““ & Msg
End Sub
La lógica es algo como esto:
Descubra si la celda está vacía.
Si no está vacío, vea si contiene una fórmula.
Si no hay una fórmula, averigüe si contiene un valor numérico o texto.
Cuando finaliza la rutina, la variable Msg contiene una cadena que describe el contenido de la celda. La función MsgBox muestra ese mensaje.
Un mensaje mostrado por el procedimiento CheckCell.
Puede anidar estructuras Select Case tan profundamente como lo necesite, pero asegúrese de que cada instrucción Select Case tenga una instrucción End Select correspondiente.
Si aún no está convencido de que valga la pena el esfuerzo de sangrar el código, la lista anterior sirve como un buen ejemplo. Las hendiduras realmente para aclarar los niveles de anidación. Eche un vistazo al mismo procedimiento sin sangría:
Sub CheckCell () Dim Msg como cadena Seleccionar caso está vacío (ActiveCell) Caso verdadero Msg = "está en blanco". Caso otro Seleccione el caso ActiveCell.HasFormula Caso verdadero Msg = "tiene una fórmula" Caso otro Seleccione mayúsculas y minúsculas (ActiveCell) Caso verdadero Msg = "tiene un número" Caso otro Msg = "tiene texto" Finalizar Seleccionar Finalizar Seleccionar Finalizar Seleccionar MsgBox “Celda“ & ActiveCell.Address & ““ & Msg End Sub
Bastante incomprensible, ¿eh?
Compartirpunto
SharePoint es un sistema de colaboración basado en web que utiliza una variedad de aplicaciones de flujo de trabajo, bases de datos de "listas" y otros componentes web, así como funciones de seguridad para dar control a los grupos empresariales que trabajan juntos.
Calendario perpetuo 1.0.38/1.0.36
Van Nien Calendar es una aplicación de visualización de calendario en su teléfono, que le ayuda a ver rápidamente la fecha lunisolar en su teléfono, organizando así su importante trabajo.
Outlook 2021
Microsoft Outlook es una aplicación empresarial y de productividad desarrollada por Microsoft Corporation.
Haga clic arriba
ClickUp es una de las plataformas de productividad mejor calificadas para cualquier empresa. Grandes empresas como Google, Booking.com, San Diego Padres y Uber utilizan ClickUp para aumentar la productividad en el lugar de trabajo.
Visor de PDF-XChange 2.5.322.10
PDF se ha convertido en un formato de uso común para leer, crear y enviar documentos de texto. A su vez, se ha producido un aumento en el número de programas utilizados para este tipo de documentación. PDF-XChange Viewer se encuentra entre un número creciente de visores de PDF.
Apache OpenOffice
Apache OpenOffice ofrece un conjunto completo de aplicaciones de Office que rivalizan con Microsoft 365, especialmente en Excel, PowerPoint y Word. Le permite gestionar sus proyectos de forma más eficaz y admite varios formatos de archivo.
Descargar iTaxviewer 1.8.7
El software iTaxViewer es el software de lectura de archivos XML más popular en la actualidad. Este software es una aplicación de lectura de declaraciones electrónicas de impuestos en formato XML de la Dirección General de Tributación.
Lector de PDF Nitro
Nitro PDF Reader es un práctico editor de PDF que cubre todas las tareas básicas que la mayoría de las personas realizan todos los días con documentos PDF.
Lector Foxit 12
Foxit Reader es principalmente un lector de PDF y también le permite crear archivos PDF, firmarlos, editarlos y agregar anotaciones. Funciona en sistemas operativos, existen complementos para varios programas del paquete Microsoft Office.