generate numbers without reversing the dozen on the same line

[marreco]

Hi.
I need to create random numbers with 10 columns and 10 rows.


But for each line can not be the number opposite each decade.
[TABLE="width: 397"]
<colgroup><col span="9"><col><col span="9"></colgroup><tbody></tbody>[/TABLE]
[TABLE="class: grid, width: 210"]
<colgroup><col span="10"></colgroup><tbody>[TR]
[TD]79[/TD]
[TD]22[/TD]
[TD]48[/TD]
[TD]70[/TD]
[TD]04[/TD]
[TD]98[/TD]
[TD]09[/TD]
[TD]41[/TD]
[TD]32[/TD]
[TD]56[/TD]
[/TR]
[TR]
[TD]59[/TD]
[TD]17[/TD]
[TD]42[/TD]
[TD]67[/TD]
[TD]5[/TD]
[TD]67[/TD]
[TD]94[/TD]
[TD]47[/TD]
[TD]46[/TD]
[TD]21[/TD]
[/TR]
[TR]
[TD]85[/TD]
[TD]66[/TD]
[TD]70[/TD]
[TD]90[/TD]
[TD]89[/TD]
[TD]83[/TD]
[TD]84[/TD]
[TD]50[/TD]
[TD]81[/TD]
[TD]36[/TD]
[/TR]
[TR]
[TD]83[/TD]
[TD]50[/TD]
[TD]36[/TD]
[TD]3[/TD]
[TD]57[/TD]
[TD]55[/TD]
[TD]20[/TD]
[TD]39[/TD]
[TD]51[/TD]
[TD]77[/TD]
[/TR]
[TR]
[TD]23[/TD]
[TD]67[/TD]
[TD]39[/TD]
[TD]29[/TD]
[TD]12[/TD]
[TD]86[/TD]
[TD]68[/TD]
[TD]18[/TD]
[TD]87[/TD]
[TD]73[/TD]
[/TR]
[TR]
[TD]90[/TD]
[TD]3[/TD]
[TD]54[/TD]
[TD]26[/TD]
[TD]72[/TD]
[TD]17[/TD]
[TD]69[/TD]
[TD]13[/TD]
[TD]44[/TD]
[TD]36[/TD]
[/TR]
[TR]
[TD]10[/TD]
[TD]11[/TD]
[TD]37[/TD]
[TD]98[/TD]
[TD]84[/TD]
[TD]19[/TD]
[TD]63[/TD]
[TD]54[/TD]
[TD]22[/TD]
[TD]59[/TD]
[/TR]
[TR]
[TD]65[/TD]
[TD]26[/TD]
[TD]3[/TD]
[TD]55[/TD]
[TD]68[/TD]
[TD]61[/TD]
[TD]9[/TD]
[TD]76[/TD]
[TD]75[/TD]
[TD]69[/TD]
[/TR]
[TR]
[TD]33[/TD]
[TD]28[/TD]
[TD]38[/TD]
[TD]59[/TD]
[TD]87[/TD]
[TD]74[/TD]
[TD]63[/TD]
[TD]60[/TD]
[TD]41[/TD]
[TD]90[/TD]
[/TR]
[TR]
[TD]94[/TD]
[TD]50[/TD]
[TD]01[/TD]
[TD]29[/TD]
[TD]59[/TD]
[TD]8[/TD]
[TD]33[/TD]
[TD]47[/TD]
[TD]87[/TD]
[TD]91[/TD]
[/TR]
</tbody>[/TABLE]
see the first line was generated as the number 79, then this same line, can not generate the number 97.


number 22 in this case is OK.


The first line was generated the number 84, then this is not the same line, you can generate the number 48.


The first line was generated the number 07, then this is not the same line, you can generate the number 70.


and so
[TABLE="class: grid, width: 210"]
<tbody>[TR]
[TD="width: 21"]97[/TD]
[TD="width: 21"]22[/TD]
[TD="width: 21"]84[/TD]
[TD="width: 21"]07[/TD]
[TD="width: 21"]40[/TD]
[TD="width: 21"]98[/TD]
[TD="width: 21"]90[/TD]
[TD="width: 21"]14[/TD]
[TD="width: 21"]23[/TD]
[TD="width: 21"]65[/TD]
[/TR]
</tbody>[/TABLE]

 

[marreco]

hi.

Any idea?

Thank you!!!

 

[marreco]

hi
does anyone could tell me if this is possible to do?
thank you

 

[marreco]

hi.

if anyone can help me I'll be very happy!
Thank you!

 

[marreco]

hi.

Any idea?

Thank you!!!

 

[marreco]

Hi.
Cross-Post
generate numbers without reversing the dozen on the same line

 

[marreco]

hi.

Any idea?

Thank you!!!

 

[marreco]

hi
does anyone could tell me if this is possible to do?
thank you

 

[FormR]

If i have understood correctly; this may get you started.

Sub TEST()

Dim IsUnique As Boolean
Dim iNum As Integer
Dim r As Long
Dim c As Long

For r = 1 To 10

    ReDim Arr(1)
    
    'First Number
    iNum = WorksheetFunction.RandBetween(1, 99)
    Range("A1").Cells(r, 1).Value = iNum
        Arr(0) = iNum
        Arr(1) = fRNum(iNum)
        
    'Remaining numbers
    For i = 2 To 10
        IsUnique = False
        Do While IsUnique = False
            iNum = WorksheetFunction.RandBetween(1, 99)
                For x = 0 To UBound(Arr)
                    If iNum = Arr(x) Then
                        IsUnique = False
                        Exit For
                        Else
                        IsUnique = True
                    End If
                Next x
        Loop
                 
    ReDim Preserve Arr(UBound(Arr) + 2)
    Arr(UBound(Arr) - 1) = iNum
    Arr(UBound(Arr)) = fRNum(iNum)
    Range("A1").Cells(r, i).Value = iNum

    Next i

Next r

End Sub

Function fRNum(iNum As Integer) As Integer

If iNum < 10 Then
    fRNum = iNum * 10
    Else
    fRNum = (Right(iNum, 1) & Left(iNum, 1))
End If

End Function

 

[Rick Rothstein]

I need to create random numbers with 10 columns and 10 rows.

But for each line can not be the number opposite each decade.
see the first line was generated as the number 79, then this same line, can not generate the number 97.

number 22 in this case is OK.

Some questions...

1. Are all the numbers on the same row supposed to be unique (that is, no repeats anywhere among the values on the same row)?

2. If the numbers are not unique, can the first number be repeated?

3. I don't understand your comment about 22... are you saying 22 can repeat?