функция Exel

← →
brother © (2009-06-16 05:52) [0]

Нужно в зависимости от заливки определенной ячейки заливать другую тем же цветом.
Подскажите функцию в exel, а то чет найти не могу? может такой нет?

← →
brother © (2009-06-16 06:05) [1]

или макрос какой?

← →
test © (2009-06-16 07:32) [2]

Через макрос, нажми запись макроса, выдели свою ячейку, копируй формат/оформление, выбери другую ячейку и примени к ней оформление, дави alt+f11 и правь макрос чтоб на человека был похож у него не очень хороший генератор.

← →
brother © (2009-06-16 07:52) [3]

> копируй формат/оформление

> примени к ней оформление

не нашел, туплю?

← →
test © (2009-06-16 08:13) [4]

brother © (16.06.09 07:52) [3]
В ворде есть кнопочка применить оформление, такая же есть в Excel только ее мало видно, посмотри на панели выглядит как щетка.

← →
brother © (2009-06-16 08:31) [5]

все, разобрался, получилось:
ActiveSheet.Range("A28").Interior.ColorIndex = ActiveSheet.Range("A2").Interior.ColorIndex

← →
test © (2009-06-16 11:40) [6]

Скорее
sub Макрос1
ActiveSheet.Range("A28").Interior.ColorIndex = ActiveSheet.Range("A2").Interior.ColorIndex
end sub

не понял...

аааа, понял ;) тогда так:

Sub ПроверкаЗаливки()

ActiveSheet.Range("A28").Interior.ColorIndex = ActiveSheet.Range("A2").Interior.ColorIndex
ActiveSheet.Range("A37").Interior.ColorIndex = ActiveSheet.Range("A2").Interior.ColorIndex

ActiveSheet.Range("A29").Interior.ColorIndex = ActiveSheet.Range("A3").Interior.ColorIndex

ActiveSheet.Range("A30").Interior.ColorIndex = ActiveSheet.Range("A4").Interior.ColorIndex

ActiveSheet.Range("A31").Interior.ColorIndex = ActiveSheet.Range("A5").Interior.ColorIndex

ActiveSheet.Range("A32").Interior.ColorIndex = ActiveSheet.Range("A6").Interior.ColorIndex

ActiveSheet.Range("A33").Interior.ColorIndex = ActiveSheet.Range("A7").Interior.ColorIndex

ActiveSheet.Range("A34").Interior.ColorIndex = ActiveSheet.Range("A9").Interior.ColorIndex

ActiveSheet.Range("A36").Interior.ColorIndex = ActiveSheet.Range("A14").Interior.ColorIndex

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ПроверкаЗаливки
End Sub

хотя, это и не проверка)

функция Exel Найти похожие ветки