Red de conocimiento informático - Problemas con los teléfonos móviles - Selección de la lista de programación Vba

Selección de la lista de programación Vba

Parece simple, pero en realidad es muy problemático. .

¡El principal problema radica en el requisito de que "estos tres números pueden estar en líneas diferentes"!

El siguiente es el proceso de VBA que escribí. Compruébelo usted mismo ~ ~

Sub JSabc()

Este proceso de cálculo lo proporciona el usuario de Baidu Changshan Dabao.

Copia el proceso a la ventana de código VBA correspondiente a la hoja de trabajo.

Ejecute este proceso directamente en la ventana del código VBA para obtener los datos que necesita el cartel.

Los números de fila de la primera y última fila en el rango real de la celda de la columna "A" reemplazan el rango circular de I 1 y 13 respectivamente.

Para I = 1 a 13

Los números de fila de la primera y última fila en el rango real de la celda de la columna 'B' reemplazan el rango circular de J 1 y 13 respectivamente.

Para J = 1 a 13

Los números de fila de la primera y última fila en el rango real de la celda de la columna "c" reemplazan el rango circular de k 1 y 13 respectivamente .

Para K = 1 a 13

Reemplace las columnas A, B y C a continuación con los números de columna realmente involucrados en el cálculo.

Si la condición satisface A B=C (se permiten filas diferentes), ejecute las declaraciones que contiene.

Si Range(" A " ampI) Range(" B " amp; j) = Range (" C " amp; k) entonces

Utilice el valor X para determinar qué columna de E Una línea tiene una línea en blanco.

X = 1' Juez desde la primera línea.

Hacer mientras X gt "0" ingresa al bucle Do.

Si range(" E " ampX) = " "Entonces

"Exit Do" sale del proceso Do cuando aparece una celda vacía.

Otro

X = X 1 'En caso contrario, pasa a la siguiente línea.

Terminará si...

Anillo

Rellena los datos que cumplan las condiciones en las celdas en blanco de la primera fila de las columnas E, F y G respectivamente.

Rango(" E "ampx) = Rango(" A "amp;i)

Rango(" F "ampx) = Rango(" B "amp;j)

p>

Rango(" G " ampx) = Rango(" C " amp;k)

Salir de la declaración if

Si... fin

Leer el siguiente valor k hasta 13.

Siguiente K

Lee el siguiente valor de j hasta 13.

Siguiente J

Lee el siguiente valor I hasta el 13.

Siguiente yo

Conector final