MS Excel

Téma: Podmínka

Zaslal/a marficek119 2.3.2011 17:31

Ahoj, potřebuji pomoci.
Níže uvedený kód slouží pro skrytí řádků ve formuláři a následnému zobrazení. Kód je aktivován zaškrtávacím tlačítkem CheckBox8. Kód funguje, ale potřebuji do kódu přidat podmínku.
Jde o to že mám ještě ve formuláři dalších 6 CheckBoxů, CheckBox1 až CheckBox6. Od kódu potřebuji aby po odškrtnutí CheckBox8 zobrazil jen některé řádky, které se budou řídit podmínkou, uvedu příklad - CheckBox1 a CheckBox2 je aktivován, řádky 22,23 a 61 zůstanou skryté, ostatní skryté řádky se zobrazí.
Pokud nebude aktivován CheckBox1 až CheckBox6, zobrazí se všechny skryté řádky.
V kódu jsou řádky nadepsané k jakému CheckBoxu patří.
Snad jsem to napsal srozumitelně, špatně se to popisuje. Dal bych sem příklad, ale sešit je celkem rozsáhlý s firemními daty. Snad to nebude komplikované, já z toho nejsem a po dvou hodinách už bezmocný...

'Skrytí řádků práce
Private Sub CheckBox8_Click()

If CheckBox8.Value = False Then

Range("C22:C23,C61,C106,C151,C196,C241").Activate
Selection.EntireRow.Hidden = False
Range("A1").Select
End If

'CheckBox1
If CheckBox8.Value = True Then
Rows("22:23").Select
Range("C22").Activate
Selection.EntireRow.Hidden = True
End If
'CheckBox2
If CheckBox8.Value = True Then
Rows("61").Select
Range("C61").Activate
Selection.EntireRow.Hidden = True
End If
'CheckBox3
If CheckBox8.Value = True Then
Rows("106").Select
Range("C106").Activate
Selection.EntireRow.Hidden = True
End If
'CheckBox4
If CheckBox8.Value = True Then
Rows("151").Select
Range("C151").Activate
Selection.EntireRow.Hidden = True
End If
'CheckBox5
If CheckBox8.Value = True Then
Rows("196").Select
Range("C196").Activate
Selection.EntireRow.Hidden = True
End If
'CheckBox6
If CheckBox8.Value = True Then
Rows("241").Select
Range("C241").Activate
Selection.EntireRow.Hidden = True
End If
Range("A1").Select
End Sub

Zaslat odpověď >

Jeza.m(2.3.2011 19:39)#004251

Mě nějak nejde do hlavy, proč všechny podmínky v jedný procedůře jsou s checkboxem číslo 8 a ne těma konkrétníma?
If CheckBox8.Value = True Then...citovat

marficek119(2.3.2011 20:23)#004252

Ty ostatní plní zase jiné funkce, mimo jiné také skrývají část formuláře. Jde oto, že pokud budu mít př. CheckBoxem 1 skrytou nějakou část formuláře, tak aby CheckBox8 neodkryl řádky, které mají zůstat skryté. Jak to nejlépe vysvětlit, CheckBox 1 až CheckBox6 jsou jakoby nadřazené CheckBoxu8.
Pokusím se popsat formulář:
Formulář je rozdělen do 6 částí (kategorií). Ve formuláři jsou naschromážděna data z celého sešitu(cca 50 listů). Pokud chci tisknout report, CheckBox 1-CheckBox6 si vyberu kategorie pro tisk.CheckBox8 je pro fukci s DPH a Bez DPH. Ten skrývá řádky, kde je obsaženo DPH. Pokud tedy mám zvoleno že budu tisknout bez dph zaškrtnu CheckBox8, po té vyberu kategorie, ostatní se skryjí tak jako řádky DPH. Pokud ale z nějkého důvodu zvolím tisk s DPH, tak se odkryjí řádky s DPH mimo jiné i v kategoriích, které mají být skryté.
Je to těžké vysvětlovat, rád bych to vyřešil příkladem, ale bohužel to nejde.citovat

Téma: Podmínka

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje