Цифры прописью работает! Исправил все замечания!
Однако скопированный комментарий сразу в Excel не захотел работать! Выдал кучу ошибок по синтаксису!
Сохранил текст в WORDe! Через день снова решил испробовать. Скопировал из WORDa текст и поместил в модуль Excela. Все сразу заработало! При прямом копировании очень много получилось нераспознанных строк и символов, а из WORDa - все нормально!!

Ребята - я в этом ни фига не понимаю, я не программист. Просто тупо списала как сказано в эксель - и у меня все получилось, поэтому решила поделиться, так как очень удобная штука оказалась.

Спрашивайте у ваших сисадминов - они-то всяко больше в этом разбираются.

При выполнении макроса возникает сообщение: SyntaxError и подсвечивает строку: SourceDigTail = (SourceDigits – Int (SourceDigits)) * 100

Здравствуйте,

когда хочу сохранить модуль, в списке ниже нет формата надстроек....как быть?

Константин, на здоровье )
Только она не моя - автор некий П.В.Морозов. Когда-то я это взяла из какого-то забытого журнала...

ПРОПИСЬЮ(1000000) возвращает "Один миллион ТЫСЯЧ рублей 00 коп."

На скорую руку исправил фрагмент:

Case "0"
If STRNG_len > 3 Then
Result = "тысяч " & Result
End If

придав ему вид:


Case "0"
If STRNG_len > 3 And Left(Right(STRNG, 6), 3) <> "000" Then
Result = "тысяч " & Result
End If

Вроде лишнее слово "тысяч" перестало возникать.

Еще хорошо бы в самое начало функции добавить строку:

Application.Volatile

зачем - почитайте в хелпе Excel :)

А вообще - большое спасибо! Пригодилась Ваша разработочка.

С уважением,
Константин, С-Петербург

Спасибо за программу отлично работает

Алишер Ташкент.

Opton, никак, не тянет. )) Переросла это удовольствие.

Как сейчас с курением???

А! Точно, пропущен. Спасибо, Александр.
Но принцип же понятен ))

Работает отлично. Я белорусизировал. Но был пропущен разряд "восемьсот". Не шибко разбираясь в бейсике у себя ошибку исправил .
С уважением
Александр
slabada@tut.by

ага, бред

бред это все

Function ПРОПИСЬЮ (SourceDigits As Currency) As String
Dim STRNG As String, CHAR, Result As String, Prom As String
Dim I, STRNG_len As Long
Dim SourceDigTail As Currency

SourceDigTail = (SourceDigits – Int (SourceDigits)) * 100
SourceDigits = Int (SourceDigits)

STRNG = SourceDigits
STRNG_len = Len (STRNG)
For i = 1 To 9 - STRNG_len Step 1
STRNG = “0” & STRNG
Next i

For i = 9 To 9 - STRNG_len + 1 Step -1
CHAR = Mid (STRNG, i, 1)
If CHAR = “” Then GoTo end_c

If i = 2 Or i = 5 Or i = 8 Then
IF CHAR = “1” Then
CHAR = Mid (STRNG, i, 2)
Select Case CHAR
Case “10”
Prom = “десять ”
Case “11”
Prom = “одиннадцать ”
Case “12”
Prom = “двенадцать ”
Case “13”
Prom = “тринадцать ”
Case “14”
Prom = “четырнадцать ”
Case “15”
Prom = “пятнадцать ”
Case “16”
Prom = “шестнадцать ”
Case “17”
Prom = “семнадцать ”
Case “18”
Prom = “восемнадцать ”
Case “19”
Prom = “девятнадцать ”
End Select
Else ‘ If char Not = 1
Select Case CHAR
Case “0”
Prom = “ ”
Case “2”
Prom = “двадцать ”
Case “3”
Prom = “тридцать ”
Case “4”
Prom = “сорок ”
Case “5”
Prom = “пятьдесят ”
Case “6”
Prom = “шестьдесят ”
Case “7”
Prom = “семьдесят ”
Case “8”
Prom = “восемьдесят ”
Case “9”
Prom = “девяносто ”
End Select
End If
End If
If i = 1 Or i = 4 Or i = 7 Then
Select Case CHAR
Case “0”
Prom = “”
Case “1”
Prom = “сто ”
Case “2”
Prom = “двести ”
Case “3”
Prom = “триста ”
Case “4”
Prom = “четыреста ”
Case “5”
Prom = “пятьсот ”
Case “6”
Prom = “шестьсот ”
Case “7”
Prom = “семьсот ”
Case “9”
Prom = “девятьсот ”
End Select
End If
If i = 3 Or i = 6 Or i = 9 Then

If i = 9 And Mid (STRNG, i - 1, 1) = “1” Then
Result = “рублей ” & Result
GoTo end_c
End If



If i = 3 And Mid (STRNG, i - 1, 1) = “1” Then
Result = “миллионов ” & Result
GoTo end_c
End If



If i = 6 And Mid (STRNG, i - 1, 1) = “1” Then
Result = “тысяч ” & Result
GoTo end_c
End If

Select Case CHAR
Case “0”
Prom = “”
Case “1”
If i = 6 Then
Prom = “одна ”
Else
Prom = “один ”

End If
Case “2”

If i = 6 Then
Prom = “две ”
Else
Prom = “два ”
End If
Case “3”
Prom = “три ”

Case “4”
Prom = “четыре ”
Case “5”
Prom = “пять ”
Case “6”
Prom = “шесть ”
Case “7”
Prom = “семь ”
Case “8”
Prom = “восемь ”
Case “9”
Prom = “девять ”
End Select
End If
Select Case i

Case 3
Select Case CHAR
Case “1”
Result = “миллион ” & Result
Case “2” , “3”, “4”
Result = “миллиона ” & Result
Case “5”, “6”, “7”, “8” , “9”
Result = “миллионов ” & Result
Case “0”
If STRNG_len > 6 Then
Result = “миллионов ” & Result
End If
End Select


Case 6
Select Case CHAR
Case “1”
Result = “тысяча ” & Result
Case “2”, “3”, “4”
Result = “тысячи ” & Result
Case “5”, “6”, “7”, “8” , “9”
Result = “тысяч ” & Result
Case “0”
If STRNG_len > 3 Then
Result = “тысяч ” & Result
End If
End Select

Case 9
Select Case CHAR
Case “1”
Result = “рубль ” & Result
Case “2” , “3”, “4”
Result = “рубля ” & Result
Case “0”, “5”, “6”, “7” , “8” , “9”
Result = “рублей ” & Result
End Select
End Select

Result = Prom & Result

end_c:
Next i

Result = Format(Mid(Result, 1, 1), “>” ) & Mid (Result, 2)

ПРОПИСЬЮ = Result & Format (SourceDigTail, “00”) & “ коп.”

End Function

Луку_мешок,
на здоровье :)

Однажды я проснулся утром и не курил весь день...
потом второй
Потом обнаружил отвращение к табаку...

к сожалению стрессы опять победили, но теперь курю меньше насколько это возможно

а твой опыт бросания мне уже считай пригодился)

Opton, спасиб ))

Роскошный текст! Молодчина!! Это я говорю,как пассивный курильщик с огромным стажем:))).

Мир я сравнил бы с шахматной доской:
То день,то ночь...А пешки? - мы с тобой.
Подвигают,притиснут - и побили.
И в тёмный ящик сунут на покой.
О.Хайам

Однажды монах задумался, наблюдая своё отражение в реке: «Правильно ли, что оно неподвижно?» Он побежал к озеру и заглянул в него. Отражение в озере было неподвижно.

«Странно, — подумал он, — от отражения в озере я ожидал, что оно будет неподвижно. Но река течёт и всё уносит, она должна унести и моё отражение. Пойду и посмотрю ещё раз на реку».

Отражение в реке было неподвижно. «Как это печально, — подумал монах, — получать результат, которого не ожидаешь».

Он пошёл к знающему с вопросом, почему вода вне зависимости от того, в реке она или в озере, одинаково отражает?

— А какой результат ты хотел увидеть в реке? — поинтересовался знающий.

— Я хотел, чтобы моё отражение двигалось.

— Как двигалось, по течению или против течения?

— В соответствии с моими мыслями и опытом — по течению.

— Насколько быстро?

— С нормальной скоростью, чтобы я его не потерял и мог видеть, что оно двигается.

Знающий немного подумал и подытожил:

— Никогда не смотрись в гладь озера, возле реки никогда не останавливайся, а беги вниз по течению, наблюдая за своим отражением, и тогда тебя ничто не сможет разочаровать. Если останавливается одно, то двигаться должно другое. Таков первичный закон.

пожимаю руку

Бросают все, вопрос в мотивации. Мой дед бросил после 65 лет курения, дядя - после операции на легких, знакомый кодировался. Существует масса методик, вплоть до полного очищения организма, как при алкогольном отравлении. Повторюсь, было бы желание.
Если не хочешь - думай, почему организм так за это цепляется. В чем выгода?

В конце концов, полезно даже просто сократить количество сигарет в жизни.

завидую!)

ИБРАГИМ,
попробуй прочитать книжку Карра
http://lib.aldebaran.ru/author/karr_allen/karr_allen_legkii_sposob_brosit_kurit/

Я НЕ МОГУ БРОСИТЬ((