Random generator met wat fancy dingen

[Rob L]

Hallo,

Ik moet een heel aantal getallen genereren. nu is mijn vraag of iemand een handigheid weet om dit te doen.

Het idee is als volgt: ik heb twee sheets in een excel bestand (zie bijgevoegd).

Op sheet 1 worden een vijftal waardes (deze komen voort uit metingen) ingevuld die binnen een bepaalde tolerantie moeten liggen (ondergrens en bovengrens) van de richtwaarde.

Achter de 5 waardes wordt per regel aangegeven of er wel of niet van de betreffende regel meer waardes moeten worden gegenereerd.
Indien er een X achter wordt gezet, dan betekent het dat er inderdaad meerdere getallen moeten worden gegenereerd.

Daarachter wordt tevens gezet hoeveel getallen gegenereerd moeten worden. De te genereren getallen moeten op de tweede sheet worden gezet in een soortgelijke opzet als de eerste sheet.

De te genereren getallen moeten allen binnen 1/3 van de beschikbare tolerantie liggen. Dus als de tolerante is +/- 1mm, dan moeten de waardes die gegegeneerd worden binnen de +/-0.33mm liggen.

Wat mij betreft zou een druk op een VB-button e.e.a. in gang kunnen zetten.

Heeft iemand een idee hoe dit te doen?

BVD,

Rob

 

[Wigi]

Zoiets voor blad 1:

Sub WigiRandomNumbers()

    Dim l As Long
    Dim i As Integer
    Dim dblMin As Double
    Dim dblMax As Double
    
    For l = 7 To Range("A" & Rows.Count).End(xlUp).Row
    
        If Range("O" & l).Value = "Y" Then
        
            dblMin = Range("B" & l).Value - 1 / 3 * (Range("E" & l).Value - Range("D" & l).Value) / 2
            dblMax = Range("B" & l).Value + 1 / 3 * (Range("E" & l).Value - Range("D" & l).Value) / 2
            
            For i = 1 To Range("P" & l).Value
            
                Range("P" & l).Offset(0, i).Value = dblMin + Rnd() * (dblMax - dblMin)
                
            Next
            
        End If
    
    Next

End Sub

Het op blad2 zetten mag jij nog doen.

Wigi

 

[Rob L]

Generator

Hoi Wigi,

Bedankt,

het werkt.

Rob

 

[Wigi]

Graag gedaan.

Zet nog even de vraag op opgelost aub.