Fórumok
Sziasztok!
A következő dologra van szükségem:
Itt található a jegybanki alapkamat mértéke időszakonként: http://apeh.hu/jegybank
Ez alapján csináltam egy Excel számolótáblát, rögzítettem egy makrót.
Azt csinálja, hogy a munkalap1-ről átmásolja a számolótáblába a tartozást, kiszámítja időszakonként a kamatot majd összesíti, utána visszamásolja a munkalap1-be. Ezt viszont egyenként, billentyűparanccsal. Ezt szeretném kiváltani, valamiféle függvénnyel. Tehát függvény(A1) kiszámolná az A1 cellában lévő tartozásra eső pótlékot (csak 2006. január 1-től).
Nincs valakinek ilyen felhasználói függvénye készen? Nem igazán értek a VB-hez, google sem segített.
Hozzászólások
Pelda sajat fuggveny definialasara Excelben
Ez a függvény miért nem működik:
Excel, VBA
Public Function potlek(MyNum) As Double
Dim nap As Double
Dim kam As Double
Dim pot As Double
Dim osszeg As Double
Dim napok(0 To 30) As Double
napok = Array(10, 20, 216, 27, 34, 27, 10, 28, 35, 21, 35, 28, 189, 19, 9, 14, 14, 33, 149, 28, 28, 91, 98, 91, 176, 68, 29, 28, 35, 35, 170)
Dim kamat(0 To 30) As Float
kamat = Array(0.031, 0.03, 0.028, 0.03, 0.031, 0.032, 0.034, 0.035, 0.038, 0.041, 0.043, 0.046, 0.052, 0.054, 0.054, 0.057, 0.06, 0.063, 0.046, 0.045, 0.043, 0.041, 0.041, 0.042, 0.043, 0.043, 0.042, 0.039, 0.036, 0.034, 0.032)
For n = LBound(napok) To UBound(napok)
For k = LBound(kamat) To UBound(kamat)
nap = napok(n)
kam = kamat(k)
pot = (MyNum * nap * kam) / 100
osszeg = osszeg + pot
Next n, k
potlek = osszeg
End Function
1. Array function
2. Float helyett Single
3.
helyett:
---
Egy jól megállapított probléma félig megoldott probléma.
- Charles Kettering
Így sem megy...
Sziasztok!
Már nagyjából működik a függvényem, csak valahogy le kéne vágni 3 számjegyre egy változót VisualBasic-ben. Hogyan lehetne ezt megoldani?