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
   

2. There’s an interesting application written very concisely. Thanks for posting, Jan.

---

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