Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

[excel] checkbox = false = ukryj kilka komórek/wierszy/kolumn

214 views
Skip to first unread message

OCTOBeer

unread,
Feb 12, 2009, 3:14:16 PM2/12/09
to
Witam,

Przygotowuje formularz w excelu.
Umieściłem tam checkbox i chciałbym aby w momencie kiedy klient
zaznaczy ten checkbox pokazało się kilka wierszy poniżej. Jeżeli nie
zaznaczy chciałbym aby te wiersze pozostały odkryte.

Czy da się coś takiego zrobić?
Nie koniecznie musi to być checkbox, może być to zadana wartość w
jednej kolumnie.

Pozdrawiam
Piotrek

janusz

unread,
Feb 13, 2009, 3:22:54 AM2/13/09
to
Witam

Mozna tak

Private Sub CheckBox1_Change()

'Range("A30:A32").EntireRow.Hidden = Not CheckBox1.Value
'zaznaczony to odkryte wiersze

Range("A30:A32").EntireRow.Hidden = CheckBox1.Value
'zaznaczony to ukryte wiersze

End Sub


Janusz


OCTOBeer

unread,
Feb 13, 2009, 4:09:16 AM2/13/09
to

Wszystko ok, ale niestety na sztywno ustalam, że zakres od A30 do A32
się ukrywa.
Jeżeli powyżej tego zakresu wstawię linię to zakres jaki chcę aby się
ukrywał jest A30+1 do A32+1

Czy nie dałoby się tego zapisać względnie, że ukryć się mają 3 linie
poniżej danego CheckBoxa??

janusz

unread,
Feb 13, 2009, 7:11:37 AM2/13/09
to
Witam
> Użytkownik "OCTOBeer" <octo...@gmail.com> napisał w wiadomości
> news:15fe7ea1-5e02-4258...@d32g2000yqe.googlegroups.com...

Najprosciej zaznaczyc wiersze i nadac im nazwe
np Ukryte

Range("Ukryte").EntireRow.Hidden = Not CheckBox1.Value


Janusz


0 new messages