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

[mexx1337]

Здравствуйте!
Наткнулся на один макрос неработающий, который должен переводить числа в деньги. С ними работаю мало, не подскажите где ошибки?

Sub name(raz)

Function RubKop(Число)
   ' Пустые ячейки и ячейки, содержащие текст, функция _
    не обрабатывает
   If IsNumeric(Число) = False Or Число = "" Then RubKop = _
    "<>": Exit Function
 
   ' Из числа целой части - рубли
   ДлинаЧисла = Len(Число)
   ЦелаяЧасть = Fix(Число)
   ДлинаЦелой = Len(ЦелаяЧасть)
 
   ' Вычисление длины дробной части
   ДлинаДроби = ДлинаЧисла - ДлинаЦелой
   If ДлинаДроби <> 0 Then
      ДлинаДроби = ДлинаЧисла - ДлинаЦелой - 1
   End If
 
   ' Формирование количества копеек в зависимости от длины _
    дробной части
   If ДлинаДроби = 0 Then
      ' Ноль копеек
      Копейки = "00"
   ElseIf ДлинаДроби = 1 Then
      ' Дробная часть состоит из одного числа - это _
       десятки копеек
      Копейки = Right(Число, ДлинаДроби) & "0"
   ElseIf ДлинаДроби = 2 Then
      ' Дробная часть полностью соответствует количеству копеек
      Копейки = Right(Число, ДлинаДроби)
   Else
      ' Длина дробной части больше двух - округлим _
       дробную часть
      Копейки = Right(Число, ДлинаДроби)
      If Mid(Копейки, 3, 1) > 4 Then
         Копейки = Left(Копейки, 2) + 1
      Else
         Копейки = Left(Копейки, 2)
      End If
   End If
   ' Составление полной надписи из количества рублей и копеек
   Рубли = ЦелаяЧасть
   RubKop = Рубли & " " & "руб." & " " & Копейки & " " & "коп."
End Function

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Aleksandr H.]

Рабочая функция. Где не работает?

[Serge_Bliznykov]

для чего написали Sub name(raz) ?
куда вставили данный макрос?


нужно открыть редактор, слева в дерево проектов в книгу нужно вставить модуль (пр.кн.мышки - Insert Module)
и вставить код туда.

функция работает, я проверил.

функция написана без объявления переменных, поэтому строчку Option Explicit нужно удалить (если она там есть, конечно).

[mexx1337]

файл просил сохранения и после этого автоматом добавился Sub
в целом потом он все равно не запускается

что я еще не так делаю?

[mexx1337]

файл просил сохранения и после этого автоматом добавился Sub
в целом потом он все равно не запускается

что я еще не так делаю?

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

для чего написали Sub name(raz) ?
куда вставили данный макрос?


нужно открыть редактор, слева в дерево проектов в книгу нужно вставить модуль (пр.кн.мышки - Insert Module)
и вставить код туда.

функция работает, я проверил.

функция написана без объявления переменных, поэтому строчку Option Explicit нужно удалить (если она там есть, конечно).

[Serge_Bliznykov]

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

что я еще не так делаю?

так это не макрос, это ФУНКЦИЯ.

[Aleksandr H.]

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

так это не макрос, это ФУНКЦИЯ.

mexx1337 А как, по Вашему, "он" должен переводить?

[mexx1337]

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

mexx1337 А как, по Вашему, "он" должен переводить?

его можно как-то в макрос заключить? я просто с этим не работал.
я думал что есть число 100,54 будет 100 рублей 54 копейки

[Serge_Bliznykov]

вот так вызывается:
exxx.png

и вот файл-пример
КнигаRubKop.zip

[mexx1337]

спасибо большое!

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

как это можно добавить сюда?