---
title: "Slumpa i VBA"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/77123-slumpa-i-vba"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "Gaski"
published: "2003-05-16T06:29:17.000Z"
updated: "2003-05-24T09:09:38.000Z"
replies: 1
views: 626
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/77123-slumpa-i-vba"
---

# Slumpa i VBA

## #1 — Gaski, 2003-05-16T06:29Z

När jag kör följande kod i ett exel makro:

Dim slump(80) As Integer
Do
  Randomize
  slumptal = Int((7 \* Rnd) + 1)
  For tal = 1 To 7
    If slumptal = slump(tal) Then
      Exit For
    End If
    varv = varv + 1
    slump(varv) = slumptal
    Exit For
  Next tal
Loop Until varv = 7

For tal2 = 1 To 7
Cells(1, 1).Value = Cells(1, 1) & slump(tal2) & ", "
Next tal2

Kan reslutatet bli: 3, 1, 5, 5, 1, 5, 6,
Vilket är fel, ett tal får ju bara förekomma EN gång. Hur gör man det?

Permalänk: https://www.webforum.nu/p/77123

## #2 — clarkbones, 2003-05-24T09:09Z

Tja, du får väl slänga upp de framslumpade värdena i en array och kontrollera det senast framslumpade värdet med värdena i arrayen. Använd en loop för att köra slumpningen igen om värdet inte är unikt.

Glasklart?

Permalänk: https://www.webforum.nu/p/1060051

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/77123-slumpa-i-vba