CheckBox

[ Закрыто ] CheckBox, Галка стоит, галка не стоит

Пользователь

Сообщений: 51 Регистрация: 03.04.2013

31.10.2016 08:39:11

Добрый день!
Помогите, по-та, разобраться
никак не могу разделить события
If CheckBox10.Value = True Then GoTo A: - галка стоит
If CheckBox10.Value = True Then GoTo B: - галка не стоит

Код

Private Sub CheckBox10_Click()
      If CheckBox10.Value = True Then GoTo A:
      If CheckBox10.Value = True Then GoTo B:
A:
    For Each cell In ActiveSheet.UsedRange.Rows(1).Cells
        If cell.Value = "x" Then cell.EntireColumn.Hidden = False
    Next
    For Each cell In ActiveSheet.UsedRange.Columns(1).Cells
        If cell.Value = "x" Then cell.EntireRow.Hidden = False
    Next
    
B:
    For Each cell In ActiveSheet.UsedRange.Rows(1).Cells
        If cell.Value = "x" Then cell.EntireColumn.Hidden = True
    Next
    For Each cell In ActiveSheet.UsedRange.Columns(1).Cells
        If cell.Value = "x" Then cell.EntireRow.Hidden = True
    Next
End Sub

kuklp

Пользователь

Сообщений: 14868 Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

31.10.2016 08:42:17

М-да, не обратил внимания на название. Модеры помогут. А Вам бы Правила пока почитать.
Зачем темам давать осмысленное название?
предложите новое название темы. Модераторы исправят. Иначе закроют тему.
P.S. а ваще-то лучше примеры в файле эксель выкладывать.

Изменено: kuklp - 31.10.2016 08:44:56

Я сам - дурнее всякого примера! ...

Игорь

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

31.10.2016 09:01:48

Так попробуйте

Код

Private Sub CheckBox10_Click()
    Dim cell As Range
    For Each cell In ActiveSheet.UsedRange.Rows(1).Cells
        If cell.Value = "x" Then cell.EntireColumn.Hidden = Not CheckBox10.Value
    Next
    For Each cell In ActiveSheet.UsedRange.Columns(1).Cells
        If cell.Value = "x" Then cell.EntireRow.Hidden = Not CheckBox10.Value
    Next
End Sub

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Vyacheslav Пользователь Сообщений: 51 Регистрация: 03.04.2013	#4 31.10.2016 09:13:54 Игорь, Спасибо ОГРОМНОЕ.

Читают тему