Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Копирование и суммирование значений при определенной заливке ячейки. Макрос.,
 
#1
09.10.2013 12:50:28
Как написать такой макрос, чтоб если ячейка была красного цвета, то только тогда значение этой ячейки извлекалось и помещалось в нужную ячейку???

помогите пожалуйста!!!
 
 
 
#2
09.10.2013 12:54:43
Код
Sub Test()
    If Range("A1").Interior.ColorIndex = 3 Then Range("B1").Value = Range("A1").Value
End Sub
 
 
 
#3
09.10.2013 13:06:44
Это если она покраснела не из-за УФ!
 
 
 
#4
09.10.2013 13:22:54
Код
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("A1:A10" ;) ) Is Nothing Then
 If Target.Interior.ColorIndex = 3 Then Target.Offset(0, 1).Value = Target.Value
 End If
End Sub


Юрий очень помог с макросом, спасибо!

У меня возникли параллельные вопросы,
1- цвет заливки у меня розовый (255 125 125), ColorIndex = ?
2- нужно чтобы цифра в заливке появлялась в конкретной ячейки например С5
3 - если у меня два, три поля с заливкой, надо чтоб значение всех трех складывались...

Я знаю, что здесь, очень много добрых людей, помогите пожалуйста...
 
 
 
#5
09.10.2013 13:32:07
1. MsgBox Selection.Interior.ColorIndex
2, 3 - не вижу конкретики.
Изменено: Hugo - 09.10.2013 13:33:12
 
 
 
#6
09.10.2013 13:34:56
Может вопрос в другом?
Подсчитать сумму ячеек по цвету заливки
Еще есть на этом же сайте в Приемах(после того как они реструктуризировались искать стало сложнее - так что при желании сами).
И есть надстройка в Копилке.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#7
09.10.2013 13:42:03
У меня есть макрос:
Цитата
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target.Interior.ColorIndex = 3 Then Target.Offset(0, 1).Value = Target.Value
End If
End Sub
Я думаю все понятно, что делает этот макрос, в нашем диапозоне от А1:А10
если заливается какая либо ячейка, а после в залитую ячейку вводится цифра, то это цифра отображается
в соседней ячейке B

Что мне нужно:
1- цвет заливки у меня розовый (255 125 125), а в макросе №3 - красный, мне
нужна индексация розового цвета ColorIndex = ?
2- нужно чтобы цифра в заливке появлялась в конкретной ячейки например: С5
3 - если у меня два, три поля с заливкой, надо чтоб значение всех трех складывались...
 
 
 
#8
09.10.2013 13:50:29
Всё понятно. Но и понятно, что код не всегда будет работать корректно.
1 - уже ответил выше.
2 - что такое "цифра в заливке появлялась"?
Замените  Target.Offset(0, 1) на [C5]
3 - не понятно. Но в любом случае - действительно сходите по ссылке The_Prist :)
 
 
 
#9
09.10.2013 14:04:16
1 - MsgBox Selection.Interior.ColorIndex (объясните пожалуйста, что куда)
2 - поменял - получилось
3 - На настоящий момент у меня в примере 5 ячеек на одной строке, которые заливаются цветом
т.е. если мы указываем конечный пункт [C5], то последнее изменение там появляется, а надо, что все значения только залитых ячеек суммировались между собой...

спасибо за помощь
 
 
 
#10
09.10.2013 14:18:26
1. Выделили свою розовую ячейку, выполнили  MsgBox Selection.Interior.ColorIndex любым способом - вот Вам ответ на Ваш вопрос :)
3. "у меня в примере 5 ячеек на одной строке" - вот то, что и не понятно. Отслеживали вроде столбец...
Короче - давайте уже пример :)
 
 
 
#11
09.10.2013 14:23:00
так, понял закономерность...
у меня заливка идет по условному форматированию, т.е. выбираешь дату и эта дата подсвечивается, макрос с условным фарматированием не работает, посоветуйте, что можно сделать и почему так?
 
 
 
#12
09.10.2013 14:26:13
Про УФ Hugo предупредил ещё в #3.
 
 
 
#13
09.10.2013 14:33:42
Справа выбираются праздники, на место где после выбора подсвечивается ячейка будет число 4 7 или 11, надо что это число падала в ячейку праздничные...
 
 
 
Страницы: 1
Наверх