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:

Posibles partidos de fútbol en Excel VBA

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:

Posible resultado de partidos de fútbol

Nota: La columna C se centra manualmente para este resultado.

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Subir

Esta página utiliza Cookies. Más info