Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как настроить автоматическое появление границ в Excel?, работа с границами excel
 
#1
05.05.2015 21:59:32
Добрый вечер.
Подскажите как справиться с задачей: существует книга Excel с несколькими, связанными между собой листами, на которых есть данные. Необходимо: если ячейки на основном листе пустые, то и ячейки, в которых ссылки на основной лист должны оставаться пустыми, если же в ячейках присутствуют данные, то они должны вставиться в ячейках как например (=ссылка), которые ссылаются на них, а так же эти ячейки должны выделиться обычными черными внешними границами как при нажатии (Ctrl+Shift+&), соответственно при исчезновении данных должно исчезнуть и форматирование, а при появлении соответственно появляться автоматически. Задача с форматированием границ ячеек основная
Изменено: userbasya - 06.05.2015 12:23:06
 
 
 
#2
05.05.2015 22:01:34
Почитайте про Условное форматирование:
Основные понятия условного форматирования и как его создать
Условное форматирование в Excel 2007-2013
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#3
05.05.2015 23:02:25
спасибо за ссылки, изучу!
но у меня задачка немного посложней, под позициями есть ячейка итого, она должна в зависимости от отсутствующих ячеек смещаться, т.е. если например 1 позиция то под ней, если 10 позиций то соответственно сумма под всеми 10ю позициями.  
 
 
 
#4
06.05.2015 00:28:21
сможете сделать это на заказ?
 
 
 
#5
06.05.2015 08:50:30
Скорее всего можно сделать макросом.
 
 
 
#6
06.05.2015 09:36:10
Цитата
userbasya написал:
есть ячейка итого, она должна в зависимости от отсутствующих ячеек смещаться, т.е. если например 1 позиция то под ней, если 10 позиций то соответственно сумма под всеми 10ю позициями.
А сделать итого сверху нельзя? чтобы она считала все ячейки внизу
 
 
 
#7
06.05.2015 09:59:01
Как вариант. Подсчитайте максимально возможное количество позиций, под ними сбивайте сумму, а не нужные строки просто скрывайте.
 
 
 
#8
06.05.2015 10:08:20
Нет) позиция итого в документе всегда расположена внизу. В том то и вся соль чтоб процесс был автоматизирован, сейчас так и происходит, вручную.
 
 
 
#9
06.05.2015 10:18:44
userbasya, Вы бы файл приложили
 
 
 
#10
06.05.2015 11:41:40
Собственно вот примерно то, что используется, в максимально упрощенном варианте
 
 
 
#11
06.05.2015 11:58:24
Допустим, скрыли строки с дефисами - как потом в них будете вносить данные?
 
 
 
#12
06.05.2015 12:01:47
А просто автофильтр не подходит?
 
 
 
#13
06.05.2015 12:07:45
Цитата
Юрий М написал: как потом в них будете вносить данные?
В них данные подгружаются автоматически с другого листа, вопрос в том чтобы в зависимости от содержания дефиса или непосредственно данных эти строки раскрывались.
 
 
 
#14
06.05.2015 12:10:20
Цитата
gling написал: А просто автофильтр не подходит?
а как он работает? ввел данные, но они не появились  
 
 
 
#15
06.05.2015 12:12:22
Если вопрос про автоматическое скрытие/отображение строк, то как понимать это:
Цитата
Задача с форматированием границ ячеек основная
ЧТО там форматировать?
 
 
 
#16
06.05.2015 12:13:47
В ячейке А4 нажать квадратик фильтра, в фильтре нажать ОК.
 
 
 
#17
06.05.2015 12:17:52
в силу небольшого опыта, мне сначала пришло в голову что границы должны исчезать а текст должен становиться белым, на белом фоне, а пункт "итого" как-то динамически появляться поверх ячеек с измененным форматированием, идея фильтрации на этом фоне смотрится куда разумнее, правда пока еще непонятно работает ли это?!
 
 
 
#18
06.05.2015 12:20:24
Так может тогда поменять название темы? У Вас ведь на данный момент проблема со скрытие/отображением строк.
 
 
 
#19
06.05.2015 12:24:22
согласен
 
 
 
#20
06.05.2015 12:24:53
Мне кажется, проще макросом
Код
Sub schet()
Dim LastRow, StartRow, I As Long
StartRow = 3
With Sheets("ссылающийся лист")
LastRow = .Cells(Rows.Count, 2).End(xlUp).Row
.Range("A5:D" & LastRow).Clear
I = 2
While (IsNumeric(Sheets("лист с формой для заполнения").Cells(I, 1)))
.Range("A" & StartRow + I & ":D" & StartRow + I).Value = Sheets("лист с формой для заполнения").Range("A" & I & ":D" & I).Value
I = I + 1
Wend
I = I + StartRow
.Cells(I, 2) = "Итого:"
.Cells(I, 3).Formula = "= Sum(C5:C" & I - 1 & ")"
.Cells(I, 4).Formula = "= Sum(D5:D" & I - 1 & ")"
.Range("A5:D" & I - 1).Borders.LineStyle = 1
.Range("B" & I & ":D" & I).Borders.LineStyle = 1
End With
End Sub
 
 
 
#21
06.05.2015 12:24:56
у меня путем сводной таблицы получилось такое чудо
 
 
 
#22
06.05.2015 12:24:57
Согласны? Ну так предложите новое название.
 
 
 
Страницы: 1
Читают тему
Наверх