Mischiare numeri

Hai un problema con Excel?

Nuova discussione

Mischiare numeri
di Andrea86 (utente non iscritto) data: 20/07/2010
Ciao a tutti;
devo riuscire a mischiare una tabella di 90 numeri; ho provato a cercare qualche formula ma non ho trovato un sistema; se sapete come posso fare aiutatemi, grazie

ciao andrea

di Enzo (utente non iscritto) data: 21/07/2010
Utilizza l'istruzione qui sotto in una macro
prima evidenzi la colonna contenente i numeri che vuoi mischiare
poi fai partire l'istruzione qui sotto
fa sapere se va bene

sub mischia ()
Dim c As Range
    Dim i As Integer
    Dim j As Integer
    Dim kk As Integer
    Dim Swap As String
    Dim NRighe As Integer
    Dim NColonne As Integer
    
    Set c = Selection
    NColonne = c.Columns(c.Columns.Count).Column - c.Column + 1
    NRighe = c.Rows(c.Rows.Count).Row - c.Row + 1
    If NColonne = 1 Then
    Randomize
    For kk = 1 To NRighe * 5
        i = Int((NRighe * Rnd) + 1)
        j = Int((NRighe * Rnd) + 1)
        Swap = c.Cells(i, 1).Value
        c.Cells(i, 1).Value = c.Cells(j, 1).Value
        c.Cells(j, 1).Value = Swap
    Next
    End If
end sub

di Enzo (utente non iscritto) data: 21/07/2010
...funziona per colonna
di Andrea86 (utente non iscritto) data: 21/07/2010
Sei grande funziona benissimo grazie!!!!!

Vuoi Approfondire?