Com s'utilitza la declaració de cas selecta a VBA? (Exemples)

Declaració de cas de selecció VBA d'Excel

Seleccioneu majúscules i minúscules és un substitut de l’escriptura d’instruccions múltiples if a VBA, quan tenim moltes condicions en un codi, hauríem d’utilitzar instruccions If múltiples i que poden ser tedioses a mesura que es fa més complexa a mesura que es proporcionen més instruccions If, en un cas selecte declaració definim els criteris com a casos diferents i els resultats segons ells.

SELECT CASE ajuda en el procés de presa de decisions. En això, només s’utilitza una expressió per avaluar els diferents casos possibles. Diverses condicions s’analitzen fàcilment per executar el codi desenvolupat. Aquesta afirmació de cas s'utilitza com a declaració substitutòria d'ELSE IF per avaluar expressions. Es classifica com una funció lògica integrada a Excel. Per utilitzar aquesta funció, el codi s'introdueix a través de l'editor visual visual que es mostra a la pestanya desenvolupador.

Explicació

Diversos grups d’afirmacions s’utilitzen en el cas selecte. S’ha de seguir la sintaxi següent per utilitzar-la amb eficàcia. És similar a la sentència switch presentada en altres llenguatges de programació com Java, C # i PHP.

 Seleccioneu [Cas] Expressió per provar [Cas] Llista de sentències d'expressió (cas 1, cas 2, cas 3 i així successivament ...) Cas no (sentències) Finalitzar 

L’explicació dels termes associats al cas selecte es proporciona de la manera següent

Una expressió per provar: Cal avaluar els diferents tipus de dades, com ara sencer, cadena, booleà, objecte i caràcter.

Llista d'expressions: Es creen expressions amb el cas per trobar la coincidència exacta de l'entrada introduïda. Si hi ha més de dues expressions, aquestes se separen mitjançant l'operador de comes. "És" és una paraula clau que s'utilitza per comparar les dues expressions mitjançant els operadors lògics en excel com =,, =.

  • Selecció final: Tanca la definició de cas selecte del constructor
  • Declaracions: Les sentències es desenvolupen mitjançant el cas per executar les expressions que s’avaluen per analitzar si hi ha alguna sentència coincident
  • Declaracions d'altres: És provar la sentència else quan l'expressió de prova no coincideix amb cap sentència de cas.

Com s'utilitza la declaració de cas de VBA Select?

La característica de selecció de casos proporcionada per VBA no s’executa als fulls de treball normals. Hem d’utilitzar l’opció Visual Basic a la pestanya Desenvolupador. Funcions i codificació definides per l'usuari creades en mode desenvolupador per executar les diverses aplicacions petites del camp empresarial.

S'utilitza en situacions en què hi ha declaracions imbricades if en excel. És la millor opció per tractar una varietat de declaracions de casos. Per utilitzar aquesta opció de manera efectiva, s'han de realitzar les tasques següents

  • Primer de tot, cal crear una macro col·locant el control del botó d’ordres al full Excel.
  • Després feu clic amb el botó dret al botó d'ordres i seleccioneu l'opció de visualització del codi
  • Col·loqueu el codi entre la funció del botó d’ordres i el subfinit final
  • Depureu el codi per identificar els errors de sintaxi.
  • Compileu el codi per trobar errors de compilació per executar correctament el programa
  • Canvieu els valors d’entrada per observar diferents resultats en funció dels criteris de coincidència
Podeu descarregar aquesta plantilla Excel de casos VBA Select aquí - Plantilla Excel de casos VBA Select

Exemple 1: declaració de cas de selecció simple

Aquest exemple és per entendre el simple cas selectiu per trobar el valor coincident.

Codi:

 Private Sub Selcaseexmample () Dim A As Integer A = 20 Selecciona un cas A un cas 10 MsgBox "El primer cas coincideix!" Cas 20 MsgBox "El segon cas coincideix!" Cas 30 MsgBox "El tercer cas coincideix en Selecciona cas!" Case 40 MsgBox "El quart cas coincideix amb el cas selecte". Case Else MsgBox "Cap cas no coincideix!" Finalitzar Seleccionar Finalitzar sub 

Resultat:

S’utilitzen quatre sentències de cas i sentència de cas més per comparar l’expressió de la prova amb casos diferents. En el present exemple, el segon cas es fa coincidir amb la variable A coincideix amb 20.

Exemple 2: paraula clau "Per a" per provar les qualificacions

En aquest exemple s’explica l’ús de la paraula clau ‘A’ amb el cas select.

Codi:

 Private Sub Selcasetoexample () Enumereix les marques dels estudiants com a enter Studentmarks = InputBox ("Introduïu marques entre 1 i 100?") Seleccioneu les marques dels estudiants de casos Cas 1 a 36 MsgBox "Falla!" Cas de 37 a 55 MsgBox "Grau C" Cas de 56 a 80 MsgBox "Grau B" Cas de 81 a 100 MsgBox "Un grau" Cas en cas més MsgBox "Fora de l'abast" Final Selecciona Final Sub 

Resultat:

La paraula clau "To" és útil per definir el conjunt d'expressions de prova en un interval. És útil per trobar la nota obtinguda per un estudiant comparant els diferents casos. Després d’executar el programa, hem d’introduir el valor per obtenir el resultat.

La sortida es mostra amb un quadre de missatge tal com es mostra a la captura de pantalla anterior.

Exemple 3: utilitzar la paraula clau "És" amb majúscules i minúscules seleccionades

Aquest exemple mostra l'ús de la paraula clau "És" amb el cas selecte.

Codi:

 Sub CheckNumber () Dim NumInput As Integer NumInput = InputBox ("Introduïu un número") Seleccioneu Case NumInput Case Is = 200 MsgBox "Heu introduït un número superior o igual a 200" Final Seleccioneu End Sub 

La paraula clau "És" ajuda a trobar els valors coincidents només amb declaracions de majúscules i minúscules. Compara l'expressió de prova amb l'entrada donada per produir la sortida.

La sortida s’obté tal com es mostra a la figura si el valor introduït és superior a 200

Exemple # 4: amb el botó d'ordre per canviar els valors

El cas de selecció també s'utilitza amb el botó Ordre creant una macro.

Codi:

 Sub color () Color atenuat Com a color de cadena = Rang ("A1"). Valor Seleccioneu el color de la carcassa Cas "Vermell", "Verd", "Groc" Rang ("B1"). Valor = 1 Cas "Blanc", "Negre "," Marró "Interval (" B1 "). Valor = 2 Majúscules" Blau "," Blau cel "Interval (" B1 "). Valor = 3 Majúscules (" B1 "). Valor = 4 Final Selecciona Final Sub 

Com es mostra al programa, l'entrada es pren de les cel·les del full de treball. El programa s’executa després de fer clic al botó d’ordres utilitzat des dels controls ActiveX. En això, s’utilitza un separador de comes per combinar les expressions de prova.

Quan el valor de la cel·la A1 ha canviat, es produeix un canvi a la cel·la B1 també mitjançant l'execució de la macro excel mitjançant el botó d'ordre. Podeu consultar la captura de pantalla que es mostra a continuació: -

Exemple # 5: comproveu un número senar o parell

Aquest exemple per ajudar a comprovar un número és parell o senar.

Codi:

 Sub CheckOddEven () CheckValue = InputBox ("Introduïu el número") Seleccioneu Case (CheckValue Mod 2) = 0 Case True MsgBox "El número és parell" Case False MsgBox "El número és senar" Final Seleccioneu Final Sub 

La codificació es desenvolupa tal com es mostra a la captura de pantalla i la sortida es mostra de la següent manera quan s’introdueix un número parell.

Exemple # 6: declaracions de casos seleccionats imbricats

El nidificació és una característica útil del cas selecte i es mostra la manera com es fa.

Codi:

 Sub TestWeekday () Seleccioneu Case Weekday (Ara) Cas 1, 7 Seleccioneu Case Weekday (Ara) Cas 1 MsgBox "Avui és diumenge" Case Else MsgBox "Avui és dissabte" Final Seleccioneu Case Else MsgBox "Avui és un dia de setmana" Final Seleccioneu Final Sub 

Aquí el cas de selecció es defineix dins d’un altre cas de selecció per provar un dia, un dia de la setmana o un cap de setmana. Excepte el cas 1 i el 7 restants, tots els dies laborables (Nota: el cas 1 és diumenge i el cas 7 és dissabte)

Coses que cal recordar

  • La paraula clau "És" que s'utilitza a l'enunciat de [cas] i [cas altre] no és igual.
  • El control ActiveX s'ha d'utilitzar en l'execució del programa mitjançant un botó d'ordres que pren l'entrada i mostra la sortida al rang de cel·les del full Excel.
  • És difícil executar els programes a VBA si les macros estan desactivades i sempre permeten que les macros obtinguin els millors resultats.
  • VBA distingeix entre majúscules i minúscules i l’entrada s’ha d’introduir amb precisió per obtenir millors resultats.