Сумма прописью на Казахском языке

[baaur]

Добрый день, всем!
Уважаемые кто нибудь может подсказать или помочь с макросом сумма прописью, что бы сумму выводило на казахском языке? Есть макрос не мой нашел в инете изначально был для прописи на русском языке попробовал переделать в модуле на казахский шрифт выдает "?" вместо букв. Подскажите как можно прописать в модуле каз шрифтом если это возможно?
Тоесть вместо уш - должно быть үш
торт - төрт
сегіз - сеғіз
тогыз - тоғыз
кырык - қырық
токсан - тоқсан
жуз - жүз
мын - мың
тенге - теңге

Заранее спасибо!

[Hugo121]

Эти символы в коде прописывайте с помощью chrw().
Но отображение будет конечно зависеть от шрифта.

[baaur]

Большое спасибо за оперативный ответ!
Не могли бы подсказать где список скачать можно?

[Hugo121]

Где-то вероятно можно...
Но я обхожусь

For i = 1 To 30000
Cells(i, 1).Value = ChrW(i)
Next i

[baaur]

Большое спасибо!

[baaur]

Попробую поискать в интернете.

[Hugo121]

Что? Зачем?

[baaur]

Как использовать этот Chrw(). так как в VBA новичок. По началу показалось то что получится просто переставить но увы.

[Hugo121]

Ищите на листе эти символы (после выполнения на чистом листе кода выше), затем используете номера так:

num_propis(4) = "т" & chrw(1257) & "рт "

[Serge_Bliznykov]

baaur
попробуйте, вместо төрт
написать в коде:

 ChrW( 1090)  &  ChrW( 1257)  &  ChrW( 1088)  &  ChrW( 1090)

вместо тоғыз написать в коде:

 ChrW(1090) & ChrW(1086) & ChrW(1171) & ChrW(1099) & ChrW(1079)

вместо сегіз

ChrW(1089) & ChrW(1077) & ChrW(1171) & ChrW(1110) & ChrW(1079)

и т.д.


p.s. чтобы получить нужную строчку, я копирую ваше слово в ячейку A1
и запускаю такой макрос:

Sub GetStringSymbol()
  Dim s, rez As String
  s = Cells(1, 1).Value  ' Исходный текст должен быть в ячейке A1
  rez = ""
  For i = 1 To Len(s)
    rez = rez & " ChrW( " & CStr(AscW(Mid(s, i, 1))) & ") "
    If i < Len(s) Then rez = rez & " & "
  Next i
  
  Cells(1, 2).Value = rez ' Результат помещаем рядом с исходным текстом в A2
End Sub