Моля за малко помощ
Правя CheckBox, който като е избран ми скрива определени редове. Как да направя да ми ги показва като не е избран?

Sub CheckBox()
'
Rows("9:10").Select
Selection.EntireRow.Hidden = True
End Sub

Sub CheckBox()
Rows("9:10").Select
If Selection.EntireRow.Hidden = True Then
Selection.EntireRow.Hidden = False
Else
Selection.EntireRow.Hidden = True
End If

End Sub

Редактирано от TRN на 15.11.11 18:07.

По-лесно е:
Rows("9:10").Select
Selection.EntireRow.Hidden = Not Selection.EntireRow.Hidden

Благодаря, става и по двата начина. Разликата е, че при TRN когато CheckBox-а е избран, редовете са скрити и обратно, а при Naki е обратното положение.

Още едно решение
Private Sub CheckBox1_Click()
Rows("9:10").Select
Selection.EntireRow.Hidden = CheckBox1.Value
End Sub

Това не работи, с коя версия на Excel си? Excel 2007 ми казва, че не знае кой обект е това CheckBox1. Excel 2003 също не ебава.

Редактирано от Naki на 18.11.11 23:17.

Хах, как точно се аксесва контрол от Excel VBA е май неква силно пазена тайна, висш пилотаж... Дано некой знае, в Гугъл само мисове.

И защо да не работи.
CheckBox1 е името на CheckBox-а, който се използва (при мен е CheckBox1, а при теб може да е друго).
Изпробвано е и на 2003 и на 2010.

Може с този Screen Recording да е по-ясно:
XLS_CheckBox.zip(1.5МВ) -> _http://tranzit.dir.bg/load.php?id=gMc70YqZI497kPGE1035256
*Линковете ще бъдат активни 120 часа.

Оправих се, работи!
Оказа се, че във 2007/2010 има ДВА вида контроли (Controls) - ActiveX и Form, с едните става, с другите не.