Avatar billede bennetsen Nybegynder
08. august 2002 - 23:15 Der er 14 kommentarer og
1 løsning

Testprogram

Hej

Jeg er ved at lave et regneark, hvor mine kursister skal lægge nogle tal sammen.

Jeg har lagt regnearket på adressen: http://web4me.dk/excel/plusstykker.xls

Jeg har egentlig to problemer.

Jeg har forsøgt mig med funktionen slump.mellem for at få et tilfædig tal mellem 5 og 99 til at stå i celle E5. Problemet er at når kursisten indtaster et tal i f.eks. celle G8 og derefter trykker Enter, så opdateres regnearket og der kommer et nyt tal i celle E5. Kan jeg forhindre dette?

Jeg kunne også godt tænke mig, at der var et synlig ur/tæller, som talte ned fra f.eks 1 minut og når tiden var gået skulle cellerne låses så man ikke kunne indtaste i regnearket eller så man kun kunne indtaste i regnearket hvis man trykkede F9 og dermed fik et nyt tal i celle E5.

Jeg bruger Excel XP DK og kender ikke noget til VBA.

Det er måske en ordentlig mundfuld, men er der en som kan/vil hjælpe?

På forhånd tak

Finn
Avatar billede downloadcentral.dk Nybegynder
08. august 2002 - 23:26 #1
Ja, det var lige i overkanten for mig men held & lykke!
Avatar billede Slettet bruger
08. august 2002 - 23:28 #2
Det skulle ikke være umuligt.
Kigger lige på det...  :-)
Avatar billede Slettet bruger
08. august 2002 - 23:43 #3
Hvis du indsætter denne kodestump i arkets VBA modul, undgår du ihvertfald det første problem.

--------------
Private Sub Workbook_Open()
    Application.Calculation = xlCalculationManual
End Sub
--------------
Avatar billede bennetsen Nybegynder
08. august 2002 - 23:45 #4
Til blackadder
Det vil jeg lige prøve :-)
Avatar billede Slettet bruger
08. august 2002 - 23:48 #5
Det skal være i modulet 'ThisWorkbook' (Det hedder nok noget tilsvarende på dansk)
Avatar billede bennetsen Nybegynder
08. august 2002 - 23:56 #6
Jeg kan ikke få det til at virke.
Jeg har en formel i I-kolonnen og det ser ud til at vba-koden påvirker denne formel således at den viser forkert uanset om det er det eler ej.

Jeg vil nu se dyner, men vender frisk tilbage i morgen
Avatar billede Slettet bruger
09. august 2002 - 00:23 #7
Erstat hele koden i modulet med
-----------------------------
Private Sub Workbook_Open()
    Application.Calculation = xlCalculationManual
    Range("E5").FormulaR1C1 = "=RANDBETWEEN(5,99)"
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Worksheets(1).Columns(9).Calculate
End Sub
---------------------------

Problemet var at E5 kun skal beregnes én gang, men formelerne i kolonne I skal beregnes hver gang. Dette skulle være løst nu.

Formelen "=RANDBETWEEN(5,99)", skal rettes til slump.mellem
Avatar billede Slettet bruger
09. august 2002 - 01:50 #8
Hvis du giver mig din E-mail adresse kan jeg sende dig hvad jeg har lavet.

Jeg har lagt en start-knap på arket, med et ur der tæller ned fra et bestemt antal sekunder.

Nu er det min tur til at se dyner... :-)
Avatar billede laurbjerg Nybegynder
09. august 2002 - 07:49 #9
>blackadder

Jeg har selv "bøvlet" med et lignende program og kunne ikke få det til at fungerer. Er det muligt at få en kopi af dit ?
e-mail: kenne@get2net.dk
Avatar billede bennetsen Nybegynder
09. august 2002 - 07:53 #10
>blackadder

Min email adresse er: bennetsen@web4me.dk
Jeg ligger regnearket ud på nettet bagefter, så kan alle downloade den derfra istedet for at du skal sende den til flere.
Avatar billede bennetsen Nybegynder
09. august 2002 - 17:03 #11
>blackadder
Kan du ikke kaste et svar så jeg kan give dig dine fortjente points?
Avatar billede Slettet bruger
09. august 2002 - 17:20 #12
Jo da. :-)

Var det som du ville have det ?
Avatar billede bennetsen Nybegynder
09. august 2002 - 21:42 #13
>blackadder
Det er bare perfekt. Mange tak for hjælpen.
Avatar billede Slettet bruger
09. august 2002 - 21:50 #14
Tak for point.
Jeg sender lige en kopi til laurbjerg.
Avatar billede skyum Nybegynder
01. april 2003 - 23:50 #15
funktion er forkert: det skal være slumpmellem(x;y)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

IT-JOB

Capgemini Danmark A/S

Strategy & Transformation Consultant

Forsvarsministeriets Materiel- og Indkøbsstyrelse

Senior specialister (DevSecOps) til Forsvarets nye Digitale Backbone

Forsvarsministeriets Materiel- og Indkøbsstyrelse

Teknisk projektleder til stor applikationstransformation i Forsvaret

Riskpoint A/S (Riskpoint Solutions Limited)

Senior Developer