Выделение значений с формулами суммирования жирным шрифтом

[sonata]

Вопрос следующего рода:
Я делаю на Excel-листе к-л расчеты...
Потом хочу нажать кнопку с макросом, значения данного листа анализируются на предмет формул суммирования "=СУММ", и значение этой ячейки выделяется жирным цветом.
Как пройти весь лист на предмет данного анализа?
Или это будет очень долго?
Т.е. я хочу видеть 2 +3 =5Чтобы Итог был жирненьким...

[RayShade]

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

for each cll in cellrange
if instr(1,cll.formualr1c1,"+",vbtextcompare)>0 then cll.font.bold = true
next cll


а cellrange уже сама настраивай как тебе надо. Хоть лист хоть selection

[alibek]

Э... А если у ячейки текстовый формат и в ней записан текст "=супер+мега+рулез+текст="?
Лучше уж пользоваться халявой, в именно свойством Range.HasFormula
Примерно:

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

For Each objCell In ...
  If objCell.HasFormula Then
    objCell.Font.Bold = (InStr(objCell.FormulaR1C1,"+")>0)
  End If
Next objCell

[sonata]

Как задать диапазон In...

Не работает следующий код...Где ошибка?

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

Public Sub natasha()
Dim objCell As Object
Dim myRange As Range
myRange = Range(Cells(1, 1), Cells(10, 2000))
For Each objCell In myRange
  If objCell.HasFormula Then
    objCell.Font.Bold = (InStr(objCell.FormulaR1C1, "+") > 0)
  End If
Next objCell
End Sub

[Calvin]

А ты поставь Set перед myRange = Range(Cells(1, 1), Cells(10, 2000))
- это ведь объектная переменная (myRange)

[sonata]

Dim myRange As Range
или

Dim myRange As Object

Но все равно, поставив волшебное слово Set
возникает ошибка Application-defined or Object-Defined Error[/b]

[RayShade]

В какой строчке то хоть возникает? Прогони макрос в режиме отладки и посмотри, где именно ошибка.

Но мне так кажется что Range неверно задан.