Перейти к содержимому

Фотография
- - - - -

Автоматически сворачивающийся список


  • Авторизуйтесь для ответа в теме
Сообщений в теме: 12

#1
Иван

Иван

    Проходимец

  • 9 сообщений
  • 0 благодарностей
0
  • Office:2010, 2013
Добрый день. Подскажите как можно свернуть или скрыть строку при окрашивании ее в определенный цвет. Есть документ где ячейки при определенной дате окрашиваются в серый цвет и чтоб документ не растягивать, сворачивать или скрывать эти строки в один список.

Прикрепленные файлы



#2
Alex87

Alex87

    Главарь

  • 172 сообщений
  • 20 благодарностей
37
  • Город:Москва
  • Office:2010, 2013, 2016, для Mac

Иван, а ячейки будут окрашиваться вручную или через условное форматирование?


6cldfZs.jpg


#3
Иван

Иван

    Проходимец

    Автор темы
  • 9 сообщений
  • 0 благодарностей
0
  • Office:2010, 2013

Через условное форматирование. Меня интересует столбец (Срок окончания договора), когда срок прошел и ячейка перекрасилась в цвет. Тут наверно нужен скрипт я в этом не силен. Как вариант, можно договора с истекшим сроком перемещать на другой лист для более наглядного просмотра если это возможно. Это уже наверно будет другая тема?



#4
Alex87

Alex87

    Главарь

  • 172 сообщений
  • 20 благодарностей
37
  • Город:Москва
  • Office:2010, 2013, 2016, для Mac

Иван, во-первых, можно было бы сделать скрытие, если только цвет проставляется вручную. С условным форматированием это будет сложно и не бесплатно :)

Во-вторых, да, перемещение на другой лист это уже другая процедура. В целом, Вам лучше сделать заказ на разработку макроса для всех ваших нужд, ибо очень много у Вас набирается :)


6cldfZs.jpg


#5
китин

китин

    Новичок

  • 18 сообщений
  • 0 благодарностей
1
  • Город:Санкт Петербург
  • Office:2007, 2010

Посмотрите.так надо?


%EA%E8%F2%E8%ED.gif


#6
Alex87

Alex87

    Главарь

  • 172 сообщений
  • 20 благодарностей
37
  • Город:Москва
  • Office:2010, 2013, 2016, для Mac
китин, куда смотреть?)

6cldfZs.jpg


#7
китин

китин

    Новичок

  • 18 сообщений
  • 0 благодарностей
1
  • Город:Санкт Петербург
  • Office:2007, 2010

странно, файл клал. повторю

вот код(прошу не пинать, только учусь) критика приветствуется ;)

Sub Row_skrit()
 Dim ac_
 Application.ScreenUpdating = 0
  ac_ = Application.Calculation
  Application.Calculation = xlCalculationManual
 
  With ThisWorkbook.ActiveSheet
    Dim Z As Long
    For Z = .Cells(Rows.Count, 3).End(xlUp).Row To 5 Step -1
        If .Cells(Z, 12).Value < Cells(1, 13) Then .Cells(Z, 12).RowHeight = 0
    Next Z
   End With
 Application.ScreenUpdating = 1
 Application.Calculation = ac_
 Application.Calculation = xlCalculationAutomatic
End Sub

%EA%E8%F2%E8%ED.gif


#8
Alex87

Alex87

    Главарь

  • 172 сообщений
  • 20 благодарностей
37
  • Город:Москва
  • Office:2010, 2013, 2016, для Mac
китин, сейчас к сожалению с телефона, за границей) как буду дома, проверю;) но на первый взгляд вроде все гуд.
У нас в принципе Thomas профи по Excel, может скажет чего хорошего)))

6cldfZs.jpg


#9
китин

китин

    Новичок

  • 18 сообщений
  • 0 благодарностей
1
  • Город:Санкт Петербург
  • Office:2007, 2010

а почему файл не приложился? я оба раза прикладывал


%EA%E8%F2%E8%ED.gif


#10
Alex87

Alex87

    Главарь

  • 172 сообщений
  • 20 благодарностей
37
  • Город:Москва
  • Office:2010, 2013, 2016, для Mac

а почему файл не приложился? я оба раза приoкладывал


А как прикладывали? Нужно отвечать через расширенную форму и там прикреплять файл

6cldfZs.jpg


#11
китин

китин

    Новичок

  • 18 сообщений
  • 0 благодарностей
1
  • Город:Санкт Петербург
  • Office:2007, 2010

через расширенную форму обзор загрузить, ну как обычно.


%EA%E8%F2%E8%ED.gif


#12
Alex87

Alex87

    Главарь

  • 172 сообщений
  • 20 благодарностей
37
  • Город:Москва
  • Office:2010, 2013, 2016, для Mac
китин, в раздел проблем напишите со скриншотами, разберемся;)

6cldfZs.jpg


#13
китин

китин

    Новичок

  • 18 сообщений
  • 0 благодарностей
1
  • Город:Санкт Петербург
  • Office:2007, 2010

щаз попробую

получилось. вопрос отпал

 

Прикрепленные файлы


Сообщение отредактировал китин: 19 Декабрь 2016

%EA%E8%F2%E8%ED.gif





Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных