Функции

[SGA]

Уважаемые программисты (люди)!!
Обратиться за помощью к вам меня побудила не разрешимая для моего сознания задача. Мне требуется преобразовать текст в числовое значение т.е. каждой букве русского алфавита присвоить значение
А=1, Б=2, В=3, ... З=9 а далее исчисление продолжется сначала т.е. И=1,
К=2, Л=3 и т.д. В итоге мне надо получить например слово "баг" = 214.
После получения числа из слова мне надо сложить цифру соответствующую каждой буквы между собой т.е. 2+1+4 (что бы в итоге если значение привести к 1 цифре: например если при сложении всех цифр соответствующих слову получается 15 мне надо сложить 1+5 чтобы получилась 1 цифра).
Так как я не знаю языков программирования я пытаюсь решить эту задачу с помощью программы ОpenOffice.org Calc.
Вопрос состоит в том какую(ие) доступные функции можно использовать что бы решить задачу.

Заранее спасибо всем кто откликнется на просьбу.

[EducatedFool]

я пытаюсь решить эту задачу с помощью программы ОpenOffice.org Calc.

А какое эта тема имеет отношение к Microsoft Office Excel?
Надо решить задачу при помощи формул?

Или макрос (пользовательская функция) для Microsoft Office Excel устроит?

PS: Макросом задача решается элементарно.

сначала т.е. И=1,
К=2, Л=3 и т.д.

А куда пропала буква Й?

[SGA]

Прошу прощения за невнимательность)), мне подойдет любой способ
но лучше формулой

[SGA]

Сообщение от SGA

Прошу прощения за невнимательность)), мне подойдет любой способ
но лучше формулой

Установил EXCEL

[EducatedFool]

Посмотрите пример в файле:

  Ячейка: B2      Формула  (стиль A1):   =КодСлова(A2)
                  Формула  (стиль R1C1): =КодСлова(RC[-1])

Код пользовательской функции:

Option Compare Text

Function КодСлова(ByVal txt As String) As Long
    буквы = "абвгдеёжзийклмнопрстуфхцчшщъыьэюя"
    цифры = "123456789123456789123456789123456"
    For i = 1 To Len(txt)
        pos = InStr(1, буквы, Mid(txt, i, 1))
        If pos > 0 Then КодСлова = КодСлова + Val(Mid(цифры, pos, 1))
    Next i
    While Len(CStr(КодСлова)) > 1
        For i = 1 To Len(CStr(КодСлова)): res = res + Val(Mid(КодСлова, i, 1)): Next i
        КодСлова = res: res = 0
    Wend
End Function

[SGA]

Благодарю!
попытюсь разобраться

[SGA]

это превосходно!

[IgorGO]

см.вложение. решение формулой.
во второй колонке результат вычислений формулой, а в 3-й - функцией, которую написал EducatedFool.
Почему результат не совпал для фразы "Уважаемые программисты (люди)!!" потому что моя формула переводит в цифры пробелы, открывающиеся и закрывающиеся скобки, восклицательные знаки, а функция EducatedFool - только русские буквы, что, видимо правильно, потому что больше соответствует изначально описанным требованиям.
И еще, чтобы увеличить совпадения между результатами вычислений двумя функциями, я в коде изменил строку
буквы = "абвгдеёжзийклмнопрстуфхцчшщъыьэюя"
на
буквы = "абвгдежзийклмнопрстуфхцчшщъыьэ юяё"
В общем, если использовать в исследуемой строке только буквы русского алфавита (кроме "ё") - то результаты расчетов должны полностью совпадать.