Работа со строкой

[TI_ProJecT]

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

2) Составить процедуру, которая первую букву фамилии, имени и отчества принудительно делает прописной.

3) Создать процедуру, которая в текстовой строке, введенной в ячейку А13, выдаст сообщение при обнаружении русской буквы.

С вашей помощью я смог сделать около 25 заданий. Эти просто физически не успеваю. Если задание 3) я примерно понимаю ( проверить ячейки на совпадение с русским алфавитом), то о чем идет речь в 1) вообще не понимаю. Во втором задании как понимаю, 1 букву, после первого и второго пробела делать большими.
Заранее большое спасибо.

[Camaro Chevelle]

в первом просто задать как-нибудь соответствия
во втором есть функция UCase или Format возможно тоже подойдёт
обнаружить русскую букву надо при помощи asc т. е. пройтись по всем буквам, или даже не по всем а пока не закончатся или пока не обнаружится русская и проверить принадлежность asc("текущая_буква") промежутку от asc("a") до asc("я") и с заглавными ещё, либо всю строку сперва перевести в один регистр например нижний (LCase)

[Abstraction]

1. Процедура должна иметь доступ к паре строк. Первая - алфавит ("абвгдеёжзийк...эюя"); вторая - переставленный алфавит, тоже все 33 буквы по разу каждая, но в другом порядке. Например, т.н. атбаш ("яюэ...дгвба") или шифр Цезаря ("гдеёжзи...эюяабв").
Процедура поштучно перебирает символы слова. Для каждого символа, она ищет его в первой строке, найдя, запоминает номер k. Затем в выходное слово дописывается символ, взятый из второго алфавита по найденному индексу, и так пока не кончится слово.
К примеру, если взять атбаш, слово "забег" превратится в "чяюъь".

[Camaro Chevelle]

есть ещё функция replace$, ищет и заменяет найденное

[TI_ProJecT]

Сообщение от Camaro Chevelle

есть ещё функция replace$, ищет и заменяет найденное

Я попробую сейчас. Просто не успеваю сделать.

[Camaro Chevelle]

вот тут сделал что-то на скорую руку, там только латинские буквы и алфавит надо задавать заглавными

Option Explicit
Sub Coder()
  Const alph = "QWERTYUIOPASDFGHJKLZXCVBNM"
  Dim s As String, i As Integer
  s = Cells(1, 5)
  For i = Asc("a") To Asc("z")
    s = Replace$(s, Chr$(i), Mid$(alph, i - Asc("a") + 1, 1))
  Next
  Cells(2, 5) = LCase(s)
End Sub

[Camaro Chevelle]

по поводу русских букв если я правильно понял можно сделать так

Option Explicit
Sub Check()
  Dim c As Integer, i As Integer, s As String
  s = LCase(Cells(1, 1))
  For i = 1 To Len(s)
    c = Asc(Mid$(s, i, 1))
    If c >= Asc("а") And c <= Asc("я") Then
      MsgBox "Есть русские буквы!"
      Exit For
    End If
  Next
End Sub

[TI_ProJecT]

Спасибо большое, исправил под свои нужды вроде работает.
Осталась вторая задача. Получается нужно сделать поиск первой буквы, первой буквы после пробела и заменить на большие?

[Camaro Chevelle]

юзай функцию format$ думаю ей можно воспользоваться. сам в ней не очень секу. если не выйдет то с ucase и mid поэкспериментируй.

Кстати, mid позволяет ведь не только возвращать подстроку, с её помощью можно заменять подстроку строки другой подстрокой. Допустим есть исходная строка s="abcdefgh" нужно получить "abcxxfgh", для этого пишут такое:

mid$(s, 4, 2)="xx"

В твоей проге надо сделать такое

dim i as integer
mid$(s, 1, 1)=ucase(mid$(s, 1, 1)) 'эта штука делает 1-ю букву большой
i=instr(1, s, " ")+1               'находим позицию первой буквы имени
mid$(s, i, 1)=ucase(mid$(s, i, 1)) 'делаем имя с большой буквы
i=instrrev(s, " ")+1
mid$(s, i, 1)=ucase(mid$(s, i, 1)) 'угадай что делает эта команда

вот как-то так может