Avatar billede lurup Ekspert
01. oktober 2019 - 20:56 Der er 7 kommentarer og
1 løsning

Blande celler vilkårlig

Jeg skal blande 200 celler i vilkårlig rækkefølge det kan enten være navne eller tal.
Hvordan er det mulig
Avatar billede jens48 Ekspert
01. oktober 2019 - 21:36 #1
Lav en ekstra kolonne med denne formel:
=slump()
og sorter på denne kolonne
Avatar billede Jan Hansen Ekspert
01. oktober 2019 - 22:33 #3
denne macro:

"Område" er et navngivet område (200 celler)

Option Explicit
Dim Area As Range
Dim Arr() As Variant, TempArr() As Variant, NewArr(1 To 20, 1 To 10)
Dim cRow As Integer, cColumn As Integer, Count As Integer, Temp As Integer
Dim Tæller As Integer
Sub bland()
    Set Area = Range("Område")
    Arr = Area
    Count = 1
    ReDim TempArr(1 To 200)
    For cRow = LBound(Arr, 1) To UBound(Arr, 1)
        For cColumn = LBound(Arr, 2) To UBound(Arr, 2)
            TempArr(Count) = Arr(cRow, cColumn)
            Count = Count + 1
        Next
    Next
    Temp = 200
    For cRow = 1 To 20
        For cColumn = 1 To 10
            Count = Int((Temp - 1 + 1) * Rnd + 1)
            NewArr(cRow, cColumn) = TempArr(Count)
            For Tæller = Count To UBound(TempArr, 1) - 1
                TempArr(Tæller) = TempArr(Tæller + 1)
            Next
            If UBound(TempArr, 1) = 1 Then GoTo videre
            ReDim Preserve TempArr(1 To UBound(TempArr, 1) - 1)
            Temp = Temp - 1
        Next
    Next
videre:
    Area = NewArr
End Sub

https://www.dropbox.com/s/dk012hbiekrwkkj/Bland.xlsm?dl=0
Avatar billede finb Ekspert
02. oktober 2019 - 08:55 #4
Du kan nøjes med Randomize
Avatar billede Jan Hansen Ekspert
02. oktober 2019 - 09:28 #5
Ja en problemstilling kan tilgåes på mange måder :D
Avatar billede lurup Ekspert
03. oktober 2019 - 10:21 #6
Store-morten

Hvordan blander jeg med din fil ?
TAK
Avatar billede store-morten Ekspert
03. oktober 2019 - 12:35 #7
Som der står i celle C1

Skriv noget i en tom celle og tryk enter.
Eller dobbelt klik på C1 og tryk enter.
Eller tryk på F9
Avatar billede lurup Ekspert
03. oktober 2019 - 13:00 #8
1000 tak
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester