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



Private Sub CmdAvanti_Click()
Dim NumeroCasuale As Integer
Dim StrTemp As String * 1

If OptSequenziale.Value = True Then
If RigaDomanda < DomandeTotali Then
RigaDomanda = RigaDomanda + 1
Call LeggiDomanda(RigaDomanda)
Call AzzeraOpzioni
End If
ElseIf OptCasuale.Value = True Then
Me.MousePointer = 13

Do
Randomize Timer
NumeroCasuale = Int((DomandeTotali * Rnd) + 1)

StrTemp = Foglio1.Cells(NumeroCasuale, 8)
Loop While (LCase(StrTemp) = "x")

RigaDomanda = NumeroCasuale
Call LeggiDomanda(RigaDomanda)
Call AzzeraOpzioni

Me.MousePointer = 0
End If

Call AggiornaCombo
DomandaDaVerificare = 0
CmdVerificaRisposta.SetFocus
End Sub 

Option Explicit

      Declare Function SetTimer Lib "user32" _
            (ByVal hwnd As Long, _
            ByVal nIDEvent As Long, _
            ByVal uElapse As Long, _
            ByVal lpTimerFunc As Long) As Long

      Declare Function KillTimer Lib "user32" _
            (ByVal hwnd As Long, _
            ByVal nIDEvent As Long) As Long

      Global iCounter As Integer

      Sub TimerProc(ByVal hwnd As Long, _
                     ByVal uMsg As Long, _
                     ByVal idEvent As Long, _
                     ByVal dwTime As Long)

          iCounter = iCounter + 1
          Form1.Text1.Text = CStr(iCounter)
      End Sub

					5.Copiare il codice seguente nella finestra del codice di Form1:
      Option Explicit
      Dim lngTimerID As Long
      Dim BlnTimer As Boolean

      Private Sub Form_Load()
         BlnTimer = False
         Command1.Caption = "Start Timer"
      End Sub

      Private Sub Command1_Click()
      'Starts and stops the timer.

         If BlnTimer = False Then
            lngTimerID = SetTimer(0, 0, 200, AddressOf TimerProc)
            If lngTimerID = 0 Then
              MsgBox "Timer not created. Ending Program"
              Exit Sub
            End If
            BlnTimer = True
            Command1.Caption = "Stop Timer"
         Else
            lngTimerID = KillTimer(0, lngTimerID)
            If lngTimerID = 0 Then
               MsgBox "couldn't kill the timer"
            End If
            BlnTimer = False
            Command1.Caption = "Start Timer"
          End If

      End Sub

Private Sub Form_Load()
deve diventare
Private Sub UserForm_Initialize()

e

Private Sub Command1_Click()
deve diventare
Private Sub CommandButton1_Click()

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 = ActiveSheet.Range("A2:A20") '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

Private Sub CmdAvanti_Click()
Dim NumeroCasuale As Integer
Dim StrTemp As String * 1

If OptSequenziale.Value = True Then
If RigaDomanda < DomandeTotali Then
RigaDomanda = RigaDomanda + 1
Call LeggiDomanda(RigaDomanda)
Call AzzeraOpzioni
End If
ElseIf OptCasuale.Value = True Then
Me.MousePointer = 13

Do
Randomize Timer
NumeroCasuale = Int((DomandeTotali * Rnd) + 1)

StrTemp = Foglio1.Cells(NumeroCasuale, 8)
Loop While (LCase(StrTemp) = "x")

RigaDomanda = NumeroCasuale
Call LeggiDomanda(RigaDomanda)
Call AzzeraOpzioni

Me.MousePointer = 0
End If

Call AggiornaCombo
DomandaDaVerificare = 0
CmdVerificaRisposta.SetFocus
End Sub  

Sub Mischia() 'mischia tutte le righe del foglio
'richiede come parametro la stringa del nome del foglio
Dim i As Long, riga As Long, ultima As Long, rr As Long, temp As Long, Sh As Worksheet
    Set Sh = ThisWorkbook.Sheets(1)
    With Sh
        ultima = Range("A1").End(xlDown).Row 'Ultima riga occupata del foglio
        temp = ultima + 1 'riga di "appoggio" che uso per mischiare
        For riga = 2 To ultima - 1 'dalla prima alla penultima riga
            Do
                rr = Int((ultima * Rnd) + 1) 'scelgo una riga a caso
            Loop Until rr > riga 'se è una riga gia mischiata ripeto il passo precedente
            Cells(riga, 1).EntireRow.Copy Destination:=Cells(temp, 1) 'copio la riga da mischiare nella riga di appoggio
            Cells(rr, 1).EntireRow.Copy Destination:=Cells(riga, 1) 'copio la riga scelta a caso sulla riga da mischiare
            Cells(temp, 1).EntireRow.Copy Destination:=Cells(rr, 1) 'copio la riga di appoggio sulla riga scelta a caso
        Next riga 'passa alla successiva riga da mischiare
        Cells(temp, 1).EntireRow.ClearContents 'cancello la riga di appoggio
    End With 'Sh
    Set Sh = Nothing
End Sub
 

Option Explicit

Sub shuffle()
'Creo una colonna di appoggio, ma adiacente alla tabella dati (inserisco una colonna prima di A),
'la riempio con dei numeri casuali, effettuo l'ordinamento della tabella sulla base di tale colonna,
'infine elimino la colonna A perchè non serve più.
Dim tot As Long

    tot = [COUNTA(A:A)]
    [A1].EntireColumn.Insert
    [A1] = "TEMP"
    
    Randomize Timer
    With Range(Cells(2, "A"), Cells(tot - 1, "A"))
        .Formula = "=RAND()"
        .Value = .Value
    End With
    
    [A1].CurrentRegion.Sort key1:=[A1], header:=xlYes
    [A:A].EntireColumn.Delete

End Sub