End Select

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

Допустимо, в деякій комірці (наприклад, 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

Дата добавления: 2015-07-17