¿Cómo escribir el código EXCEL VBA para la disposición en forma de serpiente de la reunión deportiva?
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