Excel feladat - naptárhasználat, makró, programozás? :-)

Microsoft Windows

Sziasztok!

Munkahelyen szeretnék egy feladatot megoldani, ezért excel...

A feladat a következő (először bonyolultan):

Hitel törlesztési ütemezést szeretnék számolni. Bemeneti adatok: hitelösszeg, törlesztőrészletek száma, törlesztés gyakorisága, utolsó törlesztés ideje, törlesztőrészletek kitűzött napja (pl 15-e), nem preferált napok.
A legjobb az lenne, hogy ha megadom a fenti paramétereket, akkor a táblázat legenerál nekem egy törlesztési ütem sort, a következőképpen:

"2010.01.19 20.000,- Ft azaz Húszezer forint"

Kis magyarázatra szorul a "nem preferált napok" input. Itt olyasmire kell gondolni, hogy pl. ha 15-e egy kiválasztott napra (péntek, szombat, vasárnap) esik, akkor a legközelebbi nem ilyen napra (csütörtök) essen a törlesztés, ez jelenjen meg a sorban. Figyelje tehát a hétvégét, a pénteket. Jó lenne továbbá, ha az ünnepnapokat is figyelné, meg a hóvégét...

Ezek tehát az igények. Gondolom makrókat kellene használnom, életemben először... Hát, nem szépek a kilátások.

Igazából már az is tökéletes lenne, ha csak a napokra sikerülne odafigyelni, hogy ne essenek ünnepnapra, hóvégére, és péntekre. Ha mégis, akkor előtte levő legyen. Vagy csak jelezze, hogy nem jó, át kell írni. A többi hókuszpókusz csak hab lenne a tortán! Sok manuális munkától menekülnék meg...

Tudna valaki segíteni, hogy merre induljak el? Keresgettem , de nem találtam (nem is tudom, mit keressek :-( )

Előre is köszönöm a segítő válaszokat!

Kodmen

ui.: lehetséges olyan hivatkozást megadni excel-ben, hogy pl Az A5 cella tartalma, valamint az attól lefele lévő 3 cella tartalma és múvelet azokkal a hivatkozás tárgya egy B1 cellában?

  • 5479 megtekintés

( kodmen | 2010. 01. 21., cs – 13:44 )

Hát, nem sokan tudtak eddig hozzászólni :-) Megoldható egyáltalán excellel, vagy ne is várjak választ?

Köszönöm!

Kodmen
-------------------
...a Linux filozófiája: "Keresd a veszélyt". Hopp! Nem így van. "Csináld magad!" Ez az! (Linus Torvalds)

( fgabi | 2010. 01. 21., cs – 14:14 )

Helló!
A törlesztőrészletek összege ismert? Vagy azt is Excellel számoltatnád? Mert akkor még hiányzik bemenő adat...

Vehetjük ismertnek, mert a dátumok ellenőrzése a lényeg, az okoz többletmunkát. A részletek egyszerűen számolhatók manuálisan is.

Gondolom így egyszerűbb.

Kodmen
-------------------
...a Linux filozófiája: "Keresd a veszélyt". Hopp! Nem így van. "Csináld magad!" Ez az! (Linus Torvalds)

( naszta v | 2010. 01. 21., cs – 15:15 )

Lehet egyszerűbb Visual Basic-kel operálni. Nézegesd meg a help-et, mert bármi programozható vele Excel-ben és tök egyszerű. (A VB progi pedig az xls-be vagy xlsx-be lesz mentve.)
--
http://www.naszta.hu

Igen, a felhasználók egy részének még a word doksi formázása (korrektúra elfogadása) is gondot okoz, személyes "oktatásra" nincs lehetőségem.

Visual Basic? Utána nézek, bár az hosszadalmasabb lesz, mert meg kell ismerkedjünk :-) Azért köszönöm!

Kodmen
-------------------
...a Linux filozófiája: "Keresd a veszélyt". Hopp! Nem így van. "Csináld magad!" Ez az! (Linus Torvalds)

( dj | 2010. 01. 21., cs – 16:09 )

Mintha erre lenne beépített függvénye. részlet, vagy prészlet a neve.

( Keek | 2010. 01. 26., k – 14:27 )

Hali!

Én a feladatot saját függvény definiálásával oldanám meg.

help erre: Create your own worksheet functions

Function Joeanap(datum As Date)

Dim ev As Integer
Dim honap As Integer
Dim nap As Integer

ev = Year(datum)
honap = Month(datum)
nap = Day(datum)

hetnapja = Application.WorksheetFunction.Weekday(datum, 2)
'a het hanyadik napja, ha a het hetfon kezdodik

If hetnapja = 6 Then 'ha az adott datum szombatra esne
If nap = 1 Then 'ha az adott datum a honap elso napja
nap = 3 'akkor maradjunk az adott honapon belul
Else
nap = nap - 1 'kulonben lepjunk egy napot vissza
End If
End If

If hetnapja = 7 Then 'ha az adott datum vasarnapra esne
If datum = Application.WorksheetFunction.EoMonth(datum, 0) Then
'ha az adott datum a honap utolso napja
nap = nap - 2 'akkor lepjunk ket napot vissza
Else
nap = nap + 1 'kulonben lepjunk egy napot elore
End If
End If

Joeanap = DateSerial(ev, honap, nap) 'visszaadjuk a datumot
End Function

Ez egyelőre még csak részmegoldás, de szerintem innen már el tudsz indulni...