Oprettet lør. d. 01. november 2008 kl. 12:19:16

mikisoq
mikisoq (14.621 point. Point ude: 121)


VBA - OPstilling af regnestykker

Hvis man i Excel vil opstille en række enkle plusstykker og vil have 2 InputBox hvor man taster henholdsvis min- og maksimum for de tal der skal indgå i regnestykkerne, hvordan gør man så det? Jeg kan generere InputBox men ved ikke hvordan jeg får den til at indsætte tilfældige ( Rnd ) tal i det interval der er indtastet ind i cellerne. Fx C3 og C4.
Nogle der har et hurtigt bud? - og er spørgsmålet formuleret forståeligt?
På forhånd mange tak.

Skrevet lør. d. 01. november 2008 kl. 12:33:29| #1

excelent
excelent (105.095 point)
[Ark2!C5] = Int([Ark2!C4] - [Ark2!C3] + 1) * Rnd + [Ark2!C3]

Skrevet lør. d. 01. november 2008 kl. 13:06:51| #2

mikisoq
mikisoq (14.621 point)
Frygtede nok jeg ikke havde formuleret mig klart nok...

Opgaven lyder: Der skal genereres 30 regnestykker fordelt på 5 henad og 6 nedad. Det skal være muligt at angive en øvre og nedre grænse i en InputBox og tallene i regnestykkerne skal derefter genereres som tilfældige heltal indenfor dette interval (begge inklusiv). Regnestykkerne må gerne sættes pænt op, så de er egnede til udskrift.

Regnestykkerne er plusstykker, hvor de to tal står ovenover hinanden og der er et + ud for det nederste tal. Det er meningen man så skal kunne indtaste svaret i cellen under de 2 tal, hvorefter de så skal rettes efterfølgende, men dertil er jeg slet ikke nået endnu. I første omgang er det at generere det ovenstående.

Håber der er en der kan give mig en hjælpende hånd.

På forhånd mange tak.

Skrevet lør. d. 01. november 2008 kl. 17:25:26| #3

excelent
excelent (105.095 point)
Sub femXseks()
bund = InputBox("Indtast nedre grænse ")
maks = InputBox("Indtast øvre grænse ")
For kol = 1 To 5
Randomize
For ræk = 1 To 12 Step 2

tal1 = Int(Int(maks - bund + 1) * Rnd + bund)
tal2 = Int(Int(maks - bund + 1) * Rnd + bund)
Cells(ræk * 2 + 2, kol * 2) = tal1
Cells(ræk * 2 + 3, kol * 2) = tal2
Next
Next
End Sub

Skrevet søn. d. 09. november 2008 kl. 18:15:49| #4


Skrevet tir. d. 11. november 2008 kl. 12:19:00| #5

mikisoq
mikisoq (14.621 point)
1.000 tak for hjælpen :-)
Dit svar førte til at opnå forståelse for opgaven og det var en stor hjælp.
Jeg har afsat lidt ekstra points til dig som tak for hjælpen <;-)

Skriv et indlæg




Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] [img]link til billede[/img]
Web- og emailadresser omdannes automatisk til links

Log ind

   



Seneste spørgsmål

Importere txt, csv eller lignende værdier uden...

Oprettet den 12. februar 2016 kl. 15.22
KenneyD71 giver 61 point for svar | Giv et svar »

vlookup på den første del af en celle

Oprettet den 12. februar 2016 kl. 14.44
SuperHenrik giver 200 point for svar | Giv et svar »

Hvis formel

Oprettet den 12. februar 2016 kl. 14.18
Tyren69 giver 30 point for svar | Giv et svar »

Seneste guides

Luk en tråd
Defraggler og din SSD.
Must-know genvejstaster til WordPress
Slettet





Computerworld

Teaser billede

"Da jeg afleverer tingene, vil de ikke betale. Men gudskelov har databasen et master-password, som jeg kender"

"Da jeg afleverer tingene, vil de ikke betale. Men gudskelov har databasen et master-password, som jeg kender"

CIO

Teaser billede

Her kan den danske stat lære noget: Sådan skifter Nordea it-platform til 7,5 milliarder kroner

Efter flere års tilløb er Nordea godt i gang med at udskifte hele sin it-infrastruktur. Læs her, hvordan projektet til mere end syv milliarder kroner minder om statens it-udfordringer, og hvordan...

Comon

Teaser billede

Xbox ramt af syv timer langt nedbrud: Så fik kendt musiker nok

Frustrationer over gårsdagens lange nedbrud på Xbox-netværket har fået gangsterrapperen Snoop Dogg til at gå amok over for Microsoft og selskabets stifter Bill Gates. Se videoen her.

Channelworld

Teaser billede

Her er de mulige - og mest sandsynlige - købere af Fona

Fona skal inden 25. februar finde en villig investor, som helt eller delvis vil overtage den kriseramte butikskæde. Alternativet er en konkurs. Her har du en oversigt over de mulige købere af...

White paper

Teaser billede

Intelligente forretningsprocesser

Læs her om de centrale egenskaber ved intelligente forretningsprocesser, deres fordele og hvordan du hæver dine egne forretningsprocessers IQ.



Udgiver · © 2016 Computerworld A/S · Hørkær 18 · 2730 Herlev · Tlf.: 77 300 300 · Fax: 77 300 301 · Brug af personoplysninger