Форматирование ячейки после вызова пользовательской функции

[B]

Подскажите
Написана функция на VBA в Excel XP. Надо, чтобы она не только возвращала число, но и форматировала диапазон (при пересчете). Возможно ли это?

[alibek]

Нет, функции листа не могут изменять форматирование ячеек. Используй условное форматирование.

[K.Sergey]

Функции могут возвращать только значения и не могут изменять форматированя. Только недавно обсуждалось минимум в 2х темах. Используй поиск по форуму.

[B]

Может можно как-то извратиться?

[K.Sergey]

Может можно как-то извратиться?

Подумав, решил обмануть эксель и вынести применение форматирования в отдельную процедуру и вызывать ее из функции. Т.е. вот так:

Код: Выделить всё

Function xxx(rr)
Call changefont(Application.Caller)
xxx = rr
End Function

Sub changefont(MyRange As Range)
MyRange.Font.Bold = True
End Sub


И нифига! Ошибки не выдает, но и форматирование не применяет.
Но ведь если нельзя, но очень хочется, то можно!
Идея изврата состоит в следующем:
Объявить Public Массив. Функция, когда надо, вместо того, чтобы применять форматирование, будет заносить в этот массив Range, к которому нужно его применить.
С помощью OnTime, либо с помощью таймера и невидимой формы, мы просматриваем этот массив, и если в нем есть элементы, то применяем к ним форматирование и удаляем (из массива).

Но это полное извращение. Впрочем, как заказывали...

[uhm]

Условное форматирование тебе не подошло, или ты не пытался?

Можешь поточнее, в чем состоит задача? Какие условия для форматирования?

[B]

невидимая форма - это круто, конечно,
а таймер есть в контролах excel?

[B]

форматировать надо диапазоны разной длины, в зависимости от суммы накопленным итогом и того, какой длины была отформатированная облать в других столбцах
иллюстрация:

ф - формат
о - нет формата

о | о | Ф
о | о | Ф
о | Ф | о
о | Ф | о
о | Ф | о
Ф | о | о
ф | о | о
ф | о | о

[K.Sergey]

невидимая форма - это круто, конечно,
а таймер есть в контролах excel?

Нет конечно! Но он свободно в инете гуляет. В частности на сайте MSDN можно найти по запросу IETimer.

[B]

круто, посмотрю
а можно процедуру на пересчет зацепить?

[K.Sergey]

а можно процедуру на пересчет зацепить?

Можно. В модуле WorkBook:

Код: Выделить всё

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)

End Sub