One thought 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)
              For j = 0 To 17
                [I6:I31] = Application.Transpose(.getrange(j, 26).toarray)
                Application.Wait DateAdd("s", 1, Now)
        End With
       End Sub

Leave a Reply

Your email address will not be published. Required fields are marked *

To create code blocks or other preformatted text, indent by four spaces:

    This will be displayed in a monospaced font. The first four 
    spaces will be stripped off, but all other whitespace
    will be preserved.
    Markdown is turned off in code blocks:
     [This is not a link](

To create not a block, but an inline code span, use backticks:

Here is some inline `code`.

For more help see