Excel 2003 - projekt KNIHOVNA

[George.K]

Po několika dotazech
http://www.pc-help.cz/viewtopic.php?f=35&t=61759
http://www.pc-help.cz/viewtopic.php?f=35&t=62320
http://www.pc-help.cz/viewtopic.php?f=35&t=62366
a přečtení "několika" dotazů jiných uživatelů jsem si uvědomil, že je lépe ptát se s vyjasněním "pozadí" dotazu.
Některé odpovědi můžou být jednotlivě vynikající, ale při začlenění do celku se začnou objevovat problémy.
Protože svůj reálný projekt tady nemůžu publikovat, trochu jsem ho modifikoval a "převedl" na "veřejný".
Podrobnosti jsou v příloze.
Požádám místní znalce, zda by se podívali zatím na ideový návrh a ze svých znalostí ho zkritizovali, doplnili, upřesnili, poradili "fintu".
Nežádám o zpracování celého kódu ale o pomoc při jednotlivostech.
Další dotazy, které budu (jistě) mít, budou právě v rámci tohoto projektu.

Děkuji předem :-)

//odkazy vkládej ve formátu, který umožní jejich otevření kliknutím - tj. přes tlačítko URL

//příspěvek uperaven

//mmm

[Reklama]

[navstevnik]

Rozsah - pro radove stovky zaznamu mesicne a do celkoveho poctu zaznamu cca 20 000 a jednoduchou strukturu a jednouzivatelske prostredi je jeste pouzitelne reseni v Excelu, jinak je nutno zvlaste ve viceuzivatelskem prostredi prejit na databazovou aplikaci (mnozi se ofrnuji nad Accesem, ale da se pouzit).
At zustanes u Excelu nebo pouzijes databazi, tak je nutno projekt resit databazove - dusledne oddelit BackEnd (tabulky se zaznamy a ostatni tabulky) a FrontEnd pro uzivatelsky pristup (pocinaje prihlasovanim uzivatelu, pristupovymi pravy a spravou uzivatelu pres zadavani a overovani dat, dotazy a az po tiskove vystupy).
Uvadis:

Chtěl bych ho řešit modulově, aby se daly moduly/podprogramy využit i v jiných projektech.

tak res a obcas, kdyz budes v koncich, tak sem napis.

PS.: Pokud zadani na listu Projekt povazujes za nabidku prace, tak za kolik. Jen tak pro informaci: sveho casu CLK pozadovala za vyhotoveni neschopenky bez postovneho cca 100 Kc, takze pri potrebnem casu na vyhotoveni v delce cca 5 - 6 minut jsou hodinove naklady cca 1000 Kc a musiz uznat, ze prace na analyze a programu je narocnejsi.

[George.K]

Rozsah - pro radove stovky zaznamu mesicne a do celkoveho poctu zaznamu cca 20 000 a jednoduchou strukturu a jednouzivatelske prostredi je jeste pouzitelne reseni v Excelu, jinak je nutno zvlaste ve viceuzivatelskem prostredi prejit na databazovou aplikaci (mnozi se ofrnuji nad Accesem, ale da se pouzit).

Doplnil jsem do "projektu" (Desítky záznamů... zůstane Excel)

At zustanes u Excelu nebo pouzijes databazi, tak je nutno projekt resit databazove - dusledne oddelit BackEnd (tabulky se zaznamy a ostatni tabulky) a FrontEnd pro uzivatelsky pristup (pocinaje prihlasovanim uzivatelu, pristupovymi pravy a spravou uzivatelu pres zadavani a overovani dat, dotazy a az po tiskove vystupy).

To bych rád, protože (jak píšu na listuProjekt) musí tabulka "fungovat" i samostatně - ruční doplnění.
Můžeš přidat pár postřehů, co to v praxi znamená "...dusledne oddelit BackEnd a FrontEnd pro uzivatelsky pristup" ?

PS.: Pokud zadani na listu Projekt povazujes za nabidku prace, tak za kolik. Jen tak pro informaci: sveho casu CLK pozadovala za vyhotoveni neschopenky bez postovneho cca 100 Kc, takze pri potrebnem casu na vyhotoveni v delce cca 5 - 6 minut jsou hodinove naklady cca 1000 Kc a musiz uznat, ze prace na analyze a programu je narocnejsi.

Ne, nemyslel jsem to jako "nabídku práce", ale jak píšu výše, abych pokaždé nemusel vysvětlovat všechny podrobnosti k dotazu, který mám/budu mít (a postupně přidával co ještě všechno chci doplnit :-)
Jak sem si přečet v tvých odpovědích navstevniku, jsi vždycky rád / /,když tazatel postupně přidává podmínky a to co jsi na začátku vytvořil se musí postupně předělávat nebo udělat celé znovu - tomu jsem se chtěl vyhnout.

tak res a obcas, kdyz budes v koncich, tak sem napis.

Prví dotazy -
Co bude (následně) jednodušší - použit přepínač (čtenář CZ/EN) (přihlášení/odhlášení) a podle toho vybrat vstupní pole (ostatní zašedlé) nebo využít MultiPage se dvěmi kartami…
Ještě nevím jak nejjednodušeji odlišit při TISKU ženy a muže ve formulacích textu - jsem si vědom/a, konal/a
Vytvořit dvě stránky? Zaměňování konkrétních slov by asi bylo komplikovanější...?

[navstevnik]

Oddelit BackEnd a FrontEnd znamea, ze uzivatel nema jakykoliv primy pristup k databazi, pouze zprostredkovane (formulare), kdy lze omezit nekorektni postup uzivatele.
Pokud zustanes u Excelu a databaze bude viceuzivatelska, budes muset osetrit "paralelni" operace zapisu dat vice uzivateli ve sdilenem souboru.
Musim te zklamat, ale nejspis jsi nepostrehl v mnoha mych odpovedich pozadavek na jednoznacne a uplne polozeni dotazu, u nekterych tazatelu opakovane, bohuzel bez vysledku.

Prví dotazy -
Co bude (následně) jednodušší - použit přepínač (čtenář CZ/EN) (přihlášení/odhlášení) a podle toho vybrat vstupní pole (ostatní zašedlé) nebo využít MultiPage se dvěmi kartami…
Ještě nevím jak nejjednodušeji odlišit při TISKU ženy a muže ve formulacích textu - jsem si vědom/a, konal/a
Vytvořit dvě stránky? Zaměňování konkrétních slov by asi bylo komplikovanější...?

Toto jsou dotazy az po rozhodnuti o strukture databaze, tim zacni.
Budes-li stavet dum, tak nebudes resit nejdriv tapety v pokoji.

[George.K]

Pokud zustanes u Excelu a databaze bude viceuzivatelska, budes muset osetrit "paralelni" operace zapisu dat vice uzivateli ve sdilenem souboru.

Excel, jednouživatelská - jak píšu v aktualizované příloze..
Šetří se všude - obvykle tedy pracuje jeden knihovník, maximálně do 5ti, ale NIKDY ne současně(nejednou).

Musim te zklamat, ale nejspis jsi nepostrehl v mnoha mych odpovedich pozadavek na jednoznacne a uplne polozeni dotazu, u nekterych tazatelu opakovane, bohuzel bez vysledku.

- tohle jsem nepochopil?? Vždyť o to se snažím, dat tady dopředu celou ideu abych se pak nemusel opakovat..

Toto jsou dotazy az po rozhodnuti o strukture databaze, tim zacni.
Budes-li stavet dum, tak nebudes resit nejdriv tapety v pokoji.

Co je ještě třeba dopřesnit? myslel jsem, že je to z přiloženého souboru v prvním příspěvku jasné

[navstevnik]

Tak nevahej a pust se do toho.
PS.: Volba jazyka: na uvodim formulari vybrat jazyk (do globalni promenne) a u dalsich formularu pri inicializaci vlozit do popisku, tlacitek a pripadne napovedy texty z "knihovny" podle vyberu jazyka.

[George.K]

Myslel jsem si, že když to předem sepíšu ulehčím si pak práci...

PS.: Volba jazyka: na uvodim formulari vybrat jazyk (do globalni promenne) a u dalsich formularu pri inicializaci vlozit do popisku, tlacitek a pripadne napovedy texty z "knihovny" podle vyberu jazyka.

Jak jsi, navstevniku, prisel na to, že chci přepínat jazyk? Jde o ČESKOU knihovnu a vše bude česky. Jedině, kde se vyskytne angličtina bude v dvojjazyčné příhlášce/odhlášce.

Co bude (následně) jednodušší - použit přepínač (čtenář CZ/EN) (přihlášení/odhlášení) a podle toho vybrat vstupní pole (ostatní zašedlé) nebo využít MultiPage se dvěmi kartami…

Touto otázkou - použit přepínač (čtenář CZ/EN) - jsem myslel Použít přepínač OptionButton k volbě mezi přihlášení českého čtenáře a přihlášením "EN" čtenáře nebo raději použít pro tuto volbu MultiPage? Předpokládal jsem, že to jasně vyplunulo z přílohy, listu Projekt.

Samozřejmě, neváhám, pouštím se do toho, ale...
rád bych znal názor na volbu OptionButon nebo MultiPage
Dík.

--- Doplnění předchozího příspěvku (15 Led 2011 17:33) ---

Praktické otázky:
1. Jak upravit fci SEZNAM, abych nemusel předávat parametry v uvozovkách
2. Jak dostat seznamy do ComboBoxů
viz přiložený soubor

[George.K]

Praktické otázky:
1. Jak upravit fci SEZNAM, abych nemusel předávat parametry v uvozovkách
2. Jak dostat seznamy do ComboBoxů
viz přiložený soubor u předchozího příspěvku (v 1.3)
Díky

[navstevnik]

ad 1.: Globalni promenne.
ad 2.: V drivejsi odpovedi, ze ktere jsi cerpal proceduru Seznam (aspon uprav odpovidajicim zpusobem poznamky) je i ukazano, jak vlozit do vlastnosti ComboBox.RowSource odkaz, opet pouzij globalni promennou.

[George.K]

pravděpodobně ty globální proměnné špatně chápu, viz obrázek

[navstevnik]

Trochu jsem zkultivoval procedury v modulu 1, najdes i vytvoreni odkazu pro ComboBox.RowSource.
Predavani parametru funkci nijak neobejdes, nekam je musis zadat, leda napsat samostatne funkce jiz obsahujici prislusne parametry, coz ovsem popira smysl funkce.

Kód: Vybrat vše

Option Explicit

Private Function RowSourceBlk(Sesit_vstup As String, Sloupec_od As String, Sloupec_kam As String) As String
  Dim Razeni_odkud As Range, Razeni_kam As Range
  Dim Bunka_kam As Range, List_kam As String

  List_kam = "pomocne"
  With ActiveWorkbook.Worksheets(Sesit_vstup)
    ' definovat zdrojovy blok ...
    Set Razeni_odkud = .Range(Sloupec_od & "1" & ":" & Sloupec_od & .Cells(.Rows.Count, Sloupec_od).End(xlUp).Row)
    With ActiveWorkbook.Worksheets(List_kam)
      Set Bunka_kam = .Range(Sloupec_kam & "1")
      ' do oblasti extrakce vlozit nazev pole
      Bunka_kam.Value = Razeni_odkud(1).Value
      ' vytvorit unikatni seznam
      ' rozsireny filtr, kopirovat jinam, bez duplicit
      Razeni_odkud.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Bunka_kam, Unique:=True
      ' list musi byt aktivni pro setrideni
      .Activate
      ' definovat blok seznamu
      Set Razeni_kam = .Range(Sloupec_kam & "2" & ":" & Sloupec_kam & .Cells(.Rows.Count, Sloupec_kam).End(xlUp).Row)
      ' setridit unikatni seznam - vzestupne, bez hlavicky
      Razeni_kam.Sort Key1:=Razeni_kam(1), Order1:=xlAscending, Header:=xlNo, _
          OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
      ' upravit sirku sloupcu unikatnich seznamu
      Bunka_kam.EntireColumn.AutoFit
      ' pokud jsou ve zdroji prazdne bunky, je nutno znovu definovat blok Razeni_kam
      Set Razeni_kam = .Range(Sloupec_kam & "2" & ":" & Sloupec_kam & .Cells(.Rows.Count, Sloupec_kam).End(xlUp).Row)
    End With
  End With
  ' funkce vraci retezec pro RowSource
  RowSourceBlk = Razeni_kam.Parent.Name & "!" & Razeni_kam.Address
  Set Razeni_odkud = Nothing
  Set Razeni_kam = Nothing
  Set Bunka_kam = Nothing
End Function

Sub Zobrazeni()
 
  UserForm1.ComboBox1.RowSource = RowSourceBlk("ctenar_cz", "A", "O")
  UserForm1.ComboBox2.RowSource = RowSourceBlk("ctenar_cz", "B", "P")
  UserForm1.ComboBox3.RowSource = RowSourceBlk("ctenar_cz", "C", "Q")

  UserForm1.Show vbModeless
End Sub


[George.K]

Paráda :-)
(jeden z několika) Dík!

Můžeš poradit nějakou literaturu (nebo internet), kde se dovím všechny (nebo aspoň některé) tyto vlastnosti?
Razeni_kam.Parent.Name apod.
Spíše něco s praktickými příklady...

MultiPage nebo Přepínače? Toť otázka :-)

----Další otázka - viz poznámky v kódu ---

Kód: Vybrat vše

  ' do oblasti extrakce vlozit nazev pole.. Razeni_odkud(1).Value <- obsah první buňky výběru
          ' Razeni_odkud(1).Value == .Range(Sloupec_od & "1").Value
          Bunka_kam.Value = Razeni_odkud(1).Value    ' <--- proč je nutný tento krok, když dále se
Rem          kopiruje (Z -> DO) CELÝ rozsah, včetně 1. buňky /nadpisu/
         
          ' vytvorit unikatni seznam
          ' rozsireny filtr, kopirovat jinam, bez duplicit
          Razeni_odkud.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Bunka_kam, Unique:=True
         
          ' list musi byt aktivni pro setrideni
          .Activate
         
          ' definovat blok seznamu
          Set Razeni_kam = .Range(Sloupec_kam & "2" & ":" & Sloupec_kam & .Cells(.Rows.Count, Sloupec_kam).End(xlUp).Row)