Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Высота строк по условию. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Высота строк по условию. (Макросы/Sub)
Высота строк по условию.
bumnik Дата: Четверг, 26.11.2015, 20:19 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 185
Репутация: 0 ±
Замечаний: 40% ±

Excel 2007,2010
Здравствуйте! Подскажите как исправить код макроса чтобы высота строк менялась на листе "Сдельная" в диапазоне C5:F70, C78:F86, C91:F106 и по значению в ячейке с другого листа.
К сообщению приложен файл: 0985277.xlsm (83.3 Kb)
 
Ответить
СообщениеЗдравствуйте! Подскажите как исправить код макроса чтобы высота строк менялась на листе "Сдельная" в диапазоне C5:F70, C78:F86, C91:F106 и по значению в ячейке с другого листа.
Автор - bumnik
Дата добавления - 26.11.2015 в 20:19
_Boroda_ Дата: Четверг, 26.11.2015, 20:38 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Если я правильно понял, то в модуль листа 1
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    r_ = Лист2.Range("G4:G" & Rows.Count).End(xlUp).Row
    Лист2.Range("G4:G" & r_).AutoFilter Field:=1, Criteria1:="<>0", VisibleDropDown:=False
End Sub
[/vba]
К сообщению приложен файл: 0985277_1.xlsm (85.6 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЕсли я правильно понял, то в модуль листа 1
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    r_ = Лист2.Range("G4:G" & Rows.Count).End(xlUp).Row
    Лист2.Range("G4:G" & r_).AutoFilter Field:=1, Criteria1:="<>0", VisibleDropDown:=False
End Sub
[/vba]
Автор - _Boroda_
Дата добавления - 26.11.2015 в 20:38
bumnik Дата: Четверг, 26.11.2015, 20:45 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 185
Репутация: 0 ±
Замечаний: 40% ±

Excel 2007,2010
_Boroda_, Спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! :)))))))))))))))))))
 
Ответить
Сообщение_Boroda_, Спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! :)))))))))))))))))))
Автор - bumnik
Дата добавления - 26.11.2015 в 20:45
bumnik Дата: Пятница, 27.11.2015, 00:26 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 185
Репутация: 0 ±
Замечаний: 40% ±

Excel 2007,2010
_Boroda_, как указать, чтобы строки скрывались по 87 строку?
 
Ответить
Сообщение_Boroda_, как указать, чтобы строки скрывались по 87 строку?
Автор - bumnik
Дата добавления - 27.11.2015 в 00:26
_Boroda_ Дата: Пятница, 27.11.2015, 02:13 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Вставьте 88-ю пустую строку (автофильтр в Excel чересчур умный иногда бывает) и
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    r_ = 87
    If Лист2.Range("G4:G" & r_).AutoFilter Then'сделано только на тот случай, если уже стоит автофильтр
        Лист2.Range("G4:G" & r_).AutoFilter
    End If'после первого запуска If - End If не обязательно
    Лист2.Range("G4:G" & r_).AutoFilter Field:=1, Criteria1:="<>0", VisibleDropDown:=False
End Sub
[/vba]
Или можно просто пробегаться по столбцу G и скрывать нулевые ячейки. Но это дольше. Хотя, на таком объеме незаметно будет.
К сообщению приложен файл: 0985277_2.xlsm (85.7 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВставьте 88-ю пустую строку (автофильтр в Excel чересчур умный иногда бывает) и
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    r_ = 87
    If Лист2.Range("G4:G" & r_).AutoFilter Then'сделано только на тот случай, если уже стоит автофильтр
        Лист2.Range("G4:G" & r_).AutoFilter
    End If'после первого запуска If - End If не обязательно
    Лист2.Range("G4:G" & r_).AutoFilter Field:=1, Criteria1:="<>0", VisibleDropDown:=False
End Sub
[/vba]
Или можно просто пробегаться по столбцу G и скрывать нулевые ячейки. Но это дольше. Хотя, на таком объеме незаметно будет.
Автор - _Boroda_
Дата добавления - 27.11.2015 в 02:13
bumnik Дата: Пятница, 27.11.2015, 02:18 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 185
Репутация: 0 ±
Замечаний: 40% ±

Excel 2007,2010
_Boroda_, Спасибо!!!!!!!!!
 
Ответить
Сообщение_Boroda_, Спасибо!!!!!!!!!
Автор - bumnik
Дата добавления - 27.11.2015 в 02:18
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Высота строк по условию. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!