|
Login
  • Page:
  • 1
  • 2

TOPIC: Come Spostare in Tutte le direzioi una Figura in E

Come Spostare in Tutte le direzioi una Figura in E 7 years 7 months ago #8768

  • p3pq3
  • p3pq3's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 175
  • Thank you received: 28
  • Karma: 10
Ciao,
scusa se rispondo solo adesso, per fare quello che chiedi puoi provare prendendo spunto dal codice seguente, dove vado a intercettare l'evento doppio click

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ScreenUpdating = False
Application.EnableEvents = False
Selection.Cut 'taglia il valore presente nella casella selezionata
ActiveCell.Offset(-1, 1).Select ' si sposta sulla diagonale verso l'alto
ActiveSheet.Paste ' incolla il valore presente nella casella selezionata
Application.EnableEvents = True
ScreenUpdating = True
End Sub
The administrator has disabled public write access.
The following user(s) said Thank You: Maury1704

Come Spostare in Tutte le direzioi una Figura in E 7 years 7 months ago #8769

  • Maury1704
  • Maury1704's Avatar
  • OFFLINE
  • Expert Boarder
  • Posts: 91
  • Karma: 0
Nessue Scuse capeisco da me che anche tu come tutti noi abbiamo dei Impegni Per qui :
Grazie Infinite p3pq3 Come Sempre Sei un Grande , Era proprio quello che stavo cercando per tentare di andare avanti con il mio Progetto .
Ora non ti nego che queste mie richiste non fanno altro che Tentare di trovare il modo Sicuramente Poco Consono alla realtà , Ma spero di avvicinarmi il più possibile Per Creare a Modo mio il gico della Dama.
non sò sè ci riuscirò mai ; Ma nè vale la pena tentare , no !
Grazie ancora di tutto , Sinceri saluti e buon fine Settimana da A.Maurizio
The administrator has disabled public write access.

Come Spostare in Tutte le direzioi una Figura in E 7 years 6 months ago #8857

  • Maury1704
  • Maury1704's Avatar
  • OFFLINE
  • Expert Boarder
  • Posts: 91
  • Karma: 0
Ciao P3PQ3 sono Maurizio Ascolta , ti chiedo un ultima cortesia , ed e questa : In questo tuo Intervento che devo dire che a me piace molto , nasce un problema che senza il tuo Aiuto non riesco a risolvere .
Il Problema e questo : Ho potuto constatare in questo tuo Programmino che (Ripeto) Funziona Benissimo , a patto che Io agisca con un Colore di fondo delle celle in questione di Colore Bianco .
Mentre sé io ho un Tracciato di colore Verde ho Nero , tanto per intenderci ! E vero che l'oggetto simbolo viene spostato Egregiamente , Pero la cella di Partenza Perde il Colore di fondo e diventa bianco , Perché ! come posso ovviare a tutto ciò ?
Se il mio Tracciato e di colore Nero Vorrei in poche parole che continuasse ad essere Nera sia la base di Partenza che quella d'arrivo dell'avvenuto Spostamento .
Grazie sin da ora per tutto l'aiuto che riuscirai a darmi in merito , Nel frattempo ti porgo i miei più sinceri saluti da A.Maurizio
The administrator has disabled public write access.

Come Spostare in Tutte le direzioi una Figura in E 7 years 6 months ago #8859

  • p3pq3
  • p3pq3's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 175
  • Thank you received: 28
  • Karma: 10
Invece che usare il taglia/incolla, si può memorizzare il valore della cella in una variabile e assegnarlo alla nuova cella, cancellando il contenuto della cella di origine

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ScreenUpdating = False
Application.EnableEvents = False
t = Target.Value
Selection.ClearContents
ActiveCell.Offset(-1, 1).Select ' si sposta sulla diagonale verso l'alto
Selection.Value = t
Application.EnableEvents = True
ScreenUpdating = True
End Sub
The administrator has disabled public write access.

Come Spostare in Tutte le direzioi una Figura in E 7 years 6 months ago #8860

  • Maury1704
  • Maury1704's Avatar
  • OFFLINE
  • Expert Boarder
  • Posts: 91
  • Karma: 0
Grazie.....! Infinite P3Pq3 Sei a dir poco un Genio , Spero di tutto cuore che nella vita ti vada sempre tutto bene in quanto te lo meriti veramente , Sinceri saluti da A.Maurizio
The administrator has disabled public write access.
  • Page:
  • 1
  • 2
Time to create page: 0.377 seconds