зашифровать слово по средствам другого алфавита?

[brans]

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

Можно,если конкретно объясните задачу
,и как вы намерены это применять, и для чего.

я начинающий программист, учусь программированию по статьям в интернете, а в основном тут на форуме, потому что в университете дают очень мало информации - теперь Вы имеете представление о моём уровне работы на vba)))

задача такая:

Составьте процедуру, которая позволяет зашифровать слово из клетки А39. Зашифрованное слово помещается в клетку В39. Принцип шифрования следующий: имеется "новый" алфавит, представляющий собой некоторую строку - перестановку букв алфавита. Если некоторая буква является k-той буквой в обычном алфавите, то вместо нее должнабыть взята буква из k-той позиции "нового" алфавита.

[doober]

Справедливо для первых 7 букв латиницы,далее сами добавите

Function Engript(ssl As String) As String
Dim ZNAK()
ZNAK() = Array("Ф", "Ю", "Э", "Ё", "Ъ", "Ы", "Й")'новый алфавит
Dim Rez As String
ssl = "AB"
For n = 1 To Len(ssl)
Rez = Rez & ZNAK(Asc(Mid(ssl, n, 1)) - 65)
Next
Engript = Rez

End Function

[EducatedFool]

Попробуйте такой вариант: http://excelvba.ru/code/translit

В вашем случае это будет выглядеть так:

Function Translit(ByVal txt As String) As String
    iRussian$ = "абвгдеёжзийклмнопрстуфхцчшщъыьэюя"
    iTranslit = Array("", "a", "b", "v", "g", "d", "e", "jo", "zh", "z", "i", "jj", "k", _
                      "l", "m", "n", "o", "p", "r", "s", "t", "u", "f", "h", "c", "ch", _
                      "sh", "zch", "''", "'y", "'", "eh", "ju", "ja")
    For iCount% = 1 To 33
        txt = Replace(txt, Mid(iRussian$, iCount%, 1), iTranslit(iCount%), , , vbTextCompare)
    Next
    Translit$ = txt
End Function

Sub СложнейшийМакрос()
    ' исходный текст:  "проверка работы транслита"
    ' результат: "proverka rabot'y translita"
    [b39] = Translit([a39])
End Sub

[doober]

Спасибо тебе Игорь,самому лень было писать,пригодится мне для общения патиницей .

[SAS888]

Если у кого есть интерес, могу поделиться тем, чем я часто пользуюсь в подобных случаях (см. вложение).

[brans]

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

[brans]

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

Если у кого есть интерес, могу поделиться тем, чем я часто пользуюсь в подобных случаях (см. вложение).

SAS888, спасибо тебе огромное, я обязательно учту твой вариант в дальнейшем, если доживу до разработки курсовика с такими задачами....