Dobrý den, potřebuji poradit s úpravou formuláře v excelu 2003. V jedné jeho části chci mít dva přepínače (ANO/NE). V případě, že bude platit podmínka ANO, bude uživatel formulář vyplňovat dál v nezměněné podobě. V případě, že zvolí NE, chci, aby se některé řádky nebo určitá část formuláře skryly. A dále, v případě, že uživatel zvolí NE a následně se rozmyslí a zvolí ANO, aby se formulář vrátil do původní nezkrácené podoby.
Poradíte mi jak na to? Předem díky.
// Změna názvu tématu. Původní název "formulář - excel 2003" svou nulovou informační hodnotou porušoval pravidla fóra.
// mike007
Excel 2003: Tvorba dynamického formuláře
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Excel 2003: Tvorba dynamického formuláře
Doplneno: Asi nocni doba zpusobila, ze jsem zamenil Excel s Wordem, nasledujici je tedy zcela mimo.
Rucni skryti casti formulare (text a formularova pole) - postup viz http://office.microsoft.com/cs-cz/word- ... yti-textu-
HP005189458.aspx
Vyber casti textu a operace s touto casti viz http://www.tek-tips.com/viewthread.cfm? ... 386&page=1
Takze skryti procedurou - nutno vlozit do textu vhodna jedinecna klicova slova (napr.: Startword a Endword), mezi nimiz bude text skryt, proceduru volej zmenou stavu prepinacu:
obdobne pro zobrazeni nutno pouzit:
Protoze formular byva uzamknut, je zapotrebi dokument odemknou/uzamknout pred volanim uvedenych procedur:
Rucni skryti casti formulare (text a formularova pole) - postup viz http://office.microsoft.com/cs-cz/word- ... yti-textu-
HP005189458.aspx
Vyber casti textu a operace s touto casti viz http://www.tek-tips.com/viewthread.cfm? ... 386&page=1
Takze skryti procedurou - nutno vlozit do textu vhodna jedinecna klicova slova (napr.: Startword a Endword), mezi nimiz bude text skryt, proceduru volej zmenou stavu prepinacu:
Kód: Vybrat vše
Sub HiddenText()
Dim StartWord As String, EndWord As String
StartWord = "Startword"
EndWord = "Endword"
With ActiveDocument.Content.Duplicate
.Find.Execute Findtext:=StartWord & "*" & EndWord, MatchWildcards:=True
.MoveStart wdCharacter, Len(StartWord)
.MoveEnd wdCharacter, -Len(EndWord)
.Font.Hidden = True
End With
End Sub
obdobne pro zobrazeni nutno pouzit:
Kód: Vybrat vše
Sub ShowText()
Dim StartWord As String, EndWord As String
StartWord = "Startword"
EndWord = "Endword"
ActiveWindow.ActivePane.View.ShowAll = Not ActiveWindow.ActivePane.View.ShowAll
With ActiveDocument.Content.Duplicate
.Find.Execute Findtext:=StartWord & "*" & EndWord, MatchWildcards:=True
.MoveStart wdCharacter, Len(StartWord)
.MoveEnd wdCharacter, -Len(EndWord)
.Font.Hidden = False
End With
ActiveWindow.ActivePane.View.ShowAll = Not ActiveWindow.ActivePane.View.ShowAll
End Sub
Protoze formular byva uzamknut, je zapotrebi dokument odemknou/uzamknout pred volanim uvedenych procedur:
Kód: Vybrat vše
Sub HidenTextProtectDoc()
With ActiveDocument
If .ProtectionType <> wdNoProtection Then
.Unprotect
HiddenText
.Protect Type:=wdAllowOnlyFormFields
Else
HiddenText
End If
End With
End Sub
Sub ShowTextProtectDoc()
With ActiveDocument
If .ProtectionType <> wdNoProtection Then
.Unprotect
ShowText
.Protect Type:=wdAllowOnlyFormFields
Else
ShowText
End If
End With
End Sub
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Excel 2003: Tvorba dynamického formuláře
V priloze je demo na skryti/zobrazeni casti uzivatelskeho formulare.
- Přílohy
-
- UseRFormHiddenShow.xls
- (29 KiB) Staženo 203 x
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 7
- 991
-
od šulda
Zobrazit poslední příspěvek
13 led 2024 20:00
-
- 16
- 6939
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
-
Excel komparacedvou soborů Příloha(y)
od teichmann.ondrej » 15 dub 2024 17:26 » v Kancelářské balíky - 11
- 3700
-
od teichmann.ondrej
Zobrazit poslední příspěvek
22 dub 2024 15:45
-
-
- 1
- 746
-
od Grimm
Zobrazit poslední příspěvek
12 bře 2024 21:43
-
- 3
- 2337
-
od Story-Long
Zobrazit poslední příspěvek
14 srp 2023 10:11
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 4 hosti