Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
Altri Linguaggi - Come Numerare in Excel 20 Celle
Forum - Altri Linguaggi - Come Numerare in Excel 20 Celle

Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 1:00
Giovedì, 01/01/1970
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

PM Quote