SeanJ
11-29-2006, 06:12 AM
Thank you guys and girls for helping me on my projects. I need help with randomization.
I have the following code but I need to put a random number between 1 and 12. for each column. There are 10 columns.
This is for my daughter to get her to learn the Multiplication table faster.
Thanks for the help.
Sub test()
Dim i As Integer
Dim x As Integer
For x = 1 To 10
Select Case x
Case Is < 2
For i = 1 To 10
ActiveSheet.Cells(i, x).Value = x & " X " & i & " ="
Next i
Case 2
For i = 1 To 10
ActiveSheet.Cells(i, x).Value = x & " X " & i & " ="
Next i
Case 3
For i = 1 To 10
ActiveSheet.Cells(i, x).Value = x & " X " & i & " ="
Next i
Case 4
For i = 1 To 10
ActiveSheet.Cells(i, x).Value = x & " X " & i & " ="
Next i
Case 5
For i = 1 To 10
ActiveSheet.Cells(i, x).Value = x & " X " & i & " ="
Next i
Case 6
For i = 1 To 10
ActiveSheet.Cells(i, x).Value = x & " X " & i & " ="
Next i
Case 7
For i = 1 To 10
ActiveSheet.Cells(i, x).Value = x & " X " & i & " ="
Next i
Case 8
For i = 1 To 10
ActiveSheet.Cells(i, x).Value = x & " X " & i & " ="
Next i
Case 9
For i = 1 To 10
ActiveSheet.Cells(i, x).Value = x & " X " & i & " ="
Next i
Case 10
For i = 1 To 10
ActiveSheet.Cells(i, x).Value = x & " X " & i & " ="
Next i
End Select
Next x
End Sub
I have the following code but I need to put a random number between 1 and 12. for each column. There are 10 columns.
This is for my daughter to get her to learn the Multiplication table faster.
Thanks for the help.
Sub test()
Dim i As Integer
Dim x As Integer
For x = 1 To 10
Select Case x
Case Is < 2
For i = 1 To 10
ActiveSheet.Cells(i, x).Value = x & " X " & i & " ="
Next i
Case 2
For i = 1 To 10
ActiveSheet.Cells(i, x).Value = x & " X " & i & " ="
Next i
Case 3
For i = 1 To 10
ActiveSheet.Cells(i, x).Value = x & " X " & i & " ="
Next i
Case 4
For i = 1 To 10
ActiveSheet.Cells(i, x).Value = x & " X " & i & " ="
Next i
Case 5
For i = 1 To 10
ActiveSheet.Cells(i, x).Value = x & " X " & i & " ="
Next i
Case 6
For i = 1 To 10
ActiveSheet.Cells(i, x).Value = x & " X " & i & " ="
Next i
Case 7
For i = 1 To 10
ActiveSheet.Cells(i, x).Value = x & " X " & i & " ="
Next i
Case 8
For i = 1 To 10
ActiveSheet.Cells(i, x).Value = x & " X " & i & " ="
Next i
Case 9
For i = 1 To 10
ActiveSheet.Cells(i, x).Value = x & " X " & i & " ="
Next i
Case 10
For i = 1 To 10
ActiveSheet.Cells(i, x).Value = x & " X " & i & " ="
Next i
End Select
Next x
End Sub