< návrat zpět

MS Excel

Téma: Stránkování Userform rss

Zaslal/a marficek119 6.8.2010 20:38

Ahoj, potřebuji konzultaci problému.
Mám sešit(spíše se chystám jej vytvořit) na skladové karty potravin. Na prvním listu je jakoby rozcestník kategorií potravin, chtěl bych jej vytvořit pomocí Userform, představuji si to tak, že po kliku na tlačítko se zobrazí zmiňovaný Userform kde budou kategorie potravin, chci aby po kliku na kategorii dané potraviny se zobrazil opět Userform s podkategorií té potraviny atd. až bych v seznamu našel danou potravinu a po kliku na jméno potraviny se otevřel list skladová karta (té potraviny). Lze to takto nějak udělat pomocí jednoho Userform, nebo budu muset mít další Userform na podkategorie?
Nebo je nějaká jiná možnost jak to řešit, případně rolovacím menu v Userform?

Díky za každou radu.
Martin

Zaslat odpověď >
Strana:  « předchozí  1 2 3 4   další »
Začátečník(10.8.2010 21:59)#002146
Začátečník
Na konec makra UserForm pro zobrazení listu přidat:

Sheets(Potr_list).Visible = True ' zviditelnění listu

před

Sheets(Potr_list).Select ' výběr listu s danou potravinou
Cells(1, 1).Select ' přesun na buňku A1


Pokud by měl být zobrazen vždy pouze daný list (listy), pak by stačilo do hlavního listu vložit při jeho aktivaci kód pro skyrytí všech listů v sešitě a obnovu pouze vybraných.
Tedy:
do prvního listu ("Menu") vložit kód:

Private Sub Worksheet_Activate()

For pom = 2 To Sheets.Count
Sheets(pom).Visible = False
Next
' sem přidat případné další listy pro zobrazení, nutné je aby alespoň jeden list byl zobrazen.
' Sheets("Název_listu").Visible = True
End Sub


Loncitovat
marficek119(11.8.2010 9:08)#002147
avatar
Tak jsem zkoušel uvedené kódy, ale bez úspěchu. Mě to prostě nefunguje. Zadal jsem listy které chci aby byly skryté a zobrazené, jen když mají být aktivní, ale mě to prostě nejde. Všechny listy se po prvním otevření sešitu skryjí a zůstane jen menu. Když překliknu na jiný list, který je stále zobrazen, tak se list menu skryje a už se do něj nedostanu. Další problém - Mám v hlavním menu tlačítko a odkazem vstupuji do listu ceník. Pokud je list skrytý, tak je odkaz nefunkční. Asi někde dělám chybu.
Potřeboval bych, aby ze všech listů byl stále zobrazený list menu, ostatní skryté. Do ostatních litů by se vstupovalo přes odkazy z menu.citovat
Začátečník(11.8.2010 15:04)#002151
Začátečník
Tak mi pošli soubor na mejl, pokud není vhodné jej zde uveřejňovat.

Celou situaci jsem popisoval. Problém může být v tom, že list Menu není listem 1.

Loncitovat
marficek119(11.8.2010 15:16)#002152
avatar
Aha tak to je ono. List menu je list s číslem 3. Takže když udělám menu z listu 1, tak by to mělo fungovat?citovat
Začátečník(11.8.2010 15:24)#002153
Začátečník
Ano, nebo stačí upravit makro. Vyhodnotit list s názvem Menu a ten pak neskrývat.

Private Sub Worksheet_Activate()

Dim List_visit As String

List_visit = "Menu"

For pom = 1 To Sheets.Count
If Sheets(pom).Name = List_visit Then
Sheets(pom).Visible = True
Else
Sheets(pom).Visible = False
End If
Next
' sem přidat případné další listy pro zobrazení, nutné je aby alespoň jeden list byl zobrazen.
' Sheets("Název_listu").Visible = True
End Sub
citovat
marficek119(11.8.2010 19:54)#002156
avatar
Ahoj, mrkni se ,prosím, na to. Buď to dělám někde špatně nebo nevím. Po nahrání kódu se všechny listy kromě menu skryjí a pokud chci zkrytý list otevřít z menu, tak to nejde...
M.
Příloha: rar2156_skladova-karta-potravin.rar (45kB, staženo 23x)
citovat
Začátečník(11.8.2010 20:20)#002157
Začátečník
Chyba při čtení příspěvků.
Dne 10.8.2010 v 21:59 jsem mimojiné napsal:
Na konec makra UserForm pro zobrazení listu přidat:

Sheets(Potr_list).Visible = True ' zviditelnění listu
před

Sheets(Potr_list).Select ' výběr listu s danou potravinou
Cells(1, 1).Select ' přesun na buňku A1

a to jsi neudělal
Lon
Příloha: rar2157_skladova-karta-potravin.rar (45kB, staženo 27x)
citovat
marficek119(11.8.2010 22:05)#002158
avatar
Aha, tak to jsem neudělal. Pač jsem se chytil té druhé možnosti.....citovat
marficek119(12.8.2010 18:29)#002171
avatar
Tak vyzkoušeno a pochopeno. Funguje skvěle.
Další přidružený problémek. Jde nějak udělat to, aby mě fungoval i hypertextový odkaz na skryté listy? Veškeré odkazy by šli z jednoho jediného listu (menu) do jiných skrytých listů. Prosím o radu....
Díky M.citovat
Začátečník(12.8.2010 19:31)#002172
Začátečník
Hypertextový odkaz do skrytých listů nebude fungovat.citovat

Strana:  « předchozí  1 2 3 4   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje