Skip to main content

View Diary: Steve Forbes weighs in on Mitt Romney's tax problems (88 comments)

Comment Preferences

  •  It's in the code (2+ / 0-)
    Recommended by:
    sethtriggs, askyron

    Sub Generate_Random_Hex()
    Dim ROWNUM, colnum, HEXVAL$
    For ROWNUM = 1 To 16
    For colnum = 1 To 16
    HEXVAL$ = Hex$(255 * Rnd)
    Debug.Print "Hexval$"; HEXVAL$
    Debug.Print "LEN Hexval$
    "; Len(HEXVAL$)
    If Len(HEXVAL$) = 1 Then
    HEXVAL$ = "0" & HEXVAL$
    End If

    Debug.Print "-Hexval$"; HEXVAL$
    Debug.Print "-LEN Hexval$
    "; Len(HEXVAL$)

    Worksheets("Sheet1").Cells(ROWNUM, colnum).Value = HEXVAL$
    Debug.Print "r="; ROWNUM
    Debug.Print "C="; colnum

    Next colnum
    Next ROWNUM
    End Sub

    The 1st Amendment gives you the right to say stupid things, the 1st Amendment doesn't guarantee a paycheck to say stupid things.

    by JML9999 on Tue Aug 07, 2012 at 05:50:52 PM PDT

    [ Parent ]

Subscribe or Donate to support Daily Kos.

Click here for the mobile view of the site