Indirizzare Un Simbolo nelle varie Direzioni in Excel

[A.Maurizio]

Ciao ragazzi ; Ho ancora bisogno del vostro Aiuto , Per qui la mia Richiesta e questa :
Tenendo Presente che questo mio Listato lo Riadattato per Risolvere il problema della Dama Cinese .

E fino a qui nulla di Eclatante , però cercando di sfruttare questo mio concetto , come potrei dire al
programma che d'ora in avanti , ad ogni mio click del Mouse , le pedine vadano a vanti ; in Dietro ; Destra e
Sinistra ma in modo Diagonale ; Un pò come succede per il Gioco degli Scacchi .

Sò e Capisco che vi Potrà Sebrare una Richiesta un pochino Strana la mia .

Ma stà di fatto che forse , sono riuscito a trovare una formula alternativa dl gioco della Dama .
Soltanto che per provare il tutto , dovrei capire come far andare per diagonale in tutte le direzioni le
suddette pedine .

Grazie per tutto l'aiuto che riuscirete a darmi in merito ; Sinceri Saluti da A. Maurizio

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If (Not Intersect(Foglio1.Range("E5:L12"), Target) Is Nothing) And Target.Cells.Count = 1 Then
With Foglio1.Range("A10")
.Value = .Value + 1
End With
End If

Riga = Selection.Row
Colonna = Selection.Column
If (Flag And Selection.Borders.LineStyle = xlContinuous) Then
If (Cells(Riga, Colonna) = 2) Then
If ((Abs(PrimaRiga - Riga) = 2 And (Piccolo - Colonna = 0)) Or ((Abs(Piccolo - Colonna) = 2 And (PrimaRiga - Riga = 0)))) Then
Cells(Riga, Colonna) = Cells(PrimaRiga, Piccolo)
Cells(PrimaRiga, Piccolo) = ""
If (Abs(PrimaRiga - Riga) = 2) Then
If ((PrimaRiga - Riga) > 0) Then
Cells(PrimaRiga - 1, Colonna) = ""
Else
Cells(Riga - 1, Colonna) = ""
End If
Else
If ((Piccolo - Colonna) > 0) Then
Cells(Riga, Piccolo - 1) = ""
Else
Cells(Riga, Colonna - 1) = ""
End If
End If
End If
ElseIf (Not IsEmpty(PrimaRiga) And Not IsEmpty(Piccolo)) Then
'Cells(PrimaRiga, Piccolo).Font.Color = -65536
End If
ElseIf (Not IsEmpty(PrimaRiga) And Not IsEmpty(Piccolo)) Then
If (Cells(PrimaRiga, Piccolo).Locked = False) Then Cells(PrimaRiga, Piccolo).Font.Color = -65536
End If
Flag = False
If ((Riga <> 1 Or Colonna <> 1) And Cells(Riga, Colonna) <> "") Then
'Selection.Font.Color = -16776961
Flag = True
PrimaRiga = Riga
Piccolo = Colonna
ElseIf (Not IsEmpty(PrimaRiga) And Not IsEmpty(Piccolo)) Then
'Cells(PrimaRiga, Piccolo).Font.Color = -65536
End If
End Sub

(N.B) Approposito avete già guardato il mio file che vi ho inviato , da Scaricare e valutare , con il mio
Nuovo Link

[A.Maurizio]

Ciao a Tutti : Per tutti coloro che vogliono visualizzare la Mia Dama Cinese possono scaricare il Tutto usando questo Link : http://d.pr/f/pyqj
Vi Pregherei Gentilmente di darmi un vostro parere in Merito ; anche sè sò da me , che ho ancora molto da Imparare da Voi .
Sinceri saluti da A. Maurizio

[Anthony47]

La domanda "dovrei capire come far andare per diagonale in tutte le direzioni le
suddette pedine" non ha mai avuto una risposta, ne' uno spunto da cui partire... ci provo adesso.
Non so che interfaccia hai poi adottato sul tuo gioco, pero' potesti usare i numeri del tastierino numerico (quelli attorno al 5) per indicare la direzione di mossa della pedina selezionata.
Per questo dovresti usare una macro che imposta degli OnKey. Es:

Codice: Seleziona tutto

Sub Inizia()
OnKey "8", "Alto"
OnKey "9", "AltoDx"
OnKey "6", "Destra"
'Etc etc
End Sub


Alto, AltoDx, Destra (e le altre che fanno parte di Etc etc) sono macro che verranno eseguite quando, dopo aver eseguito inzialmente la macro Inizia, vengono pigiati i relativi tasti.
In queste macro dovrai controllare se la mossa e' lecita e quindi eseguirla.

E' solo uno spunto, ma mi sembri caparbio quanto basta per lavorarci su...

Quanto al gioco che hai condiviso, perdona, ma non sono in grado di fare commenti (salvo il classico "macro che funziona = cosa buona"), un po' per mancanza di tempo e un po' perche' non avendo grande esperienza del gioco non saprei nemmeno capire gli obiettivi della macro quindi (figuriamoci!) nemmeno delle modalita' di esecuzione.

Ciao

[ricky53]

Ciao,
il link che hai inserito non consente di scarica il file dando il messaggio di pagina non trovata

[A.Maurizio]

Ciao Anthony Grazie per la tua Puntualizzazione nel avermi fatto capire il perchè di questo vostro silenzio improvviso nei miei confronti .
E un Ulteriore grazie per avermi gentilmnte offerto questo spunto per risolvere questo problema .
E un Grazie anche al tuo amico ricky33 per la sua puntualizzazione sul fatto che non riesce ascaricare ho a visualizzare il mio Link ; ora chiederò informazioni e vedrò di risolvere tale problema .
Sinceri saluti a Tutti da A.maurizio