Есть не большие проблемки в работе, на пример:
1) "Shatskiy" пишется как "ШСхатский", можно было бы вручную до корректировать, а не получается, всё равно в рабочей ячейке возвращается то как задаёт макрос.
2) Мягкий знак если использовать апостроф ' почему то увеличивается в размере?
3) Да и возможность подкорректировать вручную думаю всегда пригодится.
Пожалуйста, если не трудно, помогите закончить
Заранее благодарен!
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim b9 As String
russB9 = ""
b9 = Range("B9").Value
dlina = Len(b9)
'Сначала обрабатываем самые "длинные" буквы:
i = 1
Do While i <= dlina
r = ""
s = LCase$(Mid$(b9, i, 2 ))
Select Case True
Case s = "ch": r = "ч"
Case s = "sh": r = "ш"
Case s = "zg": r = "ж"
' и так далее
End Select
'Проверю, малоли буква большая была:
s = Mid$(b9, i, 2 )
If UCase$(Left$(s, 1 )) = Left$(s, 1 ) Then r = UCase$(r)
russB9 = russB9 + r
i = i + 1
Loop
i = 1
Do While i <= dlina
r = ""
s = LCase$(Mid$(b9, i, 1 ))
Select Case True
Case s = "a": r = "а"
Case s = "b": r = "б"
Case s = "c": r = "к"
Case s = "d": r = "д"
Case s = "e": r = "е"
Case s = "f": r = "ф"
Case s = "g": r = "г"
Case s = "h": r = "х"
Case s = "i": r = "и"
Case s = "j": r = "й"
Case s = "k": r = "к"
Case s = "l": r = "л"
Case s = "m": r = "м"
Case s = "n": r = "н"
Case s = "o": r = "о"
Case s = "p": r = "п"
Case s = "q": r = "к"
Case s = "r": r = "р"
Case s = "s": r = "с"
Case s = "t": r = "т"
Case s = "u": r = "у"
Case s = "v": r = "в"
Case s = "w": r = "в"
Case s = "x": r = "д"
Case s = "y": r = "й"
Case s = "'": r = "д"
Case s = " ": r = " "
End Select
'Проверю, малоли буква большая была:
s = Mid$(b9, i, 1 )
If UCase$(Left$(s, 1 )) = Left$(s, 1 ) Then r = UCase$(r)
russB9 = russB9 + r
i = i + 1
Loop
Range("d9").Value = russB9
End Sub
