Así lo he hecho, he aceptado la segunda columna de anotación y he añadido una macro:
Private Sub Worksheet_Calculate()
Dim f As Long
Dim disparar As Boolean
' Si ya se disparó una vez, salimos
If Me.Range("XX2").Value <> "" Then Exit Sub
' Comprobamos si alguna W llegó a 2
For f = 2 To 6
If Me.Cells(f, "W").Value = 2 Then
disparar = True
Exit For
End If
Next f
' Si ninguna llegó a 2, no hacemos nada
If disparar = False Then Exit Sub
' Guardamos TODO el rango como base
For f = 2 To 6
Me.Cells(f, "XX").Value = Me.Cells(f, "W").Value
' Fórmula en Y restando su base
Me.Cells(f, "Y").FormulaLocal = _
"=CONTAR.SI.CONJUNTO(Datos!B:B;$V$1;Datos!D:D;$V" & f & ")" & _
"-CONTAR.SI.CONJUNTO(Datos!B:B;$V$1;Datos!E:E;$V" & f & ")" & _
"-XX" & f
Next f
End Sub
No es la opción más bonita porque sigue contando los objetos en la columna W, pero la función me resulta suficiente para poder llevar la cuenta.
Tendré que hacer una pequeña macro para cada jugadora, son 14, pero espero no tener problemas
Por
Maku, · publicado
Actualizaciones:
Versión 31.03.2012 17:50 -Cambio en la notación de las jugadas a modo mas "profesional"
Versión 02.04.2012 10:32 -Resolución incidencias del enroque
Versión 02.04.2012 20:43 -Resolución incidencias II del enroque
Hola:
¡¡¡ Tachán, tachán !!!
Aquí va la versión beta del Macroajedrez.
http://dl.dropbox.com/u/241435/MacroAjedrez Beta.xls
No contiene ni una sola fórmula,....jejeje.
Es algo distinto del de Pedro (Pegones1), he hecho mas incapié en el juego que en la visualización.
Falta pulir muchas cosas, por ejemplo, una notación mas "profesional" de las jugadas y el tema de "comer peón al paso".
También falta en su totalidad la parte de guardar las partidas para poder ser visionadas con posterioridad.
Como funciona:
Al abrir el archivo os encontrareis un tablero dispuesto a empezar una partida nueva, simplemente empezar a jugar.
Las jugadas irán apareciendo en los visores de jugadas de forma automática.
Los visores de jugadas son "sensibles" al cursor. Podeis cambiarlos de lugar y cerrar/abrir en cualquier momento.
Os rogaría que probeis todo lo que se os ocurra, sobre todo movimientos no permitidos con cualquiera de las piezas.
Pues nada, ya me contareis, si no es gusta, pues os aguantais, porqué a mi si,......jajaja
Saludos para todos.
Este aporte se lo dedico a Luis