Macro in maken in excel
Forumregels
(Middelbare) school-achtige vragen naar het forum "Huiswerk en Practica" a.u.b.
Zie eerst de Huiswerkbijsluiter
(Middelbare) school-achtige vragen naar het forum "Huiswerk en Practica" a.u.b.
Zie eerst de Huiswerkbijsluiter
-
- Berichten: 34
Macro in maken in excel
hoi
Kan iemand mij helpen ik moet een oefening maken met de functie faculteit in een macro en Excel Excel. Ik heb al een stuk code schreven maar hij aanvaardt het*niet weet iemand wat ik daar moet aandoen graag zo spoedig mogelijk antwoord dank u
groetjes ik zet mijn code erbij
Option Explicit
Sub fac()
Dim geheelGetal As Integer
Dim faculteit As Integer
If geheelGetal = 0 Then
faculteit = 1
ElseIf geheelGetal > 1 Then
Do Until geheelGetal - 1 < 1
faculteit *faculteit = geheelGetal
geheelGetal -geheelGetal = 1
Loop
Debug.Print faculteit
End Sub
Kan iemand mij helpen ik moet een oefening maken met de functie faculteit in een macro en Excel Excel. Ik heb al een stuk code schreven maar hij aanvaardt het*niet weet iemand wat ik daar moet aandoen graag zo spoedig mogelijk antwoord dank u
groetjes ik zet mijn code erbij
Option Explicit
Sub fac()
Dim geheelGetal As Integer
Dim faculteit As Integer
If geheelGetal = 0 Then
faculteit = 1
ElseIf geheelGetal > 1 Then
Do Until geheelGetal - 1 < 1
faculteit *faculteit = geheelGetal
geheelGetal -geheelGetal = 1
Loop
Debug.Print faculteit
End Sub
- Berichten: 6.905
Re: Macro in maken in excel
Je gebruikt een constructie die niet kan: a*a=b gaat niet. (Het is geen wiskunde)
Het vel van de beer kunnen verkopen vraagt moeite tenzij deze dood voor je neervalt. Die kans is echter klein dus moeten we zelf moeite doen.
- Pluimdrager
- Berichten: 3.505
Re: Macro in maken in excel
Ga eens na hoe je met behulp van het begrip faculteit (n+1)! kan bepalen als je n! kent.
"Mathematics is a gigantic intellectual construction, very difficult, if not impossible, to view in its entirety." Armand Borel
-
- Berichten: 473
Re: Macro in maken in excel
Wat dacht je van
Sub Faculteit()
Dim dblFaculteit As Double
Range("C1") = Application.WorksheetFunction.Fact(Range("A1"))
End Sub
Aangezien je de functie Faculteit moet gebruiken lijkt mij dit de juiste oplosiing :eusa_whistle:
Sub Faculteit()
Dim dblFaculteit As Double
Range("C1") = Application.WorksheetFunction.Fact(Range("A1"))
End Sub
Aangezien je de functie Faculteit moet gebruiken lijkt mij dit de juiste oplosiing :eusa_whistle: