• 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.

functie maken

Status
Niet open voor verdere reacties.

yadeki

Gebruiker
Lid geworden
6 sep 2009
Berichten
12
Hoi,

Ik ben bezig met het aanleren van het creëren van functies in excel.
Ik had graag de functie fix() gebruikt in de VBA code.
Echter ik doe iets fundamenteels verkeerd.
Iemand die mij kan helpen met mij VBA code?


in A3 zou de functie "afkappen" moeten komen die het getal in A1 afkapt.


Ik vraag geen soortgelijke functie maar echt de reden waarom het in mijn VBA code misloopt. Ik weet dat je ook kunt afkappen op een andere manier (=geheel()), mar zo leer ik niets bij.

De bedoeling is dat de functie in A3 geplaatst wordt met de getallen achter de komma er afgekapt. Het enige dat ik krijg is een leeg vak?

Je vindt het bestand terug op http://yadeki.be/docs/fix_functie.xlsm
 
Hoi,

Ik ben bezig met het aanleren van het creëren van functies in excel.
Ik had graag de functie fix() gebruikt in de VBA code.
Echter ik doe iets fundamenteels verkeerd.
Iemand die mij kan helpen met mij VBA code?


in A3 zou de functie "afkappen" moeten komen die het getal in A1 afkapt.


Ik vraag geen soortgelijke functie maar echt de reden waarom het in mijn VBA code misloopt. Ik weet dat je ook kunt afkappen op een andere manier (=geheel()), mar zo leer ik niets bij.

De bedoeling is dat de functie in A3 geplaatst wordt met de getallen achter de komma er afgekapt. Het enige dat ik krijg is een leeg vak?

Je vindt het bestand terug op http://yadeki.be/docs/fix_functie.xlsm

Logisch.
Er staat geen enkele code in de functie.

Ik heb het vetgedrukte code toegevoegd.

Code:
Public Function afkappen(getal) As String

[I]Dim snggetal As Single
Dim sngresultaat As Single[/I]

[B]afkappen = Fix(getal)[/B]


End Function
Het cursieve gedeelte is niet nodig.


Met vriendelijke groet,


Roncancio
 
Logisch.
Er staat geen enkele code in de functie.

Ik heb het vetgedrukte code toegevoegd.

Code:
Public Function afkappen(getal) As String

[I]Dim snggetal As Single
Dim sngresultaat As Single[/I]

[B]afkappen = Fix(getal)[/B]


End Function
Het cursieve gedeelte is niet nodig.


Met vriendelijke groet,


Roncancio

Oh kijk, ik heb nog veel te leren, simpelweg de bewerking vergeten :D
Dank je wel!
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan