Tilfældig udvægelse fra en power pivot

Skal det forstås således at du har brug for en funktion, der returnerer N integers mellem 1 og N og som ikke er ens?

funktion=makro

Jeg har brug for en makro, der returnerer n(Stikprøver) integers mellem 1 og N (Population) og som ikke er ens.. altså hvor N > n

Prøv med:

Function RANDOMARRAY(n As Integer, min As Integer, max As Integer, Optional unique As Boolean = False)
    Dim i As Integer
    Dim rand As Integer
    ReDim a(1 To n) As Integer
   
    If max - min + 1 < n Then
        RANDOMARRAY = CVErr(xlErrValue)
    Else
        Randomize
   
        For i = 1 To n
            Do
                rand = min + Int((max - min + 1) * Rnd)
            Loop While unique And isUsed(i - 1, a, rand)
            a(i) = rand
        Next i
        RANDOMARRAY = a
    End If
End Function
Function isUsed(n As Integer, a() As Integer, value As Integer)
    Dim i As Integer
   
    isUsed = False
    For i = 1 To n
        If a(i) = value Then
            isUsed = True
            Exit For
        End If
    Next i
End Function

Hvis du vil bruge den som brugerdefineret funktion (erstat n og N med dine tal eller celle-referencer:

=RANDOMARRAY(n;1;N;TRUE)

Hvis du vil have array'et vist, skal du bruge den som matrix-funktion.

Det er brugbart.

Jeg har brug for en matrix-transponering af de udtræk fra min powerpivot, som formlen generer. Hvordan lægger jeg det ind?

[IMG]http://i65.tinypic.com/9gyhpl.png[/IMG]

=TRANSPOSE(RANDOMARRAY(n;1;N;TRUE))

Du kan også indsætte det i funktionen.