2 thoughts on “Fun with Excel; A Wheel Of Fortune

  1. Hi JK,

    Thank you for providing an outstanding example to illustrate the use of an arraylist:

    Sub M_snb()
           [Z1:Z300] = "=rand()"
           sn = [transpose(rank(Z1:Z300,Z1:Z300))]
    
           With CreateObject("system.collections.arraylist")
              For j = 1 To 44
                 .Add sn(j)
              Next
    
              For j = 0 To 17
                [I6:I31] = Application.Transpose(.getrange(j, 26).toarray)
                Application.Wait DateAdd("s", 1, Now)
              Next
        End With
       End Sub
    


Posting code? Use <pre> tags for VBA and <code> tags for inline.

Leave a Reply

Your email address will not be published.