Som van opeenvolgende getallen in VBA programmeren

[ppcorn1]

Hallokes,

ik wens in VBA een formulleke te schrijven zodat ik de som krijg van natuurlijk opeenvolgende getallen zoals bv.:

1+2+3+4+5 = 15

Hoe doe ik dat? Kan iemand mij helpen?
Alvast bedankt,

Tina

 

[Withaar]

Hoe stel je dat voor?

Een VBA formule, zeg met de naam SOMR (voor somreeks) en dat je dan ergens (bv in cel A1) een getal, ik vermoed 5 (grootste waarde van de reeks) intypt en dan met de =SOMR(A1) formule het antwoord 15 krijgt?

Of bedoel je wat anders?

Function SOMR(inputsomr As Variant) As Variant
SOMR = inputsomr
Do Until inputsomr = 0
SOMR = SOMR + inputsomr - 1
inputsomr = inputsomr - 1
Loop
End Function

Code even in een module plakken en klaar.

Probleem is nu natuurlijk dat ik hem geschreven heb en niet jij...

Verder staat je vraag in VB maar heb je het zelf over VBA.
Visual Basic en Visual Basic for Applications zijn twee verschillende dingen... Dit is een VBA oplossing (voor excel).

 

[ajringeling]

antwoord op de vraag

REM Hallo
REM maak een formulier in VB met daarop een label en twee textboxen.
REM de namen van de textboxen zijn hier text1 en text2
REM text1 is voor uitvoer en text2 voor invoer (van getallen)
REM Op het Label kun je toelichtend tekst schrijven


Dim i As Long, m As Long
Private Function som(n As Long) As Long
Dim h As Long: h = 0
For i = 0 To n
h = h + i
Next i
som = h
End Function
Private Sub form_load()
Text1.Text = ""
Text2.Text = ""
m = 20
End Sub

Private Sub Text2_Change()

Text1.Text = ""
m = Val(Text2.Text)
Text1.Text = Str(som(m))

End Sub