Výpočet v Userform Vyřešeno

[esi32]

Dobrý den,jsem zde opět pro rady.Mám UserForm,ve kterém zadávám hodnoty do faktury,tedy např.částka,odběratel atd.Mám tam položku DATUM VYSTAVENÍ a DATUM SPLATNOSTI.Problém je,že hodnotu DATUM SPLATNOSTI musím vypočítávat sám.Je možné,aby v lListBoxu,do kterého to zapisuji,se to samo vypočítalo?tedy DATUM VYSTAVENÍ + 14 dní.
Děkuji za případnou pomoc.

[Reklama]

[Azuzula]

napadlo mě tohle:

Kód: Vybrat vše

Private Sub TextBox1_AfterUpdate()
Dim den As Double, mesic As Double, rok As Double
Dim datum As Date

datum = DateAdd("d", 14, Me.TextBox1) 'přidá počet dnů k datu
den = Day(datum)
mesic = Month(datum)
rok = Year(datum)

'Me.TextBox2 = datum 'když se použije tento zápis, tak se v textboxu zobrazí ve formátu "m/d/rrrr" a nevím proč i když v proměnné datum je v klasickém formátu d.m.rrrr
Me.TextBox2 = den & "." & mesic & "." & rok
End Sub


TextBox1 a TextBox2 si uprav název podle toho jak to máš ve svým userformu a mělo by to běhat OK.

[d1amond]

Azuzula:

Kód: Vybrat vše

'create by Azuzula

Private Sub TextBox1_AfterUpdate()
Dim den As Double, mesic As Double, rok As Double
Dim datum As Date

datum = DateAdd("d", 14, Me.TextBox1) 'přidá počet dnů k datu

Me.TextBox2 = Format(CDate(datum), "dd/mm/yyyy")
End Sub



[Azuzula]

Aha, taková drobnost :-) Spoustu toho ještě neznám, ale poradit si umím. Ve výsledku je to sice to samé, ale tohle je jednodušší. Díky
Takže:

Kód: Vybrat vše

Private Sub TextBox1_AfterUpdate()
Dim datum As Date
datum = DateAdd("d", 14, Me.TextBox1) 'přidá 14 dnů k datu
Me.TextBox2 = Format(CDate(datum), "dd/mm/yyyy") 'vypíše datum v textboxu
End Sub

[esi32]

Ahoj a děkuju za snahu,ale já to tam nezvládám dát.
Když mám můj starý UserForm,tak tanm to dám a funguje.Ale ted mam UserForm s kalendářem a tam mi to nejde.
Do VYSTAVENÍ FAKTURY zadávám přes kalendář a tam asi někde bude zakopaný psík.Mohli byste se na to podívat?
Na listu Archiv se to spuští a je tam popis,co bych potřeboval vyřešit.Pak je tam ještě jedna věc,ale s tím bych počkal.
S Excelem se učím,už nejsem taky nejmladší a do hlavy to leze pomaleji.Info sbírám hlavně na forech,knížky taky.Jenže bez učitele se to chápe hůř. :-(
Děkuju za Vaši pomoc

[Azuzula]

Tak jsem se na ten dokument mrkla a nechápala jak to vlastně funguje. Po chvíli laborování jsem přišla na to, že mi chybí jakási knihovna na ovládání kalendáře. Pak jsem narazila na další kusy kódu který mi nefungovaly (zřejmě kvůli propojení někam "ven"). Takže nakonec UserForm3 a UserForm5, na nich jsem našla textboxy pro zápis datumů a upravila makra. vyzkoušejte jestli to bude fungovat, já to tady nemám jak otestovat.

--- Doplnění předchozího příspěvku (20 Dub 2012 22:27) ---

Ještě bych doporučila odstranit prázdná makra, zpřehlední se to a soubor se taky zmenší i když třeba jen v řádech kB. Taky jsem si všimla, že na dvou listech máte alokované prázdné řádky (14,6k a 60k) tím se sešit taky hodně umí zvětšit. Přebytečné stačí jen označit a klik pravým myšítkem a "odstranit". Tím se ten dokument smrskne klidně na polovic

[d1amond]

1) zrušil jsem to otravné zobrazení kalendáře po přejetí myší. Kalendář se zobrazí na dvojklik v poli datum vystavení. Zároveň se datum na kalendáři potvrdí dvojklikem a tím se naplní jednak datum vystavení, dále datum splatnosti a zavírá se kalendář.
2) počítat to nelze, protože položky výše splátky a poplatek jsou typu String (díky tomu Kč) a s texty, jak známo, nelze provádět matematické operace. Není to až moc pro blbý, lepit za to Kč?? Šlo by to oříznout a pak přetypovat, ale je to zbytečná opičárna. Raději zrušit Kč, pokud nepracujete s jinou měnou.

Verze1-test1.zip

(333.4 KiB) Staženo 31 x

takže jak poladíme bod 2)?

[esi32]

Super,zkusím to naroubovat..bod 2) bych poladil podle tebe,at je to co nejvíc antiblb..Dík za ochotu:-)

[d1amond]

Verze1-test1.zip

(335.35 KiB) Staženo 65 x

Přidány součty, včetně znaku Kč

[esi32]

Super,skvělá čistá práce.Nezbývá než smeknout.Jen drobnost-Data v ComboBoxu1 a 2 jsem měl možnost AddIttem.Clear-tedy abych mohl zadat i jinou hodnotu než ty co jsou přednastavené.Nyní to možné není.Je možné to ošetřit?-
Beru zpět---vlastní nepozornost,omlouvám se.

[d1amond]

Kdyby bylo ještě něco, tak se ozvi. Jinak příspěvek zamkni.

[esi32]

Ještě bych se zeptal na možnost překlopení sešitu do Accesu.Je to reálné,nebo bude nutné v Accesu začít od začátku?jde o to ,že si myslím,že pokud se projekt rozběhne,tak mám obavy,že Excel nebude stačit.Těch dat bude hodně,řádově stovka klientů měsíčně(podle dosavadních výsledků).