• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

excel vba HELP

Status
Niet open voor verdere reacties.

paulebal

Gebruiker
Lid geworden
16 sep 2008
Berichten
17
hoe zorg ik dat ik het aantal termen koppel aan de reeks???


Sub reeks()

Dim tel As Single
Dim getal As Integer

getal = InputBox("uit hoeveel termen moet de reeks bestaan")

Do
tel = 1 + 1 / 2 * tel



MsgBox tel

Loop

End Sub
 
Nieuwe huiswerkopgave? :confused:
Beetje hardleers!:mad:

Wat bedoel je met termen ?
Oh ja, de lus als zodanig heeft weinig nut omdat het maar 1 keer zal doorlopen.

Met vriendelijke groet,


Roncancio
 
termen

het is toch helemaal niet zo erg dat het huiswerk is, dit zijn opgaven waar ik echt niet uitkom ik heb een stuk of 30 opdrachten waar ik een paar niet begrijp, ik maak hier wel een begin maar loop dan vast.

met termen bedoel ik tot hoever de reeks moet door gaan dus
2 termen = 1 + 1/2
3 termen = 1 + 1/2 +/1/4
4 termen = 1 + 1/2 + 1/4 +1/8
 
Deze site is niet bedoeld om huiswerk te maken.

De gegevens van de inputbox moet je gebruiken om de berekening te maken.
Nu komt er een getal uit en vervolgens doe je daar niets mee.
Dat getal moet je gebruiken om het aantal loops te bepalen.

Met vriendelijke groet,


Roncancio
 
laatste vraag

hoe zorg ik ervoor dat de lus stopt wanneer de aantal ingevulde termen geweest zijn?
 
hoe zorg ik ervoor dat de lus stopt wanneer de aantal ingevulde termen geweest zijn?

Door de waarde die ingevuld is te gebruiken voor de lus.
Je vraagt om een getal. Dan kan je dat getal gebruiken om aan te geven hoe vaak de lus moet worden doorlopen.

Met vriendelijke groet,


Roncancio
 
antwoord

volgens mij heb ik em

alleen snap ik die for next niet helemaal

Sub reeks()

Dim tel As Single
Dim getal As Integer
Dim x As Integer


getal = InputBox("uit hoeveel termen moet de reeks bestaan")

For x = x To getal

tel = 1 + (1 / 2 * tel)

MsgBox tel

Next

End Sub


bedankt voor de hulp mega senior
 
volgens mij heb ik em

alleen snap ik die for next niet helemaal

Sub reeks()

Dim tel As Single
Dim getal As Integer
Dim x As Integer


getal = InputBox("uit hoeveel termen moet de reeks bestaan")

For x = x To getal - 1

tel = 1 + (1 / 2 * tel)

MsgBox tel

Next

End Sub


bedankt voor de hulp mega senior

Zie je dat je het kan :thumb::thumb::thumb:
Volgens mij zit er een miniem foutje in.
In 1 van je vorige mailtjes schreef je dit:

2 termen = 1 + 1/2
3 termen = 1 + 1/2 +/1/4
4 termen = 1 + 1/2 + 1/4 +1/8

Ik heb de -1 toegevoegd omdat (naar mijn mening) anders de lus 1 keer te veel werd doorlopen. Als ik het mis heb, moet je het maar verwijderen.

Met de For .. Next lus geef je onvoorwaardelijk aan hoe vaak de lus moet worden doorlopen.
Door de Next wordt automatisch het volgende Getal genomen. Je hoeft dus geen teller voor Getal te gebruiken.

Ik ben zeer tevreden dat je het programma zelf hebt ontwikkeld.:thumb:
Gaarne nog even de vraag op opgelost zetten.
Bvd.

Met vriendelijke groet,


Roncancio
 
Laatst bewerkt:
ja hebt gelijk hij liep een keer teveel door

bedankt voor de moeite:thumb:

op naar de volgende vraag, ik hoop dat ik deze zelf kan
 
ja hebt gelijk hij liep een keer teveel door

bedankt voor de moeite:thumb:

op naar de volgende vraag, ik hoop dat ik deze zelf kan

Verzin eens een passende titel voor je topics, want de deze zegt helemaal niets.

Heb jij trouwens ook de zoekfunctie al ontdekt? Scheelt jou gegarandeerd tijd en moeite :thumb:
 
Code:
Sub reeks()

    Dim tel As Single
    Dim getal As Integer
    Dim i As Integer
    
    getal = InputBox("uit hoeveel termen moet de reeks bestaan")
    
    For i = 1 To getal
    
        tel = tel + i ^ (1 - i)
    
    Next
    
    MsgBox tel

End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan