Форум: "Прочее";
Текущий архив: 2009.08.16;
Скачать: [xml.tar.bz2];

Вниз

функция 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

---

← →
brother ©   (2009-06-16 11:42) [7]

не понял...

---

← →
brother ©   (2009-06-16 11:44) [8]

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

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

---

← →
brother ©   (2009-06-16 11:46) [9]

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

---

Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2009.08.16;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.113 c