per Tutte questo problema in Excel .
Il Problema e Questo : Io vorrei estrarre una Serie di 20 Numeri presi a caso 1 al 90 .
Però ; Il problema Consiate in Questo : Quando vado a premere il Mio Solito tasto , mi Vengono Espressi Tutti
in Forma Lineare , Mentre Io Vorrei poterli Avere Suddivisi su Due File da 10 .
In quanto in questo modo potrei Ottenere il Ripristino Automatico dal Più grande al più Piccolo , Mentre
Linearmente Posso ottenere la stessa cosa , ma Uscirei da un Deciso parametro Visivo .
Per qui mi Stavo chiedendo ! C'è questa Possibilita' , se e si come si Ricava tutto ciò .
Io vi Propongo quello che sono Riuscito a Creare Io , anche sè a dire il Vero e un Disastro .
Sinceri Saluti e Grazie ancora di tutto l'aiuto che riuscirete a darmi ; da A. maurizio
- Codice: Seleziona tutto
'Option Explicit
Dim M
Dim N
Dim CoordRiga
Dim IniRiga
Dim FineRiga
Sub EstraiNumeriCasuali()
On Error Resume Next
M = RandomNumbers(90, 1, 21, True)
For N = LBound(M) To UBound(M)
If N < "" Then
Else
Range("A24:J24").Select
ActiveCell(1, N) = M(N)
Range("A25:J25").Select
ActiveCell(1, N) = M(N)
Range("A24:J24").Activate
Range("A25:J25").Activate
End If
Next N
' Routine di Ordinamento numerico per riga.
IniRiga = "A" & CoordRiga + 24
FineRiga = "J" & CoordRiga + 24
IniRiga = "A" & CoordRiga + 25
FineRiga = "J" & CoordRiga + 25
Range(IniRiga, FineRiga).Activate
Selection.Sort Key1:=Range(IniRiga), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight