login  Naam:   Wachtwoord: 
Registreer je!
 Forum

Afronden in VBA (Excel)

Offline Marly - 16/01/2006 12:49
Avatar van MarlyHTML interesse Hallo,

Ik zit met een probleem.
Wij moeten in excel macro's maken.
Lukt goed.
We moesten als opdracht het volgende maken.

php code - Bekijk de code zonder highlighting - Klap code in 
  1. Sub Dobbelen2()
  2. Dim Worp, aantal, totaal
  3. aantal = InputBox("Hoevaak moet er gegooit worden?")
  4. Worksheets("Blad1").Range("A1:C1000").Clear
  5. totaal = 0
  6. For a = 1 To aantal
  7. Worp = Int(Rnd * 6 + 1)
  8. Worksheets("Blad1").Cells(a, 1).Value = a
  9. Worksheets("Blad1").Cells(a, 2).Value = Worp
  10. Select Case Worp
  11.     Case Is = 1
  12.         Worksheets("Blad1").Cells(a, 3).Value = "slecht"
  13.     Case Is = 2
  14.         Worksheets("Blad1").Cells(a, 3).Value = "onvoldoende"
  15.     Case Is = 3
  16.         Worksheets("Blad1").Cells(a, 3).Value = "matig"
  17.     Case Is = 4
  18.         Worksheets("Blad1").Cells(a, 3).Value = "voldoende"
  19.     Case Is = 5
  20.         Worksheets("Blad1").Cells(a, 3).Value = "goed"
  21.     Case Is = 6
  22.         Worksheets("Blad1").Cells(a, 3).Value = "geweldig"
  23.     End Select
  24. totaal = totaal + Worp
  26. Rows("1:3").Insert Shift:=xlDown
  27. Worksheets("Blad1").Cells(1, 1).Value = "gooien met een dobbelsteen"
  28. Worksheets("Blad1").Cells(3, 1).Value = " Nummer"
  29. Worksheets("Blad1").Cells(3, 2).Value = "Worp"
  30. Worksheets("Blad1").Cells(3, 3).Value = "Resultaat"
  31. Worksheets("Blad1").Cells(a + 4, 1).Value = "Gemiddelde:"
  32. Worksheets("Blad1").Cells(a + 4, 3).Value = totaal / aantal
  33.     Range("A:E").Columns.AutoFit
  34. End Sub


Hier mee kan je dobbelen.

php code - Bekijk de code zonder highlighting - Klap code in 
  1. Worksheets("Blad1").Cells(a + 4, 3).Value = totaal / aantal


Daar word het gemiddelde uitgerekent.

Nu moeten we een inputbox maken, waar je invult hoeveel decimalen er na de komma moeten komen.

Hier komen we nog niet uit.

Kan iemand me helpen daarmee?

2 antwoorden

Gesponsorde links
Offline Ontani - 16/01/2006 12:58
Avatar van Ontani Gouden medailleGouden medailleGouden medailleGouden medaille

-1		 ik kan enkel zeggen dat je het aantal decimale kan instellen met:
NumberFormat. bijvoorbeeld:

Worksheets("Blad1").Cells(1, 1).NumberFormat = "0.00"
Offline Marly - 16/01/2006 14:34
Avatar van Marly HTML interesse Bedankt.
Als er anderen zijn die tips hebben ze zijn welkom
Gesponsorde links
Dit onderwerp is gesloten.
Actieve forumberichten
© 2002-2024 Sitemasters.be - Regels - Laadtijd: 0.184s