Версия для печати темы

Нажмите сюда для просмотра этой темы в оригинальном формате

WinCity.Ru _ Microsoft/Office Excel _ Транслитерация

Автор: lord199 Понедельник, 27 Февраля 2006, 14:18

Господа, кто знает где взять макрос или что-нить ещё (самому там нарисовать его) для транслитерации текста? т.е. Вася - Vasia...

Автор: Квазимодо Понедельник, 27 Февраля 2006, 15:34

Макрос для Word можно взять http://www.microsoft.ru/offext/documents/office/details.aspx?id=160&cat=77, а потом переписать его для работы в Excel.

Автор: pashulka Вторник, 28 Февраля 2006, 23:29

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

Код

iRussian = "абвгдеёжзийклмнопрстуфхцчшщъыьэюя"
iTranslit = Array("", "a", "b", "v", "g", "d", _
e, "e", "zh", "z", "i", "ji", "k", "l", "m", _
n, "o", "p", "r", "s", "t", "u", "f", "h", "c", _
ch, "sh", "zch", "'", "'i", "'", "je", "ju", "ja")

For iCount = 1 To 33
Application.ActiveSheet.UsedRange.Replace _
What:=Mid(iRussian, iCount, 1), Replacement:=iTranslit(iCount)
Next

Автор: Eholov Понедельник, 31 Октября 2011, 20:11

По этой ссылке http://www.planetaexcel.ru/plex_features.php#11 Набор надстроек называется PLEX. Ставится и на 2007 и на 2003. Транслитерирует текст. можно преобразовать в маленькие буквы, можно удалять пробелы, можно числа цифрами писать. И еще много всяких функций.