Oříšek Excel VBA-REVIZE

[yardaz]

Ahoj!
Zkusil jsem,nejde mi to,jsem nasr...
Pro kamaráda jsem zkusil úkol v příloze-podle jeho představ.
Nedovedl by mi někdo pomoci.
V případě úspěchu chci dát k dispozici na netu všem,kterým vadí,že je dnes všechno za peníze a už nic se nedá sehnat v hospodě





http://uloz.to/xXhxvHS/revize-test-test-xlsm

[Reklama]

[pavel.lasak]

číslo revize - jen číselný údaj nebo mohou být písmena?
Seznam pro vyběr objektu? Bude pevný počet nebo se bude průběžně doplňovat?
Předmět revize? Jaké bude obsahovat položky?
Závěr - (revidované zaří je - revidované zař není)?

Pravidelná, mimořádná, výchozí? - patří kam?
Zhoršil, nezměnil , zlepšíl - patří kam?

Něco jsem zkusil
http://uloz.to/x14rRz8/revize-lasakovi-com-xlsm

Upravit - dialogové okno kde si vybere číslo revize které chce změnit?

Ukládání do pdf bude uživatel volit složku? názve bude odpovídat číslu revizní zpráva?

[yardaz]

Zpráva o revizi elektrického zařízení
Tlačítko Nová revize v listě Revize vyvolá dialog
Tlačítko Upravit vyvolá dialog k úpravám,po úpravě (stisku Vložit)se dialog zavře
Tlačítko Uložit uloží zprávu do složky (volba uživatele) a název bude odpovídat číslu revize a do listu "Databáze revizí" se zapíší předepsané položky
Tlačítko Vyčistit vyčístí vyplněné buňky,včetně šedých buněk v Zdroje elektrického proudu,Soustava,Ochrana před nebezpečným dotyk.napětím
Instalováno(připojeno),Revize,Stav zařízení se od poslední revize
Tlačítko Tisk vytiskne zprávu do PDF
č.-pouze číselné hodnoty např. 095/12
Vykonaná dne-sem se vloží DATUM PROVEDENÍ z dialogu (lze do dialogu vložit rozbalovací kalendář ??)
Termín příští revize-automaticky se vyplní měsíc a rok podle zadání v dialogu PERIODA REVIZE
Objekt - sem se vloží z listu "Odběratelé" např.
Mateřská škola
Herodesova 666
432 01 Hrob v dialogu rozbalovací seznam,který bude mít možnost doplnění
Zařízení- sem se vloží PŘEDMĚT REVIZE z dialogu
Závěr - sem se vloží ZÁVĚR z dialogu
Závady - sem se vloží ZÁVADY z dialogu

Po stisknutí VLOŽIT na dialogu se zapíšou hodnoty do formuláře a dialog zmizí
- - - - - - - -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Ostatní se bude vyplňovat manuálně,kromě Revize a Stav zařízení se od poslední revize kde bude v buňce rozbalovací seznam.Nebo by bylo lepší Vaše řešení,kdy v dialogu bude
Revize
-pravidelná
-mimořádná
-výchozí
Stav zařízení se
-změnil
-nezměnil
-zhoršil
-zlepšil

K Vašim dotazům
Upravit - dialogové okno kde si vybere číslo revize které chce změnit?- To by bylo super
Ukládání do pdf bude uživatel volit složku? názve bude odpovídat číslu revizní zpráva? To by bylo super,super

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Co se týče dalších stránek-budou se vyplňovat manuálně,po překročení místa na stránce se bude pokračovat na další se stejným rozvržením a textem v hlavičce
jako na stránce 2.
Ježiš,takových slov-snad Vás to neotráví

[pavel.lasak]

1) Odstranil jsem kupu materiálu, který předpokládám není pro Revizi potřeba nikde vkládat (List Položky) - zmenšení velikosti
2) Tak jsem začal s makrem pro ukládání (ať se to pohne). Jméno je s lomítkem což není číslo. Může se psát jen číslo a lomítko se doplní automaticky s měsícem vzniku (12). Nebo místo pomlcky bude skript dávat mínus ať jde ukládat (jméno nemůže mít lomitko). Zatím není ošetřeno. Funguje jen když se napíše číslo.
3) kontroluje zda je nějaké číslo zadáno
3a) Doplnim pokud již pdf existuje zeptá se zda přepsat (ať není stejné číslo přepsáno).

4) v dialogu NOVA REVIZE je již naznačen výběr položek který se zapíše, storno zneviditelní formulář.

Zítra podle času budu pokračovat dál.
Potřebuji odpověď
A) jak tvořit číslo revize (co s lomítkem)
B) Objekt - sem se vloží z listu "Odběratelé" např. Co když odběratel bude mít několik objektu (VŠ, ZŠ, MŠ, Atoškola)?

REVIZE--lasakovi-com-2.xlsm

(169.64 KiB) Staženo 47 x

[yardaz]

1) ¨Prima soubor byl příliš objemný
2) Může být mínus-je to označení čísla revize a roku ( 092-12)
3) SUper
4) Ok
Děkuji za Váš čas.

