Red de conocimiento informático - Material del sitio web - ¿Cómo utilizar VBA para encontrar todas las palabras que contienen palabras clave y llenar todas las filas con palabras clave en rojo?

¿Cómo utilizar VBA para encontrar todas las palabras que contienen palabras clave y llenar todas las filas con palabras clave en rojo?

Según el significado de la pregunta, la solución es la siguiente:

①Código del programa VBA:

Sub gjci()

Atenuar i1, i2, i3, i4, i5

En caso de error Reanudar Siguiente 'Ignorar errores que puedan ocurrir durante la operación

Establecer mysheet1 = ThisWorkbook.Worksheets("Hoja1") 'Definir Hoja1

mysheet1.Range("A2:J10000").Interior.Pattern = xlNone 'Primero configura A2:J10000 sin relleno

For i1 = 2 To 10000 'De la fila 2 a fila 10000Para i2 = 1 a 10 'De la segunda columna a la décima columna Si mysheet1.Cells(i1, i2) <> "" Entonces 'Si la celda no está en blanco, entonces

i3 = InStr( 1, mysheet1. Cells(i1, i2), mysheet1.Cells(1, 4)) 'Obtener la ubicación de la palabra clave

Si i3 > 0 Entonces 'Si la palabra clave existe, entonces las celdas en columnas 1 a 10 de esta fila Rellenar rojo

mysheet1.Range(mysheet1.Cells(i1, 1), mysheet1.Cells(i1, 10)).Interior.Color = RGB(255, 0, 0)

Salir para 'Salir del bucle For

Fin si Fin si siguiente

Siguiente

Fin Sub

Captura de pantalla del código del programa

②Los resultados antes y después de ejecutar el programa VBA son los siguientes:

Antes de que se ejecute el programa

Después de que se ejecute el programa

上篇: Introducción al juego de la actividad Dungeon & Fighter DNF Minotaur Paradise con imágenes y texto 下篇: La guía de puntuación más alta de eliminación de Tiantianai es una lectura obligada para que los principiantes avancen

Artículos populares