Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2010 - [решено] Транслитерация + вывод части содержимого ячейки

Ответить
Настройки темы
2010 - [решено] Транслитерация + вывод части содержимого ячейки
it3 it3 вне форума

Пользователь


Сообщения: 94
Благодарности: 0

Профиль | Отправить PM | Цитировать

Изменения
Автор: it3
Дата: 29-08-2019
Описание: Добавление кода
Подскажите пожалуйста, каким образом реализовать следующее:

Есть ячейка с ФИО (Задаётся вручную): Иванов Иван Иванович
Необходимо чтобы в следующей ячейке был транслитерация (Выводится автоматически): 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
Благодарности: 8086

Профиль | Отправить PM | Цитировать

it3, а оно Вам надо — автоматически? Может быть проще — три обычных функции Рабочего листа, обычный их ввод вида =FullFIO(A2), =DotFIO(A2), =DotFullFI(A2), не? Или Вам обязательно, кровь из носу, надо автоматически?!

Отправлено: 09:04, 29-08-2019 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.

it3 it3 вне форума Автор темы

Пользователь


Сообщения: 94
Благодарности: 0

Профиль | Отправить PM | Цитировать

Цитата Iska:
it3, а оно Вам надо — автоматически? Может быть проще — три обычных функции Рабочего листа, обычный их ввод вида =FullFIO(A2), =DotFIO(A2), =DotFullFI(A2), не? Или Вам обязательно, кровь из носу, надо автоматически?! »
Да, кровь из носу. :-)
Сделал следующим образом:
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)))))))
Ivan.Ivanov
Код: Выделить весь код
=ЕСЛИ(A2=0;"";СЦЕПИТЬ(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(B2;" ";ПОВТОР(" ";ДЛСТР(B2)));ДЛСТР(B2)*(2-1)+1;ДЛСТР(B2)));".";СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(B2;" ";ПОВТОР(" ";ДЛСТР(B2)));ДЛСТР(B2)*(1-1)+1;ДЛСТР(B2)))))

Отправлено: 09:44, 29-08-2019 | #3


Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать

it3, ну, и где тут Ваше «автоматически»?

Отправлено: 13:54, 29-08-2019 | #4



Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2010 - [решено] Транслитерация + вывод части содержимого ячейки

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
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


« Предыдущая тема | Следующая тема »


 
Переход