|
Login
  • Page:
  • 1

TOPIC: Mescolare Tra di Loro degli Oggetti Simboli in VBA

Mescolare Tra di Loro degli Oggetti Simboli in VBA 4 years 9 months ago #10207

  • Maury1704
  • Maury1704's Avatar
  • OFFLINE
  • Expert Boarder
  • Posts: 91
  • Karma: 0
Buon Giorno a Tutti , Il mio problema e questo :
Su di un Foglio di Excel con office 2207 - Ho inserito dei Simboli Numerati dal 1 al 15 compreso il Numero 0 che corrisponde alla 16 Cella.

I Simboli Numerati sono stati presi direttamente dal Menu Sinboli del Foglio 1.

Li ho posizionati Ognuno nelle rispettive celle che vanno dalla Cella D4 alla Cella G7.

Ora il Mio problema e questo : E possibile far si che ; tutte le volte che premo un Pulsante Posizionato sul Foglio , Questi Simboli si Mescolino tra di loro in modo Random.

In quanto ho appena creato il Gioco dei 15 Numeri , che funziona molto bene ; Però ora volevo apportare una qualche modifica al gioco , facendo in modo che non siano i numeri a mescolarsi tra di loro ; Ma fossero proprio i Simboli a farlo.
Grazie per Tutto L'aiuto che riuscirete a Darmi in Merito Saluti da A.Maurizio

(P.s) Invio File di prova
Attachments:
The administrator has disabled public write access.

Mescolare Tra di Loro degli Oggetti Simboli in VBA 4 years 9 months ago #10220

  • Marius44
  • Marius44's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 185
  • Thank you received: 38
  • Karma: 14
Riallego il tuo file. Ho spostato il tuo riquadro inserendo al suo posto uno creato da me con un pulsante (Modulo, non ActiveX) associato ad una sub che ho inserito nel Modulo2



Prova e fai sapere se va bene. Ciao,
Mario
The administrator has disabled public write access.

Mescolare Tra di Loro degli Oggetti Simboli in VBA 4 years 9 months ago #10222

  • cromagno
  • cromagno's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 13
  • Thank you received: 3
  • Karma: 1
Ciao a tutti,
@Mario
ero curioso di vedere la tua soluzione ma purtroppo non riesco a vedere il tuo file allegato :dry:

@Maury1704
Ho provato con una serie di cicli perchè con la collection non riuscivo ad avere i valori corretti...
Comunque... è solo uno spunto, poi deciderai tu.

Il codice è questo:
Option Explicit

Sub mischia()
Dim i As Integer, j As Integer, x As Integer, casuale As Integer

Application.ScreenUpdating = False
x = 12
For i = 4 To 7
    For j = 4 To 7
        Cells(j, i).Copy Range("D" & x)
        x = x + 1
    Next j
Next i

For i = 12 To 27
    Do
        Randomize
        casuale = Int(Rnd() * 16) + 12
    Loop While Evaluate("COUNTIF(E12:E27," & casuale & ")")
    Range("E" & i).Value = casuale
Next i

For i = 12 To 27
    x = Range("E" & i).Value
    Range("D" & i).Copy Range("F" & x)
Next i

x = 12
For i = 4 To 7
    For j = 4 To 7
        Range("F" & x).Copy Cells(j, i)
        x = x + 1
    Next j
Next i

Range("D12:F27").Clear
Application.ScreenUpdating = True
End Sub

Ti lascio il file in allegato.
Devi premere sopra "l'ovale" con scritto "MESCOLA".

[edit]
non capisco perchè non mi allega il file :blink: :ohmy:

comunque, lo puoi scaricare da qui:
http://dropcanvas.com/03xwn
Last Edit: 4 years 9 months ago by cromagno.
The administrator has disabled public write access.

Mescolare Tra di Loro degli Oggetti Simboli in VBA 4 years 9 months ago #10223

  • Marius44
  • Marius44's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 185
  • Thank you received: 38
  • Karma: 14
Salve a tutti. Provo a riallegare il file.

@Cromagno
il codice è molto simile a quello che hai postato


File Attachment:

File Name: SpostNumSimb.xlsm
File Size: 26 KB
The administrator has disabled public write access.

Mescolare Tra di Loro degli Oggetti Simboli in VBA 4 years 8 months ago #10229

  • Maury1704
  • Maury1704's Avatar
  • OFFLINE
  • Expert Boarder
  • Posts: 91
  • Karma: 0
Scusami del Ritardo nel risponderti , ma anche io ho dei doveri verso la mia Famigli , in quanto tra il mio lavoro e la programmazione ; non guardo più nulla .
E rischio che un giorno o l'altro mi portano alla Trasmissione "chi la visto" .
Scherzi a parte ; Grazie infinite del tuo Intervento in quanto era proprio quello che stavo cercando di fare e che volevo.
Sei un mago ; Sinceri saluti da A.Maurizio
The administrator has disabled public write access.
  • Page:
  • 1
Time to create page: 0.609 seconds