[pavel.lasak]

1) Tak jsem doplnil vyčistit.

Během dne se vrhnu na další

Jinak další dotaz
Objekt - sem se vloží z listu "Odběratelé" např. Co když odběratel bude mít několik objektu (VŠ, ZŠ, MŠ, Atoškola)?

[yardaz]

Do přílohy jsem vložil sešit s poznámkami.
V případě bych mohl dodat do sešitu upravený dialog a upravená tlačítka-budete-li souhlasit.
Cením si Vaší práce-Děkuji

REVIZE--lasakovi-com-3-POZNÁMKY.xlsm

(171.02 KiB) Staženo 27 x

[pavel.lasak]

VYČISTIT
- vypadá že je hotovo
? stačí takto ?

Doplněna NOVA REVIZE. Zbýva pro tuto dotvořit
- kontrola zda je číslo revize správně zapsané
- doplnit "objekt" o další údaje pomocí SVYHLEDAT
- pokud neuloženo tak se zpetá zda nejprve uložit.
- kalendar pro vyber
? stav zařízení a závěr vyhovuje ve formuláři?

UPRAVIT rozpracovano - buden návaznost na úložit

Pro ULOŽIT budu mít dotazy až naformuluji.

TISK
- nutno kontrolovat zadáné číslo, zda není a je dobře napsané (kdyby někdo přepsal)
- kontrola existuje uklad soubor
? Stačí jeden adresář který se nastaví pro ukládaní ?

[yardaz]

VYČISTIT-Vypadá už OK (MĚLO BY VYČISTIT I NÁSLEDUJÍCÍ STRÁNKY C71:U114,C122:166 etc.)
ale nevím jak upravit-protože počet stránek bude záviset na na manuálně vyplněných datech-může se stát.že revize bude mít 15 stránek-od stránky 2 by měla zůstat HLAVIČKA A FORMÁTOVÁNÍ
TISK-Ano stačí jeden adresář pro ukládání.
Stav zařízení a závěr vyhovuje
Rád bych přispěl s nějakými úpravami na které stačím,neboť kamarád mě stále zásobuje novými požadavky a vylepšeními,bohužel mi je pouze tlumočí ústně.
Co se týče programování nejsem tak zběhlý jako Vy a připadá mi barbarské zasahovat Vám do práce...
Děkuji

[pavel.lasak]

VYČISTIT: Jak je v plánu přidávat další listy? Ať mohu dodělat mazání dalších listů.

NOVA REVIZE - Dodělány kontroly. Zbýva kalendář, a doplnění Objekt.

ULOŽIT:
? V jakém formátu je plán ukládat revizní zprávy ?
? Bude se opět načítat, nebo se budou načítat jen data uložena v sešitu a zbytek prázdný ?

TISK: Dokončení kontroly. Ještě zkontroluji zadané číslo


PS: Doporučuji dodělat základ a pak postupně pokračovat ve vylepšeních.
PSS: Klidně do kódu zasahujte..

[yardaz]

VYČISTIT: Jak je v plánu přidávat další listy? Ať mohu dodělat mazání dalších listů. V TOMTO SEŠITU BY UŽ NEJSOU DALŠÍ LISTY POTŘEBA.

NOVA REVIZE - Dodělány kontroly. Zbýva kalendář, a doplnění Objekt.

ULOŽIT:
? V jakém formátu je plán ukládat revizní zprávy ? BYLO BY DOBRÉ UKLÁDAT V XLS KVŮLI MOŽNOSTI ÚPRAVY
? Bude se opět načítat, nebo se budou načítat jen data uložena v sešitu a zbytek prázdný ? PRO PŘEHLEDNOST OPĚT NAČÍTAT CELÉ

TISK: Dokončení kontroly. Ještě zkontroluji zadané číslo

PS: Doporučuji dodělat základ a pak postupně pokračovat ve vylepšeních.
PSS: Klidně do kódu zasahujte..

VÁMI UPRAVOVANÝ SEŠIT JE PRO MĚ INSPIRACÍ A VÝBĚREM ŘEŠENÍ.MÁM JEŠTĚ DALŠÍ ÚPRAVY A NÁPADY NA VYLEPŠENÍ,ALE NECHCI VÁM BRÁT ČAS......
PO DOKONČENÍ TOHOTO SEŠITU JE ZKUSÍM ZAPRACOVAT A VÝSLEDEK BYCH SI DOVOLIL S VÁMI PROKONZULTOVAT
DĚKUJI

[pavel.lasak]

Doplnil jsme UKLADANI - k ukládání doplním kontroly. Zatím je nastaveno ukládání do stejného adresáře, ale mohu doplnit ať je možnost zvolit jiný adresář. Dnes jen málo nějak nestíhám.

Uložený soubor zymykat? At nemůže nikdo přepsat

NAČÍTANÍ
Při načítání co když soubor bude smazán? Jen hláška revize není k dispozici
Co když někdo soubor změní? A načtená data nebudou odpovídat těm co jsou v databázi? Kontrolovat?