Работа с цветом ячеек

[tibhar940]

Объясните, пожалуйста, почему на вторую строчку ругается, а третья нормально выполняется..

Sub b()
Range("j1") = "=SumColor(A1:A1;A1:A1;ColorIndexOfOneCell(G1;0;0);0)"
Range("i1") = "=F1-A1"
End Sub

[The_Prist]

А Вы в написании функции замените точки-с-запятой( на запятые(,).

[tibhar940]

Сообщение от The_Prist

А Вы в написании функции замените точки-с-запятой( на запятые(,).

Вот это нюансы). Спасибо

[tibhar940]

Почему-то не со всем работает. Т.е. в файле примера, который здесь в теме мне кидали работает, а в моём файле не работает.

 Worksheets("Лист1").Range("J6") = "=SumColor(Лист2!R:R, Лист2!R:R, ColorIndexOfOneCell(Лист2!U2, 0, 0), 0)"

Вставляется формула: =SumColor(Лист2!R:R; Лист2!R:R; ColorIndexOfOneCell(Лист2!U2; 0; 0); 0)

Однако значение не вставляется, а в ячейке появляется #ИМЯ?

[staniiislav]

а вы саму функцию с файла который Вам давали перенесли в свой фаил?

[tibhar940]

Спасибо. Со всем разобрался. Эта связка функция - формула просто мне была непонятна. А собственно. Можно ли этот модуль не добавлять в каждую книгу каждый раз? или можно ли это автоматизировать как-либо?

[tibhar940]

Сообщение от staniiislav

Function СУММ_ЦВЕТ(Диапазон_суммирования As Range, Цвет_берется_из_ячейки As Range)
For Each cll In Диапазон_суммирования.Cells
If cll.Interior.ColorIndex = Цвет_берется_из_ячейки.Interior.ColorIndex Then
    summa = summa + cll.Value
End If
Next
СУММ_ЦВЕТ = summa
End Function

Собственно сделал на основании этой функции. По предыдущему сообщению подскажите, пожалуйста.

Всем большое спасибо.

[DiemonStar]

Можно ли этот модуль не добавлять в каждую книгу каждый раз? или можно ли это автоматизировать как-либо?

Создаёте личную книгу макросов: http://office.microsoft.com/ru-ru/ex...#_Toc275246697

[tibhar940]

Сообщение от DiemonStar

Создаёте личную книгу макросов: http://office.microsoft.com/ru-ru/ex...#_Toc275246697

Собственно я не дописал. Как раз добавил эту функцию в PERSONAL.XLS
Даже сделал public function. Но всё-равно если нет её в модуле оперируемой книги, выдаёт #ИМЯ?

[DiemonStar]

Сообщение от tibhar940

Собственно я не дописал. Как раз добавил эту функцию в PERSONAL.XLS
Даже сделал public function. Но всё-равно если нет её в модуле оперируемой книги, выдаёт #ИМЯ?

всё прекрасно работает:

Public Function Test() As String
  Test = "Test"
End Function

наверное, вам стоит ссылки на функции переделать - там должно быть описание книги макросов