Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Кнопка на два действия, Ошибка в скрипте
 
#1
26.08.2016 14:45:54
Хочу прописать кнопку на два действия, к-я будет скрывать и показывать столбцы.
Подскажите пожалуйста, в чем проблема в этом скрипте. Пишет, что Else without If.
Код
Sub CommandButton1_Click()
    If CommandButton1.Caption = "Скрыть" Then
        
        Application.ScreenUpdating = False                              'отключаем обновление экрана для ускорения
        For Each cell In ActiveSheet.UsedRange.Rows(1).Cells            'проходим по всем ячейки первой строки
        If cell.Value = "z" Then cell.EntireColumn.Hidden = True        'если  ячейке z - скрываем столбцы
        Application.ScreenUpdating = True
        
        CommandButton1.Caption = "Показать"
    Else
        Application.ScreenUpdating = False
        For Each cell In ActiveSheet.UsedRange.Rows(1).Cells            
        If cell.Value = "z" Then cell.EntireColumn.Hidden = False       'если  ячейке z - показываем столбцы

        Application.ScreenUpdating = True
    Next
   
        CommandButton1.Caption = "Скрыть"
    End If
End Sub
    Заранее благодарю.
 
 
 
#2
26.08.2016 14:55:16
?
Код
Sub CommandButton1_Click()
    If CommandButton1.Caption = "Скрыть" Then
        Application.ScreenUpdating = False                              'отключаем обновление экрана для ускорения
        For Each cell In ActiveSheet.UsedRange.Rows(1).Cells            'проходим по всем ячейки первой строки
            If cell.Value = "z" Then cell.EntireColumn.Hidden = True                        'если  ячейке z - скрываем столбцы
        Next
         Application.ScreenUpdating = True
        CommandButton1.Caption = "Показать"
    Else
        Application.ScreenUpdating = False
        For Each cell In ActiveSheet.UsedRange.Rows(1).Cells
            If cell.Value = "z" Then cell.EntireColumn.Hidden = False                      'если  ячейке z - показываем столбцы
        Next
        Application.ScreenUpdating = True
        CommandButton1.Caption = "Скрыть"
    End If
End Sub
Изменено: kuklp - 26.08.2016 15:20:17
Я сам - дурнее всякого примера! ...
 
 
 
#3
26.08.2016 15:02:15
Я что-то непонятно написал или ошибся в чем-то ?
 
 
 
#4
26.08.2016 15:09:47
Попробуйте мой код.
Я сам - дурнее всякого примера! ...
 
 
 
#5
26.08.2016 15:15:41
[img]file:///D:/Users/i.plisa/Desktop/26.08.jpg[/img]
Изменено: pliskin - 26.08.2016 15:17:35
 
 
 
#6
26.08.2016 15:15:44
Отсутствует NEXT в первой части
Код
If CommandButton1.Caption = "Скрыть" Then
        Application.ScreenUpdating = False                              'отключаем обновление экрана для ускорения
    For Each cell In ActiveSheet.UsedRange.Rows(1).Cells            'проходим по всем ячейки первой строки
        If cell.Value = "z" Then cell.EntireColumn.Hidden = True        'если  ячейке z - скрываем столбцы
        Application.ScreenUpdating = True
    NEXT     
        CommandButton1.Caption = "Показать"
 
 
 
 
#7
26.08.2016 15:19:43
Не помогло :(
 
 
 
#8
26.08.2016 15:21:39
Давайте файл, чего гадать. и обновление экрана лучше за цикл вынести, я в своем коде исправил.
Я сам - дурнее всякого примера! ...
 
 
 
#9
26.08.2016 15:29:04
Та пример того, что я хочу
 
 
 
#10
26.08.2016 16:01:19
И где там у Вас CommandButton1? Хреново ехать на такси, если это не такси а стиральная машина.
Изменено: kuklp - 26.08.2016 16:04:06
Я сам - дурнее всякого примера! ...
 
 
 
#11
26.08.2016 16:33:16
Во я валенок..........спасибо большое за помощь :)
Тема закрыта
 
 
 
Страницы: 1
Наверх