¿Quién puede decirme el significado de este código Excel VBA?
Dimensiones I, l, m, n
Hoja21. celúla. Borre las celdas de la hoja de cálculo como vacías.
l = formulario de usuario 15. cuadro combinado 1. valor de la variable l es igual al valor del cuadro de lista.
I= hoja5. rango ("A65536"). FINAL(XLUP). La variable de fila I es igual al número máximo de celdas no vacías en la columna a.
m = aplicación. SheetFunction.CountIf(Sheet5.Range("m3:m"&i),l) Función de estadísticas de la hoja de trabajo, basada en Sheet5. Range(" m3:m " & amp:m " & amp; 1) Estadísticas
Llamar al proceso de solicitud de compensación de inventario limpieza de inventario
N = hoja 12. Range("G65536"). End(XLUP). Fila+1 variable n es igual al número máximo de celdas no vacías en la columna g
Si i<>""y m>0 entonces si I=" "o m es 0. . /p>
Página 5. range("a2:n" & range("A65536"). end(XLUP). fila): = LLas siguientes son las condiciones del filtro. Si no está familiarizado con él, puede consultar /office/VBA/API/Excel
Página 5. 5 páginas Rango("A65536"). Rango("A1"). range("a65536").row-1<=sheet12.end(xlup).si la fila más grande no vacía de la columna A es menor que la fila más grande no vacía de la columna B, ejecute el siguiente código de bucle
Para I = 2 en la hoja 21. end(XLUP). p>
Sheet12.Range("c"&n)=Sheet21.Range("b"&I)Asignación de área de celda
Hoja12. .Range("d"&n)=Hoja21. (" c " &i)
Hoja12.range("e"&n) = Hoja21.range("d"&i)
Hoja12. " & ampn) = Hoja21. Rango(" e " & amp i)
Hoja12. Rango(" g " & ampn) = Hoja21. Rango(" f " & amp i)
Hoja12.range("h"&n) = Hoja21.range("g"&n)
Hoja12.range("h"&n) = Hoja21 "&n). /p>
Hoja12. rango(" j " & ampn) = Hoja21. range(" n " &i)
Hoja12. Rango("d3") = Hoja21. range(" I " & i)
Hoja12. Rango("f3") = Hoja21. range(" j " &i)
Hoja12. Rango("i3") = Hoja21. range(" a " &i)
Hoja12. Rango(" d " & ampSheet12. Rango(" b65536 "). Fin(xlUp). Fila) = Hoja21. rango(" k " &i)
Hoja12. Rango(" j " & ampSheet12. Rango(" b65536 "). Fin(xlUp). Fila) = Hoja21. range(" l " &i)
Hoja12. Rango("i2") = Hoja21.
Rango (" m " & amp i)
n = n + 1
Luego
Cuadro de mensaje emergente "¡Consulta completada!" >
Otros
MsgBox "Los datos son demasiado grandes, ¡aumente el número de líneas del documento!" Un cuadro de mensaje emergente
Terminará si...
Página 5. range(" a2:n " & página 5. range(" a65536 "). end(xlUp). fila).
Filtrado automático
Otros
MsgBox "¡El número de pedido que ingresaste es incorrecto!"
Terminará si...
Fin conector