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

Вход

Регистрация

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

 

= Мир MS Excel/Условное форматирование диапазона ячеек и при новых строках - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Условное форматирование диапазона ячеек и при новых строках (Условный формат)
Условное форматирование диапазона ячеек и при новых строках
ctcvostok Дата: Пятница, 19.08.2022, 15:21 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 91
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
1. Есть две колонки с цифрами. На несколько строк. Нужно в первой колонке подсветить те ячейки, в которых значения больше, чем по втором столбце в той же строке. Создаю условный формат для первой ячейки, далее копирую на остальные ячейки столбца - и по ним в условном формате не происходит автоматического изменения ссылки на ячейку второго столбца (остается наименование первой ячейки).

2. При добавлении новых строк - сохраняется всё тот же условный формат...с ссылкой на первую ячейку второго столбца.

Как сделать условное форматирование диапазона с автоматическим изменением "адреса" ячеек в условии форматирования (аналогично формулам)?
 
Ответить
Сообщение1. Есть две колонки с цифрами. На несколько строк. Нужно в первой колонке подсветить те ячейки, в которых значения больше, чем по втором столбце в той же строке. Создаю условный формат для первой ячейки, далее копирую на остальные ячейки столбца - и по ним в условном формате не происходит автоматического изменения ссылки на ячейку второго столбца (остается наименование первой ячейки).

2. При добавлении новых строк - сохраняется всё тот же условный формат...с ссылкой на первую ячейку второго столбца.

Как сделать условное форматирование диапазона с автоматическим изменением "адреса" ячеек в условии форматирования (аналогично формулам)?

Автор - ctcvostok
Дата добавления - 19.08.2022 в 15:21
китин Дата: Пятница, 19.08.2022, 15:30 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
файл будет?


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениефайл будет?

Автор - китин
Дата добавления - 19.08.2022 в 15:30
ctcvostok Дата: Пятница, 19.08.2022, 15:42 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 91
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
файл
К сообщению приложен файл: 9385018.xlsx (8.6 Kb)
 
Ответить
Сообщениефайл

Автор - ctcvostok
Дата добавления - 19.08.2022 в 15:42
ctcvostok Дата: Пятница, 19.08.2022, 15:42 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 91
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
скрин. А нужно, чтобы 40 сравнивалось с 50 по той же строке.
К сообщению приложен файл: 5093946.png (55.0 Kb)


Сообщение отредактировал ctcvostok - Пятница, 19.08.2022, 15:43
 
Ответить
Сообщениескрин. А нужно, чтобы 40 сравнивалось с 50 по той же строке.

Автор - ctcvostok
Дата добавления - 19.08.2022 в 15:42
ctcvostok Дата: Пятница, 19.08.2022, 15:45 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 91
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Перерыла весь инет. Простой ответ не нашла. Рекомендуют макрос, но я в этом вообще 0.

[vba]
Код
Sub addAndBtnClick()
Set Button = ActiveSheet.Buttons(Application.Caller)
With Button.TopLeftCell
ColumnIndex = .Column
RowIndex = Button.TopLeftCell.Row
End With
currentRowIndex = RowIndex
Set Table = ActiveSheet.ListObjects("Table name")
Table.ListRows.Add (currentRowIndex)
Set currentCell = Table.DataBodyRange.Cells(currentRowIndex, Table.ListColumns("Column name").Index)
currentCell.Value = "Cell value"
Call setCreateButtons
End Sub

Sub removeAndBtnClick()
Set Button = ActiveSheet.Buttons(Application.Caller)
With Button.TopLeftCell
ColumnIndex = .Column
RowIndex = Button.TopLeftCell.Row
End With
currentRowIndex = RowIndex
Set Table = ActiveSheet.ListObjects("Table name")
Table.ListRows(currentRowIndex - 1).Delete
End Sub

Sub setCreateButtons()
Set Table = ActiveSheet.ListObjects("Table name")
ActiveSheet.Buttons.Delete
For x = 1 To Table.Range.Rows.Count
For y = 1 To Table.Range.Columns.Count

If y = Table.ListColumns("Column name").Index Then
Set cell = Table.Range.Cells(x, y)
If cell.Text = "Some condition" Then
Set btn = ActiveSheet.Buttons.Add(cell.Left + cell.Width - 2 * cell.Height, cell.Top, cell.Height, cell.Height)
btn.Text = "-"
btn.OnAction = "removeAndBtnClick"
Set btn = ActiveSheet.Buttons.Add(cell.Left + cell.Width - cell.Height, cell.Top, cell.Height, cell.Height)
btn.Text = "+"
btn.OnAction = "addAndBtnClick"
End If
End If
Next
Next
End Sub
[/vba]


Сообщение отредактировал Serge_007 - Пятница, 19.08.2022, 16:55
 
Ответить
СообщениеПерерыла весь инет. Простой ответ не нашла. Рекомендуют макрос, но я в этом вообще 0.

[vba]
Код
Sub addAndBtnClick()
Set Button = ActiveSheet.Buttons(Application.Caller)
With Button.TopLeftCell
ColumnIndex = .Column
RowIndex = Button.TopLeftCell.Row
End With
currentRowIndex = RowIndex
Set Table = ActiveSheet.ListObjects("Table name")
Table.ListRows.Add (currentRowIndex)
Set currentCell = Table.DataBodyRange.Cells(currentRowIndex, Table.ListColumns("Column name").Index)
currentCell.Value = "Cell value"
Call setCreateButtons
End Sub

Sub removeAndBtnClick()
Set Button = ActiveSheet.Buttons(Application.Caller)
With Button.TopLeftCell
ColumnIndex = .Column
RowIndex = Button.TopLeftCell.Row
End With
currentRowIndex = RowIndex
Set Table = ActiveSheet.ListObjects("Table name")
Table.ListRows(currentRowIndex - 1).Delete
End Sub

Sub setCreateButtons()
Set Table = ActiveSheet.ListObjects("Table name")
ActiveSheet.Buttons.Delete
For x = 1 To Table.Range.Rows.Count
For y = 1 To Table.Range.Columns.Count

If y = Table.ListColumns("Column name").Index Then
Set cell = Table.Range.Cells(x, y)
If cell.Text = "Some condition" Then
Set btn = ActiveSheet.Buttons.Add(cell.Left + cell.Width - 2 * cell.Height, cell.Top, cell.Height, cell.Height)
btn.Text = "-"
btn.OnAction = "removeAndBtnClick"
Set btn = ActiveSheet.Buttons.Add(cell.Left + cell.Width - cell.Height, cell.Top, cell.Height, cell.Height)
btn.Text = "+"
btn.OnAction = "addAndBtnClick"
End If
End If
Next
Next
End Sub
[/vba]

Автор - ctcvostok
Дата добавления - 19.08.2022 в 15:45
ctcvostok Дата: Пятница, 19.08.2022, 16:13 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 91
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Задача решена. Ликбезом по экселю :) $...
 
Ответить
СообщениеЗадача решена. Ликбезом по экселю :) $...

Автор - ctcvostok
Дата добавления - 19.08.2022 в 16:13
_Boroda_ Дата: Пятница, 19.08.2022, 16:13 | Сообщение № 7
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16674
Репутация: 6479 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Я Вас умоляю! Какой макрос? Вот так у УФ
Код
=D3>C3
К сообщению приложен файл: 9385018_1.xlsx (8.3 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЯ Вас умоляю! Какой макрос? Вот так у УФ
Код
=D3>C3

Автор - _Boroda_
Дата добавления - 19.08.2022 в 16:13
Nic70y Дата: Пятница, 19.08.2022, 16:14 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2273 ±
Замечаний: 0% ±

Excel 2010
Код
=$D3
код засуньте в тег # пжл


ЮMoney 41001841029809
 
Ответить
Сообщение
Код
=$D3
код засуньте в тег # пжл

Автор - Nic70y
Дата добавления - 19.08.2022 в 16:14
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Условное форматирование диапазона ячеек и при новых строках (Условный формат)
  • Страница 1 из 1
  • 1
Поиск:

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