Just nu i M3-nätverket
Jump to content

Tabell med slumpade tal


andeb

Recommended Posts

Hej

 

Jag sitter med ett litet problem som jag hoppades kunna få hjälp med.

 

Jag har ett värde som slumpas fram.

Nu skulle jag vilja skapa en tabell där slumpvärdet lagras.

 

Alltså för varje gång värdet ändras så läggs det till en ny rad och värdet sparas... gärna i ett annat blad

 

Går detta att göra?

 

 

Otroligt tacksam för svar

 

 

Link to comment
Share on other sites

Två sätt

 

1: Du använder vanliga slump-funktionen på arbetsbladet och kopierar sedan värdena med kod till en tabell. Risk finns att slump-funktionen räknas om vid fel tillfälle så kanske alt. 2 är bättre

 

2: Att du skriver ut slumptalen med VBA-funktionen RAND och kopiera sedan dessa.

 

Fast exakt hur, det beror på hur din tabell, dina värden ser ut. Specificera lite mer hur du tänkt dig det hela så ska vi nog kunna ge lite kod som passar.

 

 

/T

 

Even when we know we´ll never find the answers, we have to keep on asking questions.

 

Link to comment
Share on other sites

Hej och tack för ett så snabbt svar!

 

 

Jag har en slumpfunktion som genererar antingen 1 eller 2 =SLUMP.MELLAN(1;2)

 

därefter kör jag en sånhär formel =OM(X6<2;$O6;$K6-Z6)

 

och det är sedan den kolumnen som jag summerar.

 

Det talet som jag får där skulle jag sedan vilja "logga" eftersom det sedan försvinner...

 

Om jag hämtar hem all information in i ett blad så uppdateras sedan alla rader och jag kan inte spara informationen...

 

Går det att lösa månne tro?

 

Link to comment
Share on other sites

Som sagt kan du antingen skriva in slumpvärdena med en funktion i VBA i stil med

 

 Dim myCell As Range
   Dim upperbound As Integer
   Dim lowerbound As Integer
   upperbound = 2
   lowerbound = 1
   Randomize
   For Each myCell In Blad1.Range("c1:c10")
       myCell = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

   Next myCell

som ger slumpmässigt ett eller två. Detta finns kvar tills nu nästa gång kör denna funktion.

 

Eller så stannar du kvar med SLUMP som, som du märkt, räknas om stup i kvarten.

 

Sedan vill du spara undan resultatet fast du specar inte exakt hur. Jag skriver som i en annan tråd alldeles nyss, alla verktyg finns nog i denna ganska färska tråd:

//eforum.idg.se/viewmsg.asp?EntriesId=1115408

Hur du hittar en ledig cell i en kolumn/tabell.

Hur du kopierar en cell.

ja, en sak. Om du är kvar vid användande av SLUMP måste du hindra denna från att räknas om under tiden du kopierar, om det är flera värden du vill kopiera.

raden

Application.Calculation = xlCalculationManual

fast missa då inte att återställa när du är klar med

Application.Calculation = xlCalculationAutomatic

 

Misstänker att jag kommer få hjälpa till lite mer men det var vi då...

 

 

/T

 

Even when we know we´ll never find the answers, we have to keep on asking questions.

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...