Posibles partidos de fútbol en Excel VBA
buen día, mi nombre es Miguel y esta vez os traigo un nuevo artículo.
A continuación veremos un programa en Excel VBA que muestra una vista previa de impresión de todos los archivos posibles partidos de fútbol de una lista de equipos.
Localización:
1. Primero, declaramos un objeto Range y cuatro variables. Llamamos al objeto Range rng. Una variable de cadena que llamamos matchname y tres variables enteras que llamamos contador, es decir, j.
Oscuro rng Cómo Alcance, nombre del juego Cómo Cuerda, encimera Cómo Entero, me Cómo Entero, j Cómo Entero
2. Inicializamos rng con los nombres de los equipos. Usamos CurrentRegion porque no conocemos de antemano los límites exactos del rango (queremos que este programa funcione para 3 computadoras pero también para 12 computadoras). Inicializamos el contador con el valor 0.
Colocar rng = Rango ("A1"). Región actual
contador = 0
3. Escribimos todos los partidos de fútbol posibles en la columna C. Primero, vaciamos la columna C.
Hojas de trabajo (1) .Columnas (3) = ""
4. Comenzamos un ciclo doble.
Para i = 1 Para rng.Conto
Para j = yo + 1 Para rng.Count
5. Escribimos un nombre de coincidencia en la variable de nombre de coincidencia.
matchname = rng.Cells (i) .Value & "vs" & rng.Cells (j) .Value
Por ejemplo, para i = 1 ej = 2, Excel VBA escribe el nombre del juego Kickers vs Shooters. Para i = 1 ej = 3, Excel VBA escribe el nombre del juego Kickers vs Little Giants, y así sucesivamente.
6. Escribimos el nombre del juego en la columna C.
Celdas (contador + 1, 3) .Valor = nombre del juego
7. El contador rastrea el número de nombres de coincidencia escritos en la columna C. Excel VBA aumenta el contador en 1 cada vez que escribe un nombre de coincidencia en la columna C. Para lograr esto, agregue la siguiente línea de código:
contador = contador + 1
8. No olvide cerrar los dos empates.
Entonces j
Entonces me
9. Mostramos un avance de todos los partidos de fútbol posibles.
ActiveSheet.Columns (3) .PrintPreview
10. Pruebe el programa.
Parte del resultado:
Nota: La columna C se centra manualmente para este resultado.
Deja una respuesta