Сумма прописью на кыргызском для MS Excel

Желающие могут скачать расширения (или надстройку) для MS Excel 2010 и выше где реализовано функция перевода сумму в текст. Например 34 232,34 в тексте на кыргызском будет «Отуз төрт миң эки жүз отуз эки сом 34 тыйын». Расширение оформлено в виде addins (файл с расширением *xlam).

Чтобы подключить расширения Вам нужно
1. скачать расширения.
2.Сохранить на диск вашего компьютера.
3. Открыть меню Файл — Параметры.
4. Выбрать вкладку — Надстройки

Окно параметры Excel

5. Выбрать Управление: Надстройки Excel и нажать на кнопку «Перейти…»
6. Откроется окно надстроек.

Текущие надстройки

Пока что там нет нашей надстройки. Чтобы добавить ее нажимаем кнопку «Обзор…» и указываем на файл «число_с_прописью_Кыргызча.xlam» которую мы скачали. Теперь в списке появилась расширение «Число_с_прописью_Кыргызча».

Расширение в списке

Теперь можем создать новую книгу Excel и пользоватся функцией «=ЧислоПрописьюКР(Сан)»

Сумма прописью на кыргызском.

Скачать расширение:

  число_с_прописью_Кыргызча.xlam (35,5 КиБ, 2 274 hits)

Так же желающие могут изменить или переделать код на VB

Можно также скачать с GitHub — Сумма прописью на кыргызском для Excel

' ====================================================================
' Санды кыргызчасында созго которуу функциясы
' сандар 0дон 999 триллионго чейин
' Чодоев Руслан ruslanch@list.ru, http://www.tamgasoft.kg
' версия 1.0 от 10.02.2016
' можете скачать новую версию с сайта http://www.tamgasoft.kg/
'
' Функции для вычисления суммы прописью на кыргызском языке по
' числовому значению от 0 до 999 триллион
' Чодоев Руслан ruslanch@list.ru, http://www.tamgasoft.kg
' версия 1.0 от 10.02.2016
' можете скачать новую версию с сайта http://www.tamgasoft.kg/
' ====================================================================

'====================================================================
Dim бирдик(9) As String
Dim ондук(9) As String
Dim жуздук, миндик, миллион, миллиард, триллион As String
'====================================================================

Private Function Миндиктерди_алуу(Сан As Currency) As String
Dim Сан2 As Currency

Миндиктерди_алуу = ""
Сан2 = Сан

