Gentei
Legacy Member
Ik heb al een macro gemaakt in word.
Ik moet via die macro een kapitalisatietabel maken en die moet in word tevoorschijn komen als ik op ALT+S druk het probleem is HOE OF WAAR KAN IK DIE VINDEN DAT HIJ DA DOET ALS IK OP ALT+S DRUK want het maakt mij echt gek!!! ik heb alles al geprogrameerd maar da werkt alleen alsk naar extra--->Macro's-----> uitvoeren druk...
hier is de code mochten jullie geïntresseerd zijn
Ik moet via die macro een kapitalisatietabel maken en die moet in word tevoorschijn komen als ik op ALT+S druk het probleem is HOE OF WAAR KAN IK DIE VINDEN DAT HIJ DA DOET ALS IK OP ALT+S DRUK want het maakt mij echt gek!!! ik heb alles al geprogrameerd maar da werkt alleen alsk naar extra--->Macro's-----> uitvoeren druk...
hier is de code mochten jullie geïntresseerd zijn
Code:
Sub Kapitalisatie()
' Kapitalisatie Macro
Dim strBeginkapitaal As String
Dim sngEindkapitaal As Single
Dim sngIntrest As Single
Dim strJaren As String
Dim strPercent As String
Dim intTeller As Integer
Dim strEersteRegel As String
Do
Do
Do
strBeginkapitaal = InputBox("Geef een beginkapitaal!", "Beginkapitaal")
If IsNumeric(strBeginkapitaal) = False Then
MsgBox "Een numerieke waarde ingeven voor het kapitaal!", vbOKOnly + vbCritical, "Foute invoer"
End If
Loop Until IsNumeric(strBeginkapitaal)
strJaren = InputBox("Geef het aantal jaar!", "Aantal jaar")
If IsNumeric(strJaren) = False Then
MsgBox "Een numerieke waarde ingeven voor de jaren!", vbOKOnly + vbCritical, "Foute invoer"
End If
Loop Until IsNumeric(strJaren)
strPercent = InputBox("Geef het percent (zonder %)!", "Percentage")
If IsNumeric(strPercent) = False Then
MsgBox "Een numerieke waard eingeven voor het percent!", vbOKOnly + vbCritical, "Foute invoer"
End If
Loop Until IsNumeric(strPercent)
Selection.TypeText Text:="Aantal jaar: " & strJaren & vbCrLf
Selection.TypeText Text:="Beginkapitaal: " & strBeginkapitaal & vbCrLf
Selection.TypeText Text:="Intrest: " & strPercent & vbCrLf
strEersteRegel = Format("Jaar", "!" & String(6, "@")) & Format("BK", "!" & String(10, "@")) & Format("Intrest", "!" & String(10, "@")) & Format("EK", "!" & String(15, "@"))
Selection.TypeText Text:=strEersteRegel & vbCrLf
Do
intTeller = intTeller + 1
sngIntrest = Val(strBeginkapitaal) * Val(strPercent) / 100
sngEindkapitaal = Val(strBeginkapitaal) + sngIntrest
Selection.TypeText Text:=Format(intTeller, "!" & String(6, "@") & Format(Val(strBeginkapitaal), "!" & String(10, "@"))) & Format(sngIntrest, "!" & String(10, "@")) & Format(sngEindkapitaal, "!" & String(15, "@")) & vbCrLf
strBeginkapitaal = sngEindkapitaal
Loop Until intTeller = Val(strJaren)
End Sub