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

mikisoq
mikisoq (13.026 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.500 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.026 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.500 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.026 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

Hjælp med "formel"

Oprettet den 31. marts 2015 kl. 12.37
Alte giver 100 point for svar | Giv et svar »

VBA: Tilføje tekst til en tekst der bliver overført til...

Oprettet den 31. marts 2015 kl. 11.48
vegaz giver 100 point for svar | Giv et svar »

kommandoknap til at komme frem med prompten: Gem som

Oprettet den 31. marts 2015 kl. 11.24
allanfrisk giver 30 point for svar | Giv et svar »






Computerworld

Teaser billede

Hold øje med denne mail: Danmark rammes igen af udspekuleret phishing-kampagne

Danmark er ramt af udspekulerede angreb, som nu vil fjernbetjene udstyret i en helt bestemt branche.

CIO

Teaser billede

Derfor er Internet of Things en så gylden og fantastisk mulighed for it-chefen

Klumme: Håndtering af data fra forbundne enheder i Internet of Things bliver stadig vigtigere for it-afdelingerne og it-cheferne. Men IoT gemmer også på en gylden karrieremulighed.

Comon

Teaser billede

Googles Android-kode indtager din bil: Mød det nye Android Auto

Et nyt system fra Google, kaldet Android Auto, vil forsyne dig med data, musik eller beskeder, mens du blæser afsted på motorvejen. Se her, hvordan det virker i praksis.

Channelworld

Teaser billede

Stor konkursramt it-forhandler forsøger at sælge fortrolige kundedata

Den konkursramte it-kæde Radioshack forsøger at sælge millionvis af fortrolige kundedata. Flere advokater mener, at salg af fortrolige kundeinformationer er pivulovligt.

White paper

Teaser billede

Ny Gartner rapport om Web Content Management

Web Content Management (WCM) er ikke længere bare et værktøj til at bygge hjemmesider.



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