Funzione CASUALE TRA

Hai un problema con Excel?

Nuova discussione

Funzione "CASUALE TRA" in VBA
di Migua Ing data: 12/02/2016 14:19:30
Ciao a tutti, vorrei generare una funzione casuale tra (valore min; valore Max) in VBA; quindi senza utilizzare le funzioni di Excel; in modo tale da generare una colonna con un numero di righe n che posso settare allo schiacciare di un bottone.

Ad esempio: Casuale tra (1000;2000) con n=5, si avrà una colonna composta da 5 righe.
1200
1866
1999
1050
1320

Che tipologia di codice potete consigliarmi?
vi ringrazio per i vostri preziosi suggerimenti.
Migua
di alfrimpa data: 12/02/2016 15:16:19
Ciao Migua

Prova con la macro qui sotto che riempie le celle da A1 ad A5 di numeri casuali compresi tra 1000 e 2000.

Comunque non è mia; ho trovato spunti su Internet che poi ho adattato, credo, al tuo caso
Sub Macro1() Dim i As Integer Dim NumeroCasuale As Integer For i = 1 To 5 Randomize NumeroCasuale = Int((2000 - 1000 + 1) * Rnd + 1000) Range("a" & i).Value = NumeroCasuale Next i End Sub

di Albatros54 data: 12/02/2016 15:28:29
Saluto Alfredo,prova con la macro sotto

Public Sub r()
Dim n As Integer
Dim c As Integer
Dim a As Long
n = InputBox("valore")
Range("a:a").Clear
For a = 1 To n
c = Int((2000 - 1000 + 1) * Rnd + 1000)
Cells(a, 1) = c
Next
End Sub

di Migua Ing data: 19/02/2016 16:06:14
Ciao amici del forum, vi ringrazio per aver risolto il problema su cui stavo lavorando, entrambe le macro funzionano molto bene.

Vuoi Approfondire?