13/06/14 8:07
Buon Giorno a Tutti , mi chiamo Maurizio e vorrei chiedervi se poteste voi Riuscire a risolvere per mè questo Problema :
Allora il Discorso e Questo ; Io ho scritto questa Routine per riuscire a Risolvere per lo meno in Parte il Gioco Della Dama .
Ora non Pretendo che mi si faccia l'intero lavoro , lasciando a me il merito di tutto , in quanto non sarebbe giusto nei vostri confronti .
Però c'è qualcuno che mi Saprebbe dire il perchè in Questo mio listato riesco solo a far muovere le Pedine Blu e non gli entrambi scieramenti .
Cosa e come secondo Voi , dovrei Aggiungere o Fare per far si che le suddette Pedine ( Bianche e Blu ) si possano muovere in entrambi le direzioni sfruttando solo le diagonali !
Il Mio Piano di Gioco parte dalla Cella D5 fino alla Cella K12 .
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Riga = Selection.Row
Colo = Selection.Column
If (Cells(Riga, Colo) = "" Then
If ((Abs(Priga - Riga) = 1 And (Pcolo - Colo = -1)) Or ((Abs(Pcolo - Colo) = 1 And (Priga - Riga = -1)))) Then
Cells(Riga, Colo) = Cells(Priga, Pcolo)
Cells(Priga, Pcolo) = ""
If (Abs(Priga - Riga) = 1) Then
If ((Priga - Riga) > 0) Then
Cells(Priga - 1, Colo) = ""
Else
Cells(Riga - 1, Colo) = ""
End If
Else
If ((Pcolo - Colo) > 0) Then
Cells(Riga, Pcolo - 1) = ""
Else
Cells(Riga, Colo - 1) = ""
End If
End If
End If
Cells(Priga, Pcolo).Font.Color = -65536
End If
If (Cells(Priga, Pcolo).Locked = False) Then Cells(Priga, Pcolo).Font.Color = -65536
If ((Riga <> 1 Or Colo <> 1) And Cells(Riga, Colo) <> "" Then
Selection.Font.Color = -16776961
Priga = Riga
Pcolo = Colo
ElseIf (Not IsEMPTY(Priga) And Not IsEMPTY(Pcolo)) Then
Cells(Priga, Pcolo).Font.Color = -65536
End If
Mosse = Mosse + 1
If Mosse = 1 Then
Range("A15".Value = Str$(Mosse) + " Mossa"
Else
Range("N15".Value = Str$(Mosse) + " Mosse"
End If
End Sub
Grazie sin da Ora a tutti coloro che riusciranno a Darmi una Mano in Merito ; Sinceri saluti da A.Maurizio
(N.B) Invio File di Prova
Allora il Discorso e Questo ; Io ho scritto questa Routine per riuscire a Risolvere per lo meno in Parte il Gioco Della Dama .
Ora non Pretendo che mi si faccia l'intero lavoro , lasciando a me il merito di tutto , in quanto non sarebbe giusto nei vostri confronti .
Però c'è qualcuno che mi Saprebbe dire il perchè in Questo mio listato riesco solo a far muovere le Pedine Blu e non gli entrambi scieramenti .
Cosa e come secondo Voi , dovrei Aggiungere o Fare per far si che le suddette Pedine ( Bianche e Blu ) si possano muovere in entrambi le direzioni sfruttando solo le diagonali !
Il Mio Piano di Gioco parte dalla Cella D5 fino alla Cella K12 .
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Riga = Selection.Row
Colo = Selection.Column
If (Cells(Riga, Colo) = "" Then
If ((Abs(Priga - Riga) = 1 And (Pcolo - Colo = -1)) Or ((Abs(Pcolo - Colo) = 1 And (Priga - Riga = -1)))) Then
Cells(Riga, Colo) = Cells(Priga, Pcolo)
Cells(Priga, Pcolo) = ""
If (Abs(Priga - Riga) = 1) Then
If ((Priga - Riga) > 0) Then
Cells(Priga - 1, Colo) = ""
Else
Cells(Riga - 1, Colo) = ""
End If
Else
If ((Pcolo - Colo) > 0) Then
Cells(Riga, Pcolo - 1) = ""
Else
Cells(Riga, Colo - 1) = ""
End If
End If
End If
Cells(Priga, Pcolo).Font.Color = -65536
End If
If (Cells(Priga, Pcolo).Locked = False) Then Cells(Priga, Pcolo).Font.Color = -65536
If ((Riga <> 1 Or Colo <> 1) And Cells(Riga, Colo) <> "" Then
Selection.Font.Color = -16776961
Priga = Riga
Pcolo = Colo
ElseIf (Not IsEMPTY(Priga) And Not IsEMPTY(Pcolo)) Then
Cells(Priga, Pcolo).Font.Color = -65536
End If
Mosse = Mosse + 1
If Mosse = 1 Then
Range("A15".Value = Str$(Mosse) + " Mossa"
Else
Range("N15".Value = Str$(Mosse) + " Mosse"
End If
End Sub
Grazie sin da Ora a tutti coloro che riusciranno a Darmi una Mano in Merito ; Sinceri saluti da A.Maurizio
(N.B) Invio File di Prova