naključni izbor številk

[rick]

pozdravljeni

v stolpcu A imam 1000 poljubnih številk.rad bi iz tega stolpca izbral recimo 120 naključnih številk.upam,da ni prehudo vprašanje.

za odgovor se zahvaljujem.

lp rick

[kljuka13]

V polje B1 prilepite funkcijo:

=INDEX($A$1:$A$1000;RAND()*1000)

potem pa to skopirajte navzdol.

[rick]

pozdravljen

hvala za hiter odgovor,vendar imam še eno težavo,namreč
naključno število se v tem primeru ponovi tudi večkrat,kar pa se v mojem primeru ne sme.preveril sem in videl,da se to res zgodi(izbral sem stolpec,ki je imel samo 10 števil),pa vas sprašujem,kako bi tudi to odpravil.
torej,naključno izbrane številke iz stolpca se v izboru ne smejo ponoviti.
imate idejo .
za odgovor se zahvaljujem

lp rick

[cedra]

Pošiljam vam tale makro, ki bo verjetno rešil vaš problem. Preizkusite in poročajte!

Koda: Izberi vse

Sub Nakljucna_stevila()

Dim i, j As Integer

On Error GoTo ponovi

Application.ScreenUpdating = False

    Columns("B:B").Select
    Selection.ClearContents
    Range("B1").Select
    
    For i = 1 To 120 '120 = Izbira števila naključnih števil.
    'Po potrebi spremani
    
ponovi:
    Cells(i, 2) = Cells(Rnd * Application.WorksheetFunction.Count(Range("A:A")), 1)
    
        For j = 2 To Application.WorksheetFunction.Count(Range("B:B"))

            If i > 1 And Cells(i, 2) = Cells(j - 1, 2) Then GoTo ponovi

        Next j

    Next i
    
Application.ScreenUpdating = True

End Sub

[rick]

pozdravljen,

ja Cedra,res je ustrezen makro,izbor se ne ponavlja,
skratka,to je to kar sem si želel .
hvala za vaš trud,in pozdrav tudi ostalim v forum.

lp rick