If word <> Then

Число прописом.

Допустимо, в деякій комірці (наприклад, E13) міститься число в числовому форматі, а вам потрібна його сума прописом.

Для цього виконайте дії:

1. Виділіть і об’єднайте діапазон комірок, в якому буде вказана сума прописом (наприклад, A14–K14).

2. Клацніть лівою кнопкою мишки в рядку формул і введіть (скопіюйте) наступний текст, потім (укажіть замість E13 вашу комірку з числом):

=ЕСЛИ((E13)<=0;"Сума прописом:___________________";"Сума прописом: "&FirstLetter(CurText(E13)))

Або таку формулу, щоб в комірці не відображались слова «Сума прописом», а словами лише саме число.

=ЕСЛИ((Е13)<=0;0;FirstLetter(CurText(Е13)))

3. Тепер створіть програму на мові VBA:

– відкрийте меню Сервис –> Макрос –> Редактор Visual Basic (або натисніть Alt + F11);

– в вікні Microsoft Visual Basic виберіть команду Insert –> Module;

– відкриється вікно Module1 (Code), введіть (скопіюйте і вставте) в цьому вікні (без змін!) наступний код:

Function Cur_txt1(cur As Currency, gender As String) As String

Dim str As String

Dim word As String

Dim digital As Integer

Dim c As Currency

c = cur

word = ""

If c < 1000 Then

digital = Int(c / 100)

Select Case digital

Case 1

word = "сто"

Case 2

word = "двістi"

Case 3

word = "триста"

Case 4

word = "чотириста"

Case 5

word = "п’ятсот"

Case 6

word = "шістсот"

Case 7

word = "сімсот"

Case 8

word = "вісімсот"

Case 9

word = "дев’ятсот"

End Select

str = word

word = ""

c = c - digital * 100

If c > 19 Then

digital = Int(c / 10)

Select Case digital

Case 2

word = "двадцять"

Case 3

word = "тридцять"

Case 4

word = "сорок"

Case 5

word = "п’ятдесят"

Case 6

word = "шістдесят"

Case 7

word = "сімдесят"

Case 8

word = "вісімдесят"

Case 9

word = "дев’яносто"

End Select

If word <> "" Then

If str <> "" Then

str = str + " " + word

Else

str = word

End If

End If

word = ""

c = c - digital * 10

End If

Select Case c

Case 1

word = "один"

Case 2

word = "два"

Case 3

word = "три"

Case 4

word = "чотири"

Case 5

word = "п’ять"

Case 6

word = "шість"

Case 7

word = "сім"

Case 8

word = "вісім"

Case 9

word = "дев’ять"

Case 10

word = "десять"

Case 11

word = "одинадцять"

Case 12

word = "дванадцять"

Case 13

word = "тринадцять"

Case 14

word = "чотирнадцять"

Case 15

word = "п’ятнадцять"

Case 16

word = "шістнадцять"

Case 17

word = "сімнадцять"

Case 18

word = "вісімнадцять"

Case 19

word = "дев’ятнадцять"

End Select

If (c <= 2) And ((gender = "w") Or (gender = "W")) Then

Select Case c

Case 1

word = "одна"

Case 2

word = "дві"

End Select

End If

If word <> "" Then

Дата добавления: 2015-11-14