|
Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2010 - [решено] Транслитерация + вывод части содержимого ячейки |
|
2010 - [решено] Транслитерация + вывод части содержимого ячейки
|
Пользователь Сообщения: 94 |
Профиль | Отправить PM | Цитировать
Подскажите пожалуйста, каким образом реализовать следующее:
Есть ячейка с ФИО (Задаётся вручную): Иванов Иван Иванович Необходимо чтобы в следующей ячейке был транслитерация (Выводится автоматически): Ivanov Ivan Ivanovich В следующей ячейке (Выводится автоматически): ivanov.ii В следующей ячейке (Выводится автоматически): Ivan.Ivanov В принципе с транслитерацией нет проблем. Использую такой модуль: Function Translit(Txt As String) As String Dim Rus As Variant Rus = Array("à", "á", "â", "ã", "ä", "å", "¸", "æ", "ç", "è", "é", "ê", _ "ë", "ì", "í", "î", "ï", "ð", "ñ", "ò", "ó", "ô", "õ", "ö", "÷", "ø", _ "ù", "ú", "û", "ü", "ý", "þ", "ÿ", "À", "Á", "Â", "Ã", "Ä", "Å", _ "¨", "Æ", "Ç", "È", "É", "Ê", "Ë", "Ì", "Í", "Î", "Ï", "Ð", _ "Ñ", "Ò", "Ó", "Ô", "Õ", "Ö", "×", "Ø", "Ù", "Ú", "Û", "Ü", "Ý", "Þ", "ß") Dim Eng As Variant Eng = Array("a", "b", "v", "g", "d", "e", "e", "zh", "z", "i", "i", _ "k", "l", "m", "n", "o", "p", "r", "s", "t", "u", "f", "kh", "ts", "ch", _ "sh", "sh", "", "y", "", "e", "iu", "ia", "A", "B", "V", "G", "D", _ "E", "E", "ZH", "Z", "I", "I", "K", "L", "M", "N", "O", "P", "R", _ "S", "T", "U", "F", "KH", "TS", "CH", "SH", "SH", "", "Y", "", "E", "IU", "IA") For I = 1 To Len(Txt) ñ = Mid(Txt, I, 1) flag = 0 For J = 0 To 65 If Rus(J) = ñ Then outchr = Eng(J) flag = 1 Exit For End If Next J If flag Then outstr = outstr & outchr Else outstr = outstr & ñ Next I Translit = outstr End Function |
|
Отправлено: 08:15, 29-08-2019 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать it3, а оно Вам надо — автоматически? Может быть проще — три обычных функции Рабочего листа, обычный их ввод вида =FullFIO(A2), =DotFIO(A2), =DotFullFI(A2), не? Или Вам обязательно, кровь из носу, надо автоматически?!
|
Отправлено: 09:04, 29-08-2019 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Пользователь Сообщения: 94
|
Профиль | Отправить PM | Цитировать Цитата Iska:
Сделал следующим образом: ivanov.ii =ЕСЛИ(A2=0;"";СЦЕПИТЬ(СТРОЧН(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(B2;" ";ПОВТОР(" ";ДЛСТР(B2)));ДЛСТР(B2)*(1-1)+1;ДЛСТР(B2))));".";СТРОЧН(ЛЕВСИМВ(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(B2;" ";ПОВТОР(" ";ДЛСТР(B2)));ДЛСТР(B2)*(2-1)+1;ДЛСТР(B2)))));СТРОЧН(ЛЕВСИМВ(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(B2;" ";ПОВТОР(" ";ДЛСТР(B2)));ДЛСТР(B2)*(3-1)+1;ДЛСТР(B2))))))) |
|
Отправлено: 09:44, 29-08-2019 | #3 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать it3, ну, и где тут Ваше «автоматически»?
|
Отправлено: 13:54, 29-08-2019 | #4 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
2010 - [решено] Поиск активной ячейки в другом файле и открытие её содержимого | blackeangel | Microsoft Office (Word, Excel, Outlook и т.д.) | 3 | 25-12-2015 15:29 | |
CMD/BAT - [решено] Вывод части бинарного файла | Anonymоus | Скриптовые языки администрирования Windows | 8 | 28-11-2015 05:34 | |
2013 - Как сделать автоматическую вставку в ячейки содержимого буфера обмена? | spiritmen | Microsoft Office (Word, Excel, Outlook и т.д.) | 3 | 26-01-2015 21:10 | |
CMD/BAT - [решено] Вывод содержимого файлы в командную строку. | KeNt606 | Скриптовые языки администрирования Windows | 9 | 17-04-2012 06:10 | |
Assm - assembler вывод содержимого регистра на экран | Guest | Программирование и базы данных | 1 | 16-07-2004 16:32 |
|