преобразование числа в текст прописью в excel

Ответ от Grafus[новичек]
преобразуй числа 603 дес ____ед 86 сот_______дес 43 сот_________ед помогите

Ответ от Adolf Adolf[активный]
В ответе с формулой от Alina Streltsova имейте в виду, что, видимо, при форматировании тут появляются пробелы между текстом формулы и открывающимися скобками. Поэтому после копирования в Excel программа пишет, что в формуле ошибка. На самом деле все работает, только необходимо заменить " (" на "(".

Ответ от Владимир[гуру]
Это число прописью называется... есть много алгоритмов если хотите могу выслать

Ответ от ЇАВ[гуру]
Есть у меня такая своя. Работает до 1 000 000 000 000 000. Могу прислать агентом или почтой.

Ответ от Ўра[новичек]
БАТТЕКСТ () выдает числа прописью, но на иврите! Теперь нужно бы на русский перевести

Ответ от Alina Streltsova[новичек]
=ПОДСТАВИТЬ (ПРОПНАЧ (ИНДЕКС (n_4;ПСТР (ТЕКСТ (A2;n0);1;1)+1)&ИНДЕКС (n0x;ПСТР (ТЕКСТ (A2;n0);2;1)+1;ПСТР (ТЕКСТ (A2;n0);3;1)+1)&ЕСЛИ (-ПСТР (ТЕКСТ (A2;n0);1;3);"миллиард"&ВПР (ПСТР (ТЕКСТ (A2;n0);3;1)*И (ПСТР (ТЕКСТ (A2;n0);2;1)-1);мил; 2);"")&ИНДЕКС (n_4;ПСТР (ТЕКСТ (A2;n0);4;1)+1)&ИНДЕКС (n0x;ПСТР (ТЕКСТ (A2;n0);5;1)+1;ПСТР (ТЕКСТ (A2;n0);6;1)+1)&ЕСЛИ (-ПСТР (ТЕКСТ (A2;n0);4;3);"миллион"&ВПР (ПСТР (ТЕКСТ (A2;n0);6;1)*И (ПСТР (ТЕКСТ (A2;n0);5;1)-1);мил; 2);"")&ИНДЕКС (n_4;ПСТР (ТЕКСТ (A2;n0);7;1)+1)&ИНДЕКС (n1x;ПСТР (ТЕКСТ (A2;n0);8;1)+1;ПСТР (ТЕКСТ (A2;n0);9;1)+1)&ЕСЛИ (-ПСТР (ТЕКСТ (A2;n0);7;3);ВПР (ПСТР (ТЕКСТ (A2;n0);9;1)*И (ПСТР (ТЕКСТ (A2;n0);8;1)-1);тыс; 2);"")&ИНДЕКС (n_4;ПСТР (ТЕКСТ (A2;n0);10;1)+1)&ИНДЕКС (n0x;ПСТР (ТЕКСТ (A2;n0);11;1)+1;ПСТР (ТЕКСТ (A2;n0);12;1)+1));"z";" ")&ЕСЛИ (ОТБР (ТЕКСТ (A2;n0));"";"Ноль ")&"рубл"&ВПР (ОСТАТ (МАКС (ОСТАТ (ПСТР (ТЕКСТ (A2;n0);11;2)-11;100);9);10);{0;"ь ":1;"я ":4;"ей "};2)&ПРАВСИМВ (ТЕКСТ (A2;n0);2)&" копе"&ВПР (ОСТАТ (МАКС (ОСТАТ (ПРАВСИМВ (ТЕКСТ (A2;n0);2)-11;100);9);10);{0;"йка":1;"йки":4;"ек"};2)
Имя диапазона: n_1
Диапазон: ={"";"одинz";"дваz";"триz";"четыреz";"пятьz";"шестьz";"семьz";"восемьz";"девятьz"}
Имя диапазона: n_2
Диапазон: ={"десятьz";"одиннадцатьz";"двенадцатьz";"тринадцатьz";"четырнадцатьz";"пятнадцатьz";"шестнадцатьz";"семнадцатьz";"восемнадцатьz";"девятнадцатьz"}
Имя диапазона: n_3
Диапазон: ={"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}
Имя диапазона: n_4
Диапазон: ={"";"стоz";"двестиz";"тристаz";"четырестаz";"пятьсотz";"шестьсотz";"семьсотz";"восемьсотz";"девятьсотz"}
Имя диапазона: n_5
Диапазон: ={"";"однаz";"двеz";"триz";"четыреz";"пятьz";"шестьz";"семьz";"восемьz";"девятьz"}
Имя диапазона: n0
Диапазон: ="000000000000"&ПСТР (1/2;2;1)&"00"
Имя диапазона: n0x
Диапазон: =ЕСЛИ (n_3=1;n_2;n_3&n_1)
Имя диапазона: n1x
Диапазон: =ЕСЛИ (n_3=1;n_2;n_3&n_5)
Имя диапазона: мил
Диапазон: ={0;"овz":1;"z":2;"аz":5;"овz"}
Имя диапазона: тыс
Диапазон: ={0;"тысячz":1;"тысячаz":2;"тысячиz":5;"тысячz"}
Чтобы создать справочник таких диапазонов, переходим на вкладку "Формулы" - "Диспетчер имен"

Ответ от VoV@N™[гуру]
макрос пиши

Ответ от Blu-ray[новичек]
БАТТЕКСТ ()
и все!

Ответ от Vetal[гуру]
больше чем уверен что в Excel'e такого нет, но можно сделать самому есть такое понятие как автозамена обычно находиться в настройках правописания, вот там можно это сделать! по этому принципу и исправляются ошибки например если напишешь "ПРивет" Word или Excеl его исправят на "Привет" и т .д.

Ответ от Дмитрий Карасев[гуру]
Готовый скрипт для отображения в EXCEL числа прописью:
-----------------------------------------------------------------------------
Attribute VB_Name = "Module1"
Function Suma_Litere(sc)
On Error GoTo Err_Suma_Litere
' Функция возвращает сумму прописью
' на русском языке
' для подключеничя макроса выберите пунк сервис/макрос/редактор Visual Basic
' File/Import
' 20.02.2001 Басистый В. И.
'
Dim adec As Variant
Dim rez As String, k As String, Kop As String, a1 As String, a As String
Dim pz As Integer, ad As Integer, ae As Integer
ReDim zeci(90) As String, sut(9) As String, o(5, 2) As String
ReDim M(4) As Double, z(4) As Double, S(4) As Double
zeci(1) = "один"
zeci(2) = "два"
zeci(3) = "три"
zeci(4) = "четыре"
zeci(5) = "пять"
zeci(6) = "шесть"
zeci(7) = "семь"
zeci(8) = "восемь"
zeci(9) = "девять"
zeci(10) = "десять"
zeci(11) = "одинадцать"
zeci(12) = "двенадцать"
zeci(13) = "тринадцать"
zeci(14) = "четырнадцать"
zeci(15) = "пятнадцать"
zeci(16) = "шестнадцать"
zeci(17) = "семнадцать"
zeci(18) = "восемнадцать"
zeci(19) = "девятнадцать"
zeci(20) = "двадцать"
zeci(30) = "тридцать"
zeci(40) = "сорок"
zeci(50) = "пятьдесят"
zeci(60) = "шестьдесят"
zeci(70) = "семьдесят"
zeci(80) = "восемьдесят"
zeci(90) = "девяносто"
sut(1) = "сто"
sut(2) = "двести"
sut(3) = "триста"
sut(4) = "четыреста"
sut(5) = "пятьсот"
sut(6) = "шестьсот"
sut(7) = "семьсот"
sut(8) = "восемьсот"
sut(9) = "девятьсот"
o(1, 1) = "миллиардов"
o(1, 2) = "миллиард"
o(2, 1) = "миллионов"
o(2, 2) = "миллион"
o(3, 1) = "тысячи"
o(3, 2) = "тысяча"
o(4, 1) = "лея"
o(4, 2) = "лей"
'sc = Forms!Form_oi!valoarea
adec = 100000000000000# + (sc * 100)
a1 = adec
a = Mid(a1, 2)
M(1) = Mid(a, 1, 3)
z(1) = Mid(a, 2, 2)
S(1) = Mid(a, 1, 1)
M(2) = Mid(a, 4, 3)
z(2) = Mid(a, 5, 2)
S(2) = Mid(a, 4, 1)
M(3) = Mid(a, 7, 3)
z(3) = Mid(a, 8, 2)
S(3) = Mid(a, 7, 1)
M(4) = Mid(a, 10, 3)
z(4) = Mid(a, 11, 2)
S(4) = Mid(a, 10, 1)
k = Mid(a, 13, 2)
rez = " "
For pz = 1 To 4
If M(pz) > 1 Then
zeci(1) = "один"
ElseIf pz = 3 Then
zeci(1) = "одна"
End If
If pz < 4 Then
zeci(2) = "два"
End If
If S(pz) > 0 Then
rez = rez & sut(S(pz)) & " "
End If
If z(pz) > 0 Then
If z(pz) < 20 Then
rez = rez & zeci(z(pz)) & " "
Else
ae = z(pz) Mod 10
ad = z(pz) - ae
rez = rez & zeci(ad) & " "
If ae > 0 Then
rez = rez & Trim(zeci(ae)) & " "
End If
End If
End If
If M(pz) > 0 Then
If M(pz) = 1 Then
rez = rez & Trim(o(pz, 2)) & " "
Else
rez = rez & Trim(o(pz, 1)) & " "
End If
End If
zeci(1) = "один"
zeci(2) = "два"
Next
If M(1) + M(2) + M(3) + M(4) = 0 Then
rez = rez & "ноль лей"
Else
If M(4) = 0 Then
rez = rez & "лей"
End If
End If
sc = Mid(rez, 2)
' If Val(k) <> 0 Then
sc = sc & " " & k & " " & "бань"
' End If
Suma_Litere = UCase(Left(sc, 1)) & Mid(sc, 2, Len(sc))
Exit_Suma_Litere:
Exit Function
Err_Suma_Litere:
'Result = ErrorHandler(Err)
Resume Exit_Suma_Litere
End Function
Sub SumLiter()
Attribute SumLiter.VB_Description = "Возвращает сумму прописью"
Attribute SumLiter.VB_ProcData.VB_Invoke_Func = "l
14"
Suma_Litere (sc)
End Sub
------------------------------------------------------------------------------
Скрипт для отображения денежных едениц, но при
небольшой доработке будет и обычные числа прописывать...

Ответ от Максим Мальков[гуру]
ну можешь руками создать такую функцию в вба

Ответ от 3 ответа[гуру]