Excel. Уволят - не уволят?⁠⁠

Да не меня надо благодарить, а человека, который это когда то сделал=) Но его уже не найти...

Убери пустые строки после знака "_", так как это перенос строки. Плюс убери большие пробелы. Должно все заработать.

m = m & sot(CInt(Mid(rub, i, 1))) & IIf(Mid(rub, i + 1, 1) = "1", nadc(CInt(Mid(rub, i + 2, 1))), _

des(CInt(Mid(rub, i + 1, 1))) & ed(CInt(Mid(rub, i + 2, 1)) + IIf(i = Len(rub) - 5 And CInt(Mid(rub, i + 2, 1)) < 3, 10, 0))) & _

IIf(Mid(rub, i + 1, 1) = "1" Or (Mid(rub, i + 2, 1) + 9) Mod 10 >= 4, razr(i + 1), IIf(Mid(rub, i + 2, 1) = "1", razr(i - 1), razr(i)))

Как то так должно выглядеть.

Использую данный макрос, все вроде работает. Когда-то где-то нашел его. Прописываешь в ячейку "=MSumPro(ячейка с числом)".

Function MSumProp$(chislo#)

Dim rub$, kop$, ed, des, sot, nadc, razr, i&, m$

   If chislo >= 1E+15 Or chislo < 0 Then Exit Function

sot = Array("", "сто ", "двести ", "триста ", "четыреста ", "пятьсот ", "шестьсот ", "семьсот ", "восемьсот ", "девятьсот ")

des = Array("", "", "двадцать ", "тридцать ", "сорок ", "пятьдесят ", "шестьдесят ", "семьдесят ", "восемьдесят ", "девяносто ")

nadc = Array("десять ", "одиннадцать ", "двенадцать ", "тринадцать ", "четырнадцать ", "пятнадцать ", "шестнадцать ", "семнадцать ", "восемнадцать ", "девятнадцать ")

ed = Array("", "один ", "два ", "три ", "четыре ", "пять ", "шесть ", "семь ", "восемь ", "девять ", "", "одна ", "две ")

razr = Array("триллион ", "триллиона ", "триллионов ", "миллиард ", "миллиарда ", "миллиардов ", "миллион ", "миллиона ", "миллионов ", "тысяча ", "тысячи ", "тысяч ", "рубль ", "рубля ", "рублей ")

rub = Left(Format(chislo, "000000000000000.00"), 15)

kop = Right(Format(chislo, "0.00"), 2)

  If CDbl(rub) = 0 Then m = "ноль "

  For i = 1 To Len(rub) Step 3

    If Mid(rub, i, 3) <> "000" Or i = Len(rub) - 2 Then

    m = m & sot(CInt(Mid(rub, i, 1))) & IIf(Mid(rub, i + 1, 1) = "1", nadc(CInt(Mid(rub, i + 2,     1))), _

   des(CInt(Mid(rub, i + 1, 1))) & ed(CInt(Mid(rub, i + 2, 1)) + IIf(i = Len(rub) - 5 And       CInt(Mid(rub, i + 2, 1)) < 3, 10, 0))) & _

IIf(Mid(rub, i + 1, 1) = "1" Or (Mid(rub, i + 2, 1) + 9) Mod 10 >= 4, razr(i + 1), IIf(Mid(rub, i + 2, 1) = "1", razr(i - 1), razr(i)))

End If

Next i

MSumProp = UCase(Left(m, 1)) & Mid(m, 2) & kop & " копе" & IIf(kop \ 10 = 1 Or ((kop + 9) Mod 10) >= 4, "ек", IIf(kop Mod 10 = 1, "йка", "йки"))

End Function

Попробуй урезать функцию, убери все что ниже "конец функции"

Автор ты разрешил ехелю использование макросов, и документ с поддержкой макросов

Надо говорить: "этого я не знаю, но посижу на форумах и разберусь".. ну или по факту: "этого я не знал, но посидел на форумах и разобрался".. тогда и отношение к тебе будет другое

http://www.planetaexcel.ru/techniques/7/46/

еще как вариант

http://excelru.ru/excel/chislo-propisyu-v-excel.html  как-то так попробуй

Ждем ответа от Лиги Ясновидящих, которые найдет ошибку в макросе, не смотря на него.

Телепаты в отпуске.