Avatar billede Tryllefeen Nybegynder
09. maj 2010 - 21:44 Der er 3 kommentarer og
1 løsning

Formel virker ikke i VBA, men virker fint som "standard" formel i Excel

Hej! Jeg har siddet og hivet mig selv i håret nogle timer.
Jeg har lavet nedenstående kodning ud fra en lærerbog:

Function ACI(settlement As Date, maturity As Date, rate, freq As Integer, Optional basis As Integer)
'Calculates the accrued interest at settlement
If settlement < maturity Then
ACI = 100 * rate / freq * (1 - KUPONDAGE.ANK(settlement, maturity, freq, basis) / KUPONDAGE.A(settlement, maturity, freq, basis))
End If
If ACI = 0 Or settlement = maturity Then ACI = 100 * rate / freq
End Function

Hvis jeg benytter formlen fra VBA "=ACI(A15,B$5,B$2,B$6,0)" skriver den "#Værdi".
Hvis jeg derimod skriver det hele ind i Excel på "normal" vis, virker det fint.

=HVIS(100*B$2/B$6*(1-KUPONDAGE.ANK(A15,B$5,B$6,0)/KUPONDAGE.A(A15,$B$5,B$6,0))=0,$B$2*100/$B$6,100*B$2/B$6*(1-KUPONDAGE.ANK(A15,B$5,B$6,0)/KUPONDAGE.A(A15,$B$5,B$6,0)))

Jeg er virkelig på bar bund, så en hjælpende hånd ville være dejligt.

Jeg kan sende Excel-arket, hvis det er lettere.

På forhånd tak!
/Martin
Avatar billede kabbak Professor
09. maj 2010 - 22:46 #1
Function ACI(settlement As Date, maturity As Date, rate, freq As Integer, Optional basis As Integer)
'Calculates the accrued interest at settlement
If settlement < maturity Then
ACI = 100 * rate / freq * (1 - Application.WorksheetFunction.KUPONDAGE.ANK(settlement, maturity, freq, basis) / Application.WorksheetFunction.KUPONDAGE.A(settlement, maturity, freq, basis))
End If
If ACI = 0 Or settlement = maturity Then ACI = 100 * rate / freq
End Function
Avatar billede Tryllefeen Nybegynder
09. maj 2010 - 23:18 #2
Det giver samme udfald, desværre...
Avatar billede Tryllefeen Nybegynder
09. maj 2010 - 23:21 #3
Men det virker, hvis jeg bruger de engelske betegnelser :D

Mange tak! Smid et svar, så får du point
Avatar billede kabbak Professor
09. maj 2010 - 23:57 #4
;-))
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester