Generare valori positivi e negativi casuali in percentuale assegnata

Versione Completa Stampa Cerca Utenti Iscriviti Condividi :

Excel Forum » Excel Forum » » Soluzioni Excel Domande e Risposte

mkl69ss

00martedì 14 giugno 2016 13:56

Buongiorno,
come da titolo ho la necessità di generare una serie di N valori casuali delle due unità -1 e +1. Questa serie, anziché avere la probabilità 50%, dovrà essere determinata secondo una variabile da 1 a 100 (percentuale) da me indicata (e riferita al valore positivo).
I vari risultati generati dovranno essere riportati in una tabella per ricavarne delle statistiche. Spero di essermi espresso in maniera comprensibile.
E' un lavoro impossibile? Grazie in anticipo per chi vorrà darmi una mano.
MIK

raffaele1953

00martedì 14 giugno 2016 15:27

=SE(CASUALE.TRA(1;100)>30;1;-1)
Ex +/- del 30%, trascini giù per 100 righe, dopo copi e incolla/valori nella colonna successiva, oppure ad ogni ricalcolo del foglio varia
Per ottenere una percentuale precisa
Scrivi in A1:A100 num 1,2,3,4 ecc ecc
Scrivi in B1:B100 70=1 + 30=-1 e avvii il codice

Sub Mischia()
Dim Inizia As Long, I As Long, J As Long, TTemp, uRiga, Arr()
        uRiga = Range("A" & Rows.Count).End(xlUp).Row
        Inizia = 1
        ReDim Arr(Inizia To uRiga, 1 To 1)
        For I = Inizia To uRiga
            Arr(I, 1) = I
        Next
        For I = uRiga To Inizia Step -1
            J = Rnd * (uRiga - Inizia + 1) + Inizia
            If J > uRiga Then J = uRiga
            TTemp = Arr(I, 1)
            Arr(I, 1) = Arr(J, 1)
            Arr(J, 1) = TTemp
        Next
        Sheets("Foglio1").Range("A1:A" & (uRiga - Inizia)) = Arr
        Sheets("Foglio1").Sort.SortFields.Clear
        Sheets("Foglio1").Sort.SortFields.Add Key:=Range("A1:A" & uRiga) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With Sheets("Foglio1").Sort
            .SetRange Sheets("Foglio1").Range("A1:B" & uRiga)
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    MsgBox "fatto"
End Sub

mkl69ss

00giovedì 16 giugno 2016 09:51

Grazie Raffaele, e scusa il ritardo con cui ti rispondo, prima di disturbarti ho cercato di capire, ma niente...
Non vorrei apparire troppo ignorante, d'altronde... non è facendo finta di sapere che supererò il mio problema:
Il codice di 29 righe che scrivi... ecco... cos'è?, come si inserisce in excel? Non è che hai un foglio di esempio?
Ho usato sempre formule piuttosto semplici e ultimamente sto provando a cimentarmi in operazioni più complesse, ma quel tipo di istruzioni non le conosco e non ho idea di cosa siano.
Spero di non abusare della tua gentilezza, in ogni caso ti ringrazio nuovamente per l'aiuto.

Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 08:55.