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

mikisoq
mikisoq (15.021 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.555 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 (15.021 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.555 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 (15.021 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

Oplag i 2 tabeller (Lopslag/hvis ?)

Oprettet den 3. maj 2016 kl. 08.29
simon_madsen giver 200 point for svar | Giv et svar »

VBA til udskrivning af variabelt område

Oprettet den 1. maj 2016 kl. 20.39
Mads32 giver 30 point for svar | Giv et svar »

Regneark med simple formler

Oprettet den 1. maj 2016 kl. 11.14
hkprofil giver 60 point for svar | Giv et svar »






Computerworld

Teaser billede

Flere danske banker i knæ: Ramt af alvorlige netbank-problemer

Opdateret: SDC er ramt er omfattende problemer, der i øjeblikket sender en stribe danske netbanker til tælling.

CIO

Teaser billede

Årets CIO 2016: Her er Danmarks fem bedste it-chefer

Årets CIO 2016: Den eftertragtede titel som Årets CIO i Danmark skal snart uddeles for 11. gang af Computerworld, IDC og Dansk IT. Her er de fem nominerede til Årets CIO 2016.

Comon

Teaser billede

Se billederne: Her er et gratis open source-alternativ til Microsofts Office 365

Open 365 skal være den åbne kildekodes gratis alternativ til Microsofts eller Googles kontorløsninger til deling og redigering af dokumenter online samt synkronisering af filer i skyen. Se her,...

Channelworld

Teaser billede

KMD skiller sig af med sin mainframe-afdeling - 68 KMD-ansatte får ny arbejdsgiver

IBM overtager fra 1. juni den tekniske del af KMD's mainframe-forretning. Dermed får 68 KMD-medarbejdere ny arbejdsgiver.

White paper

Teaser billede

Undgå risici i Public Cloud

I denne rapport: Råd, analyse og indblik, som hjælper med at maksimere gevinsterne og minimere risici ved åbne cloud-løsninger.



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