Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Indirizzare Un Simbolo nelle varie Direzioni in Excel

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Indirizzare Un Simbolo nelle varie Direzioni in Excel

Postdi A.Maurizio » 05/05/14 08:19

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
Utente Senior
 
Post: 116
Iscritto il: 02/08/13 15:39

Sponsor
 

Re: Indirizzare Un Simbolo nelle varie Direzioni in Excel

Postdi A.Maurizio » 13/05/14 17:27

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
A.Maurizio
Utente Senior
 
Post: 116
Iscritto il: 02/08/13 15:39

Re: Indirizzare Un Simbolo nelle varie Direzioni in Excel

Postdi Anthony47 » 22/05/14 00:00

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Indirizzare Un Simbolo nelle varie Direzioni in Excel

Postdi ricky53 » 22/05/14 09:32

Ciao,
il link che hai inserito non consente di scarica il file dando il messaggio di pagina non trovata
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Indirizzare Un Simbolo nelle varie Direzioni in Excel

Postdi A.Maurizio » 23/05/14 11:29

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
A.Maurizio
Utente Senior
 
Post: 116
Iscritto il: 02/08/13 15:39


Torna a Applicazioni Office Windows


Topic correlati a "Indirizzare Un Simbolo nelle varie Direzioni in Excel":


Chi c’è in linea

Visitano il forum: alfrimpa, Marius44, patel e 3 ospiti