|
Buon Giorno , mi chiamo Maurizio ; vi scrivo in quanto avrei un problemino che vorrei Risolvere .
Il Concetto e Questo : Io vorrei Far Apparire in una Serie di Celle che vanno dalla " Cella ( C6 : C9 ) 20 numeri Presi a caso dall' 1 al 90 .
Ora Io di Mio ho cercato di Scrivere una procedura del Genere :
Sub EstraiNumeriCasuali()
M = RandomNumbers(90, 1, 20, True)
For N = LBound(M) To UBound(M)
If N < "" Then
Else
Range("D6").Select
ActiveCell(1, N) = M(N)
'Range("C6:G9").Select
End If
Next N
For M = 1 To 5
For N = 1 To 3
'I valori 3 e 2 fra parentesi servono a indicare _
la cella dove inizare a far comparire il primo _
numero
'in questo caso la cella B3
Cells(6 + M, 3 + N).FormulaR1C1 = 5 * M + N + 1
Next N
Next M
'#######################################################################
' Routine di Ordinamento numerico per riga.
IniRiga = "c" & CoordRiga + 6
FineRiga = "g" & CoordRiga + 9
Range(IniRiga, FineRiga).Activate
Selection.Sort Key1:=Range(IniRiga), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
End Sub
Con L'unico Risultato che dalla Cella C6 fino alla Cella V6 il problema non Susiste in quanto Vengono presi Esattamente i venti Numeri estrapolati dall'1 al 90 ; ma non nella Direzione che volevo Io ! Perche ? .
Quanche brava persona Riuscirebbe a Risolvermi questo Problema Grazie da A. Maurizio
| 
