Condividi:        

Numerare 20 Celle in due Tronconi

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Numerare 20 Celle in due Tronconi

Postdi A.Maurizio » 15/12/13 15:23

Buon Giorno a Tutti e Buona Domenica ; Mi chiamo Maurizio , vi scrivo in quanto vorrei Risolve una volta
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
A.Maurizio
Utente Senior
 
Post: 116
Iscritto il: 02/08/13 15:39

Sponsor
 

Re: Numerare 20 Celle in due Tronconi

Postdi Anthony47 » 16/12/13 00:30

Buon Giorno a Tutti e Buona Domenica ; Mi chiamo Maurizio
Oramai ti conosciamo bene :D

Da quello che hai scritto ho capito che vuoi mettere 20 numeri casuali, che ti genera la Function RandomNumbers, in riga 24 e 25, 10 valori per riga.
Lo puoi ottenere con una macro come questa:
Codice: Seleziona tutto
Sub maurizio()
Dim M, Inizio As String, I As Long, J As Long
'
M = RandomNumbers(90, 1, 21, True)     '** Vedi testo
Inizio = "A24"       '<< La prima cella dove vuoi inserire i numeri
For J = 0 To 1
    For I = 1 To 10
        Range(Inizio).Offset(J, I - 1).Value = M(J * 10 + I - 1)
    Next I
Next J
End Sub
E' importante richiamare la RandomNumbers chiedendo la restituzione di "21" numeri, come fa l' istruzione
marcata **

Per la parte di ordinamento penso che sai fare da solo, anche perche' io non ho capito in cosa consiste.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Numerare 20 Celle in due Tronconi":


Chi c’è in linea

Visitano il forum: Nessuno e 47 ospiti