Este tutorial demostrará cómo usar comodines en VBA.
Los comodines se utilizan en todos los lenguajes de programación y aplicaciones de bases de datos como SQL Server. Un comodín se puede definir como un símbolo que se utiliza para reemplazar uno o más caracteres en una cadena de texto. Por ejemplo, esta cadena de texto - "mo *" - encontrará las palabras mamá, ratón, alce, mamá, etc. mientras que esta cadena de texto "mo?" ¿Solo encontrará la palabra mamá como comodín? reemplaza solo un carácter.
Usamos comodines con el operador Like, que es una alternativa más fácil a VBA Regex.
Usando el comodín Asterix (*) en VBA
El comodín Asterix reemplaza uno o más caracteres en una cadena VBA.
Veamos el siguiente rango de celdas en Excel:
Al usar un comodín Asterix en nuestro código VBA, podemos encontrar todos los nombres que comienzan con "M" y cambiar el color del texto a rojo.
| 12345678 | Sub CheckForM ()Dim x como enteroPara x = 3 a 8Si Rango ("B" & x) .Valor como "M *" EntoncesRango ("B" y x) .Font.Color = vbRedTerminara siSiguiente xEnd Sub |
Por lo tanto, recorrimos el rango y encontramos todos los nombres que comienzan con la letra M, ya que nuestra cadena comodín es "METRO*”
El resultado de ejecutar el código anterior se muestra a continuación.
Si usáramos la cadena comodín “Ma *”, solo cambiarían los primeros nombres en B3 y B4.
Uso del comodín de signo de interrogación (?) En VBA
El signo de interrogación reemplazará un solo carácter en una cadena de VBA.
Considere los siguientes datos:
Podemos usar la cadena comodín "? Im" para encontrar los nombres que terminen en "im"
| 12345678 | Sub CheckForIM ()Dim x como enteroPara x = 3 a 8Si Range ("B" & x) .Value Like "? Im" EntoncesRango ("B" y x) .Font.Color = vbRedTerminara siSiguiente xEnd Sub |
El resultado de ejecutar este código se muestra a continuación:
Usar [lista de caracteres] como comodín
El ejemplo anterior se puede modificar ligeramente para permitirnos usar el signo de interrogación, además de una lista de caracteres permitidos. Por lo tanto, la cadena comodín puede modificarse a "? [E-i] m" donde el primer carácter puede ser cualquier cosa, el segundo carácter debe ser un carácter entre eey y la última letra debe ser el carácter "m". Solo se permiten 3 caracteres.
| 12345678 | Sub CharListTest ()Dim x como enteroPara x = 3 a 8Si Range ("B" & x) .Value Like "? [E-i] m" EntoncesRango ("B" y x) .Font.Color = vbRedTerminara siSiguiente xEnd Sub |
El resultado de este código sería:
Programación VBA | ¡Code Generator funciona para usted!
Usando el comodín hash (#) en VBA
El comodín hash (#) reemplaza un solo dígito en una cadena VBA. Podemos emparejar entre 0 y 9.
| 12345678910 | Sub CheckForNumber ()Dim x como entero, y como enteroPara x = 3 a 8Para y = 2 a 5Si ActiveSheet.Cells (x, y) Like "##" EntoncesActiveSheet.Cells (x, y) .Font.Color = vbRedTerminara siPróximo añoSiguiente xEnd Sub |
El código anterior recorrerá todas las celdas del Rango (“B3: E8”) y cambiará el color del texto en una celda a ROJO si se encuentra un número de dos dígitos en esa celda.
En el siguiente ejemplo, el código solo cambiará el número si el último número es un 9.
| 12345678910 | Sub CheckFor9 ()Dim x como entero, y como enteroPara x = 3 a 8Para y = 2 a 5Si ActiveSheet.Cells (x, y) Like "# 9" EntoncesActiveSheet.Cells (x, y) .Font.Color = vbRedTerminara siPróximo añoSiguiente xEnd Sub |
