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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Сохранение выделения ячейки при условном форматировании (Формулы/Formulas)
Сохранение выделения ячейки при условном форматировании
Kuznetsov_R Дата: Вторник, 31.03.2015, 00:39 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 1 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте, форумчане!
Помогите, пожалуйста, решить задачу.
Дано: для ячеек А1 и В1 создано правило, при кот. каждая из этих ячеек выделяется, если значение в какой-л. из этих ячеек равно значению в ячейке С1. Например, если С1=1, а А1=1 и В1=2, то А1 выделяется, В1 - нет; если С1=2, а А1=1 и В1=2, то выделение с ячейки А1 "перескакивает" на ячейку В1.
Вопрос: как добиться сохранения выделения ячейки А1 после однократного совпадения значения в этой ячейке со значением в ячейке С1?
Буду благодарен за отзывы!

---
С уважением, Роман.
[moder]По Правила форума примерчик нужен. А решение макросом будет
 
Ответить
СообщениеЗдравствуйте, форумчане!
Помогите, пожалуйста, решить задачу.
Дано: для ячеек А1 и В1 создано правило, при кот. каждая из этих ячеек выделяется, если значение в какой-л. из этих ячеек равно значению в ячейке С1. Например, если С1=1, а А1=1 и В1=2, то А1 выделяется, В1 - нет; если С1=2, а А1=1 и В1=2, то выделение с ячейки А1 "перескакивает" на ячейку В1.
Вопрос: как добиться сохранения выделения ячейки А1 после однократного совпадения значения в этой ячейке со значением в ячейке С1?
Буду благодарен за отзывы!

---
С уважением, Роман.
[moder]По Правила форума примерчик нужен. А решение макросом будет
Автор - Kuznetsov_R
Дата добавления - 31.03.2015 в 00:39
Kuznetsov_R Дата: Вторник, 31.03.2015, 10:31 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 1 ±
Замечаний: 0% ±

Excel 2007
Цитата
Модератор: По Правила форума примерчик нужен.
Приложил. Хотя вопрос и предельно простой, но правила - есть правила, понимаю )
Цитата
Модератор: А решение макросом будет
Был уверен на 99% , что потребуется макрос, но теплилась надежда.. Только начал осваивать эту новую для себя тему, "программирование в VBA", пока нет необходимых знаний для решения данной задачи. Если возможно, подсобите с кодом, пожалуйста.
К сообщению приложен файл: 2096568.xlsx (8.0 Kb)
 
Ответить
Сообщение
Цитата
Модератор: По Правила форума примерчик нужен.
Приложил. Хотя вопрос и предельно простой, но правила - есть правила, понимаю )
Цитата
Модератор: А решение макросом будет
Был уверен на 99% , что потребуется макрос, но теплилась надежда.. Только начал осваивать эту новую для себя тему, "программирование в VBA", пока нет необходимых знаний для решения данной задачи. Если возможно, подсобите с кодом, пожалуйста.
Автор - Kuznetsov_R
Дата добавления - 31.03.2015 в 10:31
Nic70y Дата: Вторник, 31.03.2015, 10:49 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 9133
Репутация: 2416 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub tipa_uf()
      For Each c In Range("a1:b1")
      If c = [c1] Then
      c.Interior.ColorIndex = 38
      End If
      Next
End Sub
[/vba]вдруг правильно

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Вторник, 31.03.2015, 10:50
 
Ответить
Сообщение[vba]
Код
Sub tipa_uf()
      For Each c In Range("a1:b1")
      If c = [c1] Then
      c.Interior.ColorIndex = 38
      End If
      Next
End Sub
[/vba]вдруг правильно
Автор - Nic70y
Дата добавления - 31.03.2015 в 10:49
_Boroda_ Дата: Вторник, 31.03.2015, 12:11 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16901
Репутация: 6613 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
В модуль листа
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address(0, 0) <> "C1" Then Exit Sub
     If Range("A1") = Range("C1") Then Range("A1").Interior.ColorIndex = 38
End Sub
[/vba]
К сообщению приложен файл: 2096568_1.xlsm (14.1 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВ модуль листа
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address(0, 0) <> "C1" Then Exit Sub
     If Range("A1") = Range("C1") Then Range("A1").Interior.ColorIndex = 38
End Sub
[/vba]
Автор - _Boroda_
Дата добавления - 31.03.2015 в 12:11
Kuznetsov_R Дата: Вторник, 31.03.2015, 16:01 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 1 ±
Замечаний: 0% ±

Excel 2007
Ребята, спасибо Вам огромное!
Отдельное спасибо Nic70y. Ваш вариант решения, по моему очень скромному в этом вопросе мнению, лучше подходит для моего примера, хотя, уверен, решение Borod-ы я просто не смог догнать или адаптировать для своего (частного) вопроса.
Ещё раз спасибо Nic70y и Borod-е!
Тема закрыта.

---
С уважением, Роман.
 
Ответить
СообщениеРебята, спасибо Вам огромное!
Отдельное спасибо Nic70y. Ваш вариант решения, по моему очень скромному в этом вопросе мнению, лучше подходит для моего примера, хотя, уверен, решение Borod-ы я просто не смог догнать или адаптировать для своего (частного) вопроса.
Ещё раз спасибо Nic70y и Borod-е!
Тема закрыта.

---
С уважением, Роман.
Автор - Kuznetsov_R
Дата добавления - 31.03.2015 в 16:01
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Сохранение выделения ячейки при условном форматировании (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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