• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Stránkování Userform

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

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

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

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

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

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

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: 2156_skladova-karta-potravin.rar (45kB, staženo 23x)

citovat

Začátečník(11.8.2010 20:20)#002157

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: 2157_skladova-karta-potravin.rar (45kB, staženo 27x)

citovat

marficek119(11.8.2010 22:05)#002158

Aha, tak to jsem neudělal. Pač jsem se chytil té druhé možnosti.....citovat

marficek119(12.8.2010 18:29)#002171

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

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse