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

mikisoq
mikisoq (13.496 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 (103.970 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 (13.496 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 (103.970 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 (13.496 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

problemer med faneblade

Oprettet den 2. juli 2015 kl. 15.03
torbenlind giver 60 point for svar | Giv et svar »

Formelhjæp

Oprettet den 2. juli 2015 kl. 13.11
boro23 giver 30 point for svar | Giv et svar »

Hjælp til mail makro i excel

Oprettet den 2. juli 2015 kl. 12.40
TheresaD giver 60 point for svar | Giv et svar »






Computerworld

Teaser billede

Løsladt top-chef i 3A-it: Det var ikke bestikkelse - sådan hang ordningen sammen

Tidligere koncern-chef i Atea, Peter Trans, bryder navneforbuddet og står frem som en af de tre topchefer, der netop er blevet løsladt efter 14 dage i varetægtsfængsel mistænk for korruption.

CIO

Teaser billede

Skal du hoppe med på Microsofts store opgraderings-tog?

ComputerViews: Det er slut med de kæmpestore system-fornyelser med års mellemrum fra Microsofts side. Istedet forsøger selskabet at sætte gang i løbende og vedvarende opgraderinger. Du kan...

Comon

Teaser billede

Prøvekørt: Her er Microsofts splinternye Surface-computer - til noget lavere pris end Surface Pro 3

Prøvekørt: Microsoft er klar med en helt ny Surface-computer, der bliver billigere end den nuværende Surface 3 Pro, selv om de er ret ens. Vi har prøvekørt den nye maskine. Se vores dom her.

Channelworld

Teaser billede

BREAKING: Danske it-folk idømt lange fængselsstraffe for momssvindel i million-klassen

Tre tiltalte skal flere år i fængsel for svindel med moms i den tidligere it-forhandler Multimedia World.

White paper

Teaser billede

Sådan sørger du for at it-sikkerhedspolitikken er effektiv og konstant opdateret

Antallet af trusler mod virksomhedens dataintegritet mangedobles i takt med, at vi tager flere og flere enhedstyper og cloudservices i brug.



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