Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Скрыть/показать строки по клику на checkbox
 
#1
12.02.2021 17:19:05
Здравствуйте, а можно как то доработать макрос, что б можно было поставить галочку, строки скрылись, снять галочку, что б отобразились, сейчас это кнопкой делается, нужно две кнопки, а тут одной маленькой галочкой, если конечно это реально
Код
Sub t()
    For Each s In ThisWorkbook.Sheets
        s.Rows("25:25").Hidden = True
    Next s
End Sub
Sub hhh()
    For Each s In ThisWorkbook.Sheets
        s.Rows("25:25").Hidden = False
    Next s
End Sub
 
 
 
#2
12.02.2021 17:25:40
достаточно одной кнопки:
Код
Sub t()
    For Each s In ThisWorkbook.Sheets
        s.Rows("25:25").Hidden =  Not s.Rows("25:25").Hidden
    Next s
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#3
12.02.2021 17:34:31
все гениальное просто, но вот все же идея с галочкой, что б было видно что скрыто, что открыто, а так работает, просто несколько строк нужно скрывать, несколько отображать, например стоит галочка, значит строка скрыта, нет значит ее видно, и рядом будет описание что за строка, а так в целом работает, если конечно это возможно так сделать я имею в виду галочкой, но и на этом спасибо
Изменено: denka1982 - 12.02.2021 17:35:35
 
 
 
#4
12.02.2021 18:07:17
denka1982, название для темы не очень
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#5
12.02.2021 18:20:06
Цитата
Jack Famous написал:
название для темы не очень
Просто отвратительное.
denka1982,  предложите название, из которого будет понятна ЗАДАЧА - модераторы поменяют.
 
 
 
#6
12.02.2021 22:58:47
Здравствуйте.
Код
Private Sub CheckBox1_Click()
    Dim s
    '--1 вариант
    For Each s In ThisWorkbook.Sheets
        s.Rows("25:25").Hidden = CheckBox1.Value
    Next s
    
    
    '--2 вариант
'    For Each s In ThisWorkbook.Sheets
'        s.Rows("25:25").Hidden = Not s.Rows("25:25").Hidden
'    Next s
    'Смена надписи
    If CheckBox1.Value Then
        CheckBox1.Caption = "Показать"
    Else
        CheckBox1.Caption = "Скрыть"
    End If
End Sub
Код в модуле листа.
Изменено: DANIKOLA - 13.02.2021 13:32:35
 
 
 
Страницы: 1
Наверх