¿Qué significa juzgar en VB?

Esta parte del contenido puede ser un poco difícil de entender. Es posible que tengas que revisarla repetidamente antes de poder entenderla. Cuando estaba estudiando, la olvidé inmediatamente y luego comencé de nuevo. Entonces, antes de dominarlo, es posible que al principio no lo entienda bien.

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:

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.