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

mikisoq
mikisoq (11.976 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 (101.930 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 (11.976 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 (101.930 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 (11.976 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

Hvem skal på sejrs-skamlen ?

Oprettet den 1. september 2014 kl. 12.20
folj giver 30 point for svar | Giv et svar »

Hvordan får jeg vist faner, der er låst med VBA

Oprettet den 1. september 2014 kl. 11.50
Officeren giver 30 point for svar | Giv et svar »

Timeregistrering - antal dage under 60

Oprettet den 1. september 2014 kl. 11.10
kaz9k giver 30 point for svar | Giv et svar »






Computerworld

Teaser billede

KMD-fyringer gennemført: Sådan ramte de organisationen

Dagens store fyringsrunde i KMD er nu gennemført. Se her, hvordan fyringerne ramte organisationen.

CIO

Teaser billede

It-projekterne fejler igen og igen: Forklaringen er ganske pinlig

It skal skabe mere effektive virksomheder og offentlige institutioner, men ender alt for ofte med at skabe problemer. Forklaringen bør give røde ører.

Comon

Teaser billede

Din indbakke har fået en ny hersker - her er det bedste mailprogram (til Mac)

Langt om længe er den hypede e-mail-app Mailbox kommet til din Mac. Og den har været værd at vente på.

Channelworld

Teaser billede

Installers' konkurs sender 25 it-folk hjem uden løn

Et halvt år med underskud på driften og millionslagsmål med en kunde tømte kassen hos it-firmaet Installers, som nu har kastet håndklædet i ringen.

White paper

Teaser billede

Sikkerhed og KVM-switching

Få svar på de sikkerhedsspørgsmål, der opstår ved brug af KVM-switche, og få strategier til at imødegå problemerne.



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