Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.08.16;
Скачать: CL | DM;

Вниз

функция 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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.014 c
2-1245496785
KiLLiR
2009-06-20 15:19
2009.08.16
Документ Word не удаляется.


15-1244723703
dmk
2009-06-11 16:35
2009.08.16
Сомнения по работе


2-1245257837
Bred
2009-06-17 20:57
2009.08.16
Unable to invoke Code Completion due to errors in source code


15-1245117148
brother
2009-06-16 05:52
2009.08.16
функция Exel


15-1242118246
Германн
2009-05-12 12:50
2009.08.16
ООО Кредитэкспресс