If Сан < 1000 Then ' Минден аз болсо жон гана жуздукторду алабыз  Миндиктерди_алуу = жуздукту_алуу(Сан)  Exit Function End If If Сан >= 1000000000000# Then ' Триллиондон чон
 Сан2 = Сан - Int(Сан / 1000000000000#) * 1000000000000#
 Миндиктерди_алуу = жуздукту_алуу(Int(Сан / 1000000000000#)) + " " + триллион + " " + Миндиктерди_алуу(Сан2)
 Exit Function
End If


If Сан >= 1000000000 Then ' Миллиарддан чон
 Сан2 = Сан - Int(Сан / 1000000000) * 1000000000
 Миндиктерди_алуу = жуздукту_алуу(Int(Сан / 1000000000)) + " " + миллиард + " " + Миндиктерди_алуу(Сан2)
 Exit Function
End If



If Сан >= 1000000 Then ' Миллиондон чон
 Сан2 = Сан - Int(Сан / 1000000) * 1000000
 Миндиктерди_алуу = жуздукту_алуу(Int(Сан / 1000000)) + " " + миллион + " " + Миндиктерди_алуу(Сан2)
 Exit Function
End If


If Сан >= 1000 Then ' Минден чон
 Сан2 = Сан - Int(Сан / 1000) * 1000
 Миндиктерди_алуу = жуздукту_алуу(Int(Сан / 1000)) + " " + миндик + " " + жуздукту_алуу(Сан2)
 Exit Function
End If

Индекс = Int(Сан2 / 1000)
If Индекс = 0 Then
 Миндиктерди_алуу = жуздукту_алуу(Сан)
 Exit Function
End If

Миндиктерди_алуу = Trim(бирдик(Индекс) + " " + миндик + " " + жуздукту_алуу(Сан))
End Function

'====================================================================

Private Function жуздукту_алуу(Сан As Currency) As String
Dim Сан2 As Currency
жуздукту_алуу = ""
Сан2 = Сан

If Сан < 100 Then  жуздукту_алуу = ондукту_алуу(Сан)  Exit Function End If If Сан >= 1000 Then
 Сан2 = Сан - Int(Сан / 1000) * 1000
End If

Индекс = Int(Сан2 / 100)

If Индекс = 0 Then
 жуздукту_алуу = ондукту_алуу(Сан)
 Exit Function
End If

жуздукту_алуу = Trim(бирдик(Индекс) + " " + жуздук + " " + ондукту_алуу(Сан))
End Function

'====================================================================

Private Function ондукту_алуу(Сан As Currency) As String
Dim Сан2 As Currency
ондукту_алуу = ""

Сан2 = Сан
If Сан < 10 Then  ондукту_алуу = бирдикти_алуу(Сан)  Exit Function End If If Сан >= 100 Then
 Сан2 = Сан - Int(Сан / 100) * 100
End If


Индекс = Int(Сан2 / 10)
If Индекс = 0 Then
 ондукту_алуу = бирдикти_алуу(Сан)
 Exit Function
End If

ондукту_алуу = Trim(ондук(Индекс) + " " + бирдикти_алуу(Сан))
End Function

'====================================================================

Private Function бирдикти_алуу(Сан As Currency) As String
Dim Сан2 As Currency
бирдикти_алуу = ""
Сан2 = Сан
If Сан < 1 Then Exit Function If Сан >= 10 Then
 Сан2 = Сан - Int(Сан / 10) * 10
End If
If Сан2 = 0 Then
 Exit Function
End If


Индекс = Int(Сан2 / 1)
If Индекс = 0 Then
 бирдикти_алуу = ""
 Exit Function
End If

бирдикти_алуу = бирдик(Индекс)

End Function

'====================================================================

Function ЧислоПрописьюКР(Сан As Currency, Optional Валюта As String = "сом", Optional Тыйын As String = "тыйын")
' Керектуу переменныйлар

Dim ch As Currency
Dim Результат As String
Dim тый As String

' Массивдерди толтурабыз
бирдик(1) = "бир"
бирдик(2) = "эки"
бирдик(3) = ChrW(1199) + "ч"
бирдик(4) = "т" + ChrW(1257) + "рт"
бирдик(5) = "беш"
бирдик(6) = "алты"
бирдик(7) = "жети"
бирдик(8) = "сегиз"
бирдик(9) = "тогуз"
ондук(1) = "он"
ондук(2) = "жыйырма"
ондук(3) = "отуз"
ондук(4) = "кырк"
ондук(5) = "ээл" + ChrW(1199)
ондук(6) = "алтымыш"
ондук(7) = "жетимиш"
ондук(8) = "сексен"
ондук(9) = "токсон"
жуздук = "ж" + ChrW(1199) + "з"
миндик = "ми" + ChrW(1187)
миллион = "миллион"
миллиард = "миллиард"
триллион = "триллион"

Результат = Trim(Миндиктерди_алуу(Сан)) ' негизги функцияны чыкырабыз
Результат = UCase(Left(Результат, 1)) + Right(Результат, Len(Результат) - 1) ' биринчи тамгасын чон кылабыз


тый = Format(Round((Сан - Int(Сан)) * 100), "00") ' тыйындарды кошобуз

If Тыйын = "" Then
 ЧислоПрописьюКР = Trim(Результат + " " + Валюта) ' жыйынтык (тыйындары жок)
 Else
 ЧислоПрописьюКР = Trim(Результат + " " + Валюта + " " + тый + " " + Тыйын) ' жыйынтык
End If

End Function

'====================================================================

• • Русский
  • Кыргызча
  • English

• Наши онлайн сервисы

  

  ---

  

  ---

  

• Свежие записи

  • Вышла новая версия InDesign 2025
  • Вышли новые версии плагина для InDesign 2023 и InDesign 2024
  • Вы можете проверить правильность написания слово в онлайн орфографическом словаре Карасаева.
  • Вышли модули проверки орфографии Кыргызского языка для MS Office 2016.
  • Проверка орфографии кыргызского языка для Office 2016 и выше.
  • Готовы плагины переноса Кыргызского и Казахского языка для InDesign CC 2018 (13.1) и CC 2019 (14.0)
  • Интервью по плагинам переноса для тематического сайта Designer.kz
  • Вышла версия плагина переноса и орфографии для InDesign CC 2017 и CC 2018
  • Морфологический анализ кыргызских слов
  • Число с прописью Кыргызча для Excel
  

• Мы на Facebooke

• Загрузки

  • tamgakit-orfo-2013.exe (7,4 МиБ, 133 952 hits)
  • KyrSpell 2.3 (x86)- Проверка орфографии кыргызского языка для MS Office 97-2013 (32 битная) (2,5 МиБ, 49 108 hits)
  • KyrSpell 2.3 (x64) - Проверка орфографии кыргызского языка для MS Office 2007-2013 - 64 битная (2,5 МиБ, 30 060 hits)
  • Русско-Кыргызский терминологический словарь. Дата обновления 29.06.2006 (725,7 КиБ, 25 530 hits)
  • Кыргыз_тилинин_эрежелери.zip (22,8 КиБ, 18 971 hits)
  • Инструкция установки проверки орфографии кыргызского языка для OpenOffice для Linux (158,0 КиБ, 14 433 hits)
  • Инструкция установки проверки орфографии кыргызского языка для OpenOffice для Win32 (158,8 КиБ, 13 356 hits)
  • Инструкция установки плагина проверки орфографии кыргызского языка для InDesign (80,2 КиБ, 12 894 hits)
  • Plug-in проверки орфографии кыргызского языка для InDesign CS5 (1,2 МиБ, 11 437 hits)
  • Plug-in проверки орфографии кыргызского языка для InDesign CS4 (1,2 МиБ, 10 171 hits)
  • TamgaKIT_1.5_Ooo_2_3.zip - Модули проверки орфографии кыргызского языка для OpenOffice 2.0 и выше (win32+linux) (2,4 МиБ, 10 061 hits)
  • Plug-in проверки орфографии кыргызского языка для InDesign CS3 (1,2 МиБ, 10 017 hits)

• Последние комментарии

  • ыфыфы к записи Число с прописью Кыргызча для Excel
  • ыфыфы к записи Число с прописью Кыргызча для Excel
  • ыфыфы к записи Число с прописью Кыргызча для Excel
  • Руслан Чодоев к записи Плагин (Plug-in) проверки орфографии и расстановки переноса киргизского языка для Adobe® InDesign® CS3, CS4, CS5 и CS6.
  • Руслан Чодоев к записи Плагин проверки орфографии и переносы для InDesign CC 2014 и InDesign CC 2015
  • Руслан к записи Кыргыз тилинин жазуу эрежелери (орфографиялык эрежеси)
  • Латифа к записи Кыргыз тилинин жазуу эрежелери (орфографиялык эрежеси)
  • Руслан к записи Кыргыз тилинин жазуу эрежелери (орфографиялык эрежеси)

• Контакты

  Руслан Чодоев
  Кыргызская Республика,
  г.Бишкек
  тел.: 0(557) 75-11-29 (WhatsApp/Telegram)
  e-mail: ruslanch@list.ru

• Метки

  Excel InDesign InDesign 2018 InDesign CC 2017 InDesign CC 2018 InDesign CS5 InDesign CS6 KyrSpell MS Office MS Office 2010 MS Office 2013 Орфография Переносы Плагин Расширение Тамга-КИТ ТамгаСофт алгоритм переноса казахский казахский язык киргизский язык клавиатурная расскладка котормо котормосу кыргызская клавиатура кыргыз тили кыргыз тилинин орфографиясы кыргызча сөздүк манас онлайн словарь перенос проверка орфографии скачать словарь сөз сөздүк сөздөр ташымалдоо ташымалдоо эрежеси тезаурус узбекский узбекский язык эл-сөздүк энциклопедия эпос