Страницы: 1
RSS
Скрыть\показать столбцы элементом выключатель ActiveX, с условием
 
Всем привет!
Данная тема, обсуждалась: https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=132770&a...Спасибо Mershik!
Нужно допилить вот этот код или дать своё решение:
Код
Private Sub ToggleButton2_Click()If Me.ToggleButton1.Value = True Then
For Each cell In ActiveSheet.UsedRange.Rows(1).Cells                            
        If cell.Value Like "*x*" Then cell.EntireColumn.Hidden = True      
  
Else
For Each cell In ActiveSheet.UsedRange.Rows(1).Cells                            
        If cell.Value Like "*x*" Then cell.EntireColumn.Hidden = False    
    Next
     
End Sub
когда применял if руководствовался: https://forumvba.ru/index.php?topic=176.0
Что бы при нажатии выключателя столбцы раскрывались и скрывались, но при условии, что ячейки содержат текст, к примеру "х" в 1 строке, хотя строка может быть и 6
То есть мне нужен ответ на мой 14 пост, в моей же теме
цена вопроса 200 рублей
Изменено: adamm - 17.09.2020 12:34:42
 
Добрый день.
Пишу в личку...
Получил письмо с файлом на почту, отправил рабочий макрос.
...
Данную задачу заказчик параллельно решал в бесплатной ветке, где и получил удовлетворительный ответ.
Тема в разделе "Работа" стала не актуальна.
Тем не менее заказчик оплатил сделанный макрос.
Изменено: Михаил Лебедев - 18.09.2020 08:22:22
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Страницы: 1
Наверх