Перевод чисел в деньги

[Aleksandr H.]

Sub GoMF()
    For Each cell In Selection
        If cell < 0 Then cell.Interior.ColorIndex = 3
        cell.Value = RubKop(cell)
        
    Next
End Sub

[Serge_Bliznykov]

Сообщение от Aleksandr H.

Sub GoMF()

да, это должно сработать.
Но меня терзают смутные сомнения, что автору темы это и не нужно совсем.
Дело в том, что если эти ячейки использовались в расчётах (в формулах), то, разумеется, все эти расчёты накроются медным тазиком.
Вангую следующий вопрос - как восстановить работу формул. (ну, итоговая сумма, например, не считается )

[mexx1337]

если честно об этом даже не подумал...
этот код работает прекрасно..


согласен что это имеет место быть..
это условие сложно учесть?

просто мои знания в VBA прямопропорциональны балету и остались на уровне школьных знаний.
а начальник уже стоит над душой =\

[Aleksandr H.]

ТЗ

с помощью макроса чтобы шло преобразование всех чисел из выбранного диапазона на листе и, например, выделяло красным цветом отрицательные числа.

Как задал вопрос, так и получил ответ. Код предоставляется "as is"

для суммы, я бы, конечно, для числа 457,46 (разделитель цел/дроб запятая) применил формат ячейки

# ##0" руб"," "00" коп.";[Красный]-# ##0" руб"," "00" коп."

, но это такое, вторичное