¿Qué significa juzgar en VB?
Pongamos un ejemplo para ilustrar lo que vamos a presentar hoy. A menudo encontramos algunos datos y luego utilizamos el formato condicional para realizar algún procesamiento, como la puntuación, si es inferior a 60 puntos, los mostraremos en rojo y dejaremos todo lo demás sin cambios. Luego usaremos VBA para lograrlo hoy: si la puntuación es inferior a 60, entonces la columna 60 mostrará las palabras: Para mejorar: 59 (59 es la puntuación real de la persona)
El código es de la siguiente manera: p>
Sub ejemplo()
Con ThisWorkbook.Worksheets(1)
maxrow = .UsedRange.Rows.Count
Para i = 2 Para maxrow
Si .Cells(i, 2).Value lt; 60 Entonces
.Cells(i, 2).Value = "Para mejorar:" & .Cells( i , 2).Value
Fin si
Siguiente
Fin con
Fin Sub
Cuando ejecuta el programa después de completar las puntuaciones en la segunda línea, todos pueden ver los cambios.
¿Aún no lo entiendes a estas alturas? Esto no es muy diferente a estudios anteriores. Que no cunda el pánico, sigamos leyendo.
Si solo queremos determinar si el contenido de la celda A2 es menor a 60, si es menor a 60 entonces cambia el contenido a: no calificado (puntos). Consulte el código:
sub celljudge()
con thisworkbook.worksheets(1).cells(1,2)
if.valuelt;
.value="Fail ("amp; .value amp;")"
Finalizar si
terminar con
Finalizar sub
Esto es para juzgar una sola celda, pero si el jefe te pide que juzgues otra, como A5, entonces tendremos que reescribirla. Un día el jefe agregará otra columna por capricho y. entonces nos volveremos locos. ¡No, no puedes hacerlo ni una sola vez! ¿Finalizado? El jefe definitivamente dirá: "¿No puedes terminarlo de una sola vez?"
En este momento realmente hemos llegado al enfoque de hoy. VBA debe tener una forma de resolver los requisitos anteriores. De hecho, el jefe no está exagerando en absoluto ~~ La solicitud del jefe no es más que especificar una celda y luego emitir un juicio. Cumplámoslo.
El siguiente programa se divide en dos partes. Los estudiantes interesados pueden copiar directamente el código fuente para probar sin cambiar ninguna palabra a continuación (incluido el chino)~~
sub juez (la celda designada. por el jefe)
Usa la 'celda designada por el jefe' para escribirlo directamente en chino sin cambiar nada
si .value lt 60 entonces
.value = "Fail (" amp; .value amp; ")"
terminar si
terminar con
Fin sub
sub celljudge()
con thisworkbook.worksheets(1)
Llamar al juez(.range("A2"))
Llamar al juez(.range (" A5"))
terminar con
end Sub
OK, la parte del código termina. Si el jefe necesita verificar qué celda nuevamente, simplemente escriba "llamar al juez(.range("qué celda")) "después del segundo fragmento de código. Entonces ejecútelo.
A través del código anterior, creo que todos deben haber descubierto algo, es decir, finalmente se usa entre corchetes del subnombre (). Entonces, ¿qué hace esto?
Esta parte del programa donde juzgamos (la celda especificada por el jefe) se llama subrutina. Entonces haz la llamada. Deje que las celdas posteriores se ejecuten de acuerdo con la subrutina.
Llamar es un vocabulario propietario de VBA, que significa llamar. Cuando VB se ejecute aquí, ejecutará la subrutina Judge.