Constellation Knowledge Network - Ziwei Dou Shu - ¿Cómo escribir el código EXCEL VBA para la disposición en forma de serpiente de la reunión deportiva?

¿Cómo escribir el código EXCEL VBA para la disposición en forma de serpiente de la reunión deportiva?

¿público? ¿Sub? mySub()

Por motivos de belleza, se diseña un formato simple. El grupo comienza con los cinco elementos.

¿Oscuro? ¿Línea de inicio? ¿Como? Entero

startLine? =?五

Dale a la hoja1 un alias para codificar.

¿Oscuro? ¿calle? ¿Como? Hoja de trabajo

¿Configuración? ¿calle? =?Paper("Paper 1")

Lee el número de personas y grupos.

¿Oscuro? ¿equipo? ¿gente? ¿Como? Entero

¿Equipo? =?Célula Santa(1,2).Valor

¿Personas? =?Holy Cell(2,2).Value

¿Para qué? ¿I? =?línea de inicio? ¿A dónde ir? ¿Línea de inicio? +?Equipo? -?1

Escribe el nombre del equipo

Holy Cell(i,1).¿Valor? =?"Equipo?"? y amplificador? Str(yo?-?startLine?+?1)

¿Siguiente? I

Flag se utiliza para generar una forma de serpiente, que es igual a uno de arriba a abajo; igual a uno negativo, y viceversa.

¿Oscuro? ¿bandera? ¿Como? Entero

¿Marca? =?1

Este es el parámetro de la barra de control.

¿Oscuro? Col actual? ¿Como? Entero

col actual? =?2

Este es el número de personal. En el bucle Do, agréguelos uno a la vez.

¿Oscuro? Persona actual? ¿Como? Entero

¿Persona actual? =?1

Este es el valor inicial y final del bucle for cada vez que se completa el número.

¿Oscuro? s,? ¿mi? ¿Como? Entero

Hacer

¿Si? ¿bandera? =?1?Entonces

s? =?1

e? =?Grupo

Otros

s? =?Grupo

e? =?1

¿Fin? Si

Empezar a rellenar números

¿Para qué? j? =?s? ¿A dónde ir? ¿mi? ¿paso? Bandera

St Cell(startLine?+?j?-?1,?currentCol). ¿valor? =?Persona actual

Persona actual? =?Persona actual? +?1

¿Siguiente? j

Después de completar una columna, ajuste los valores de las variables.

col actual? =?Col actual? +?1

¿Bandera? =?(-1)?*?Marca

Si? ¿Persona actual? >? ¿gente? ¿Entonces qué? ¿abandonar? Submarino

Anillo

¿Fin? Submarino

上篇: Prueba de nombres de Xiangziyang análisis de nombres puntuación de nombres adivinación de nombres 下篇: Se reveló que Guo Degang obtuvo una visa permanente para Australia y la rectificación de la industria del entretenimiento afectó al Deyun Club. ¿Qué opinas sobre esto?
Artículos populares