Stránka 1 z 2
Výpočet v Userform
Napsal: 20 dub 2012 00:04
od 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.
Re: Výpočet v Userform
Napsal: 20 dub 2012 13:20
od 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.
Re: Výpočet v Userform
Napsal: 20 dub 2012 14:44
od 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
Re: Výpočet v Userform
Napsal: 20 dub 2012 14:52
od 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
Re: Výpočet v Userform
Napsal: 20 dub 2012 19:55
od 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
Re: Výpočet v Userform
Napsal: 20 dub 2012 22:15
od 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
Re: Výpočet v Userform
Napsal: 20 dub 2012 23:10
od 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.
takže jak poladíme bod 2)?
Re: Výpočet v Userform
Napsal: 21 dub 2012 03:00
od esi32
Super,zkusím to naroubovat..bod 2) bych poladil podle tebe,at je to co nejvíc antiblb..Dík za ochotu:-)
Re: Výpočet v Userform
Napsal: 21 dub 2012 11:14
od d1amond
Přidány součty, včetně znaku Kč
Re: Výpočet v Userform
Napsal: 21 dub 2012 12:34
od 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.
Re: Výpočet v Userform
Napsal: 21 dub 2012 14:46
od d1amond
Kdyby bylo ještě něco, tak se ozvi. Jinak příspěvek zamkni.
Re: Výpočet v Userform
Napsal: 21 dub 2012 17:11
od 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ů).