Высота строк по условию.

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Высота строк по условию. (Макросы/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)

Ответить

_Boroda_

Дата: Четверг, 26.11.2015, 20:38 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

Репутация: 6667 ±

Замечаний: ±

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

Ответить

bumnik

Дата: Четверг, 26.11.2015, 20:45 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 185

Репутация: 0 ±

Замечаний: 40% ±

Excel 2007,2010

_Boroda_, Спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! :)))))))))))))))))))

Ответить

bumnik

Дата: Пятница, 27.11.2015, 00:26 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 185

Репутация: 0 ±

Замечаний: 40% ±

Excel 2007,2010

_Boroda_, как указать, чтобы строки скрывались по 87 строку?

Ответить

_Boroda_

Дата: Пятница, 27.11.2015, 02:13 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

Репутация: 6667 ±

Замечаний: ±

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)

Ответить

bumnik

Дата: Пятница, 27.11.2015, 02:18 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 185

Репутация: 0 ±

Замечаний: 40% ±

Excel 2007,2010

_Boroda_, Спасибо!!!!!!!!!

Ответить

Высота строк по условию. (Макросы/Sub)

Страница 1 из 1
1