Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » kauk.yurii
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Перестала работать функция  Translit
 
#
31.03.2018 12:14:15
Не понял как мне исправить мою проблему
 
Перейти    
Перестала работать функция  Translit
 
#
31.03.2018 11:54:22
Цитата
sokol92 написал:
В ячейке A1 все хорошо (тот же текст)?
не совсем
 
Перейти    
Перестала работать функция  Translit
 
#
31.03.2018 10:37:29
все равно без ефекта, может кто то сможет помочь через teamviewer?
 
Перейти    
Перестала работать функция  Translit
 
#
31.03.2018 10:29:03
может проблема как  раз в настройках ексель, так как проблема появилась при переносе файла на другой ПК, версия офиса та же
 
Перейти    
Перестала работать функция  Translit
 
#
31.03.2018 10:25:43
ок, галочку снял, ефект тот же:(
 
Перейти    
Перестала работать функция  Translit
 
#
31.03.2018 10:17:10
не вижу пунктов с MISSING
Изменено: kauk.yurii - 31.03.2018 10:19:08
 
Перейти    
Перестала работать функция  Translit
 
#
31.03.2018 10:12:08
Вот пример и код
Код
Function Translit(Txt As String) As String

   Application.Volatile
 
    Dim Rus As Variant
    Rus = Array("а", "б", "в", "г", "ґ", "д", "е", "є", "ж", "з", "и", "і", _
    "ї", "й", "к", "л", "м", "н", "о", "п", "р", "с", "т", "у", "ф", "х", _
    "ц", "ч", "ш", "щ", "ь", "ю", "я", "А", "Б", "В", "Г", "Ґ", "Д", "Е", _
    "Є", "Ж", "З", "И", "І", "Ї", "Й", "К", "Л", "М", "Н", "О", _
    "П", "Р", "С", "Т", "У", "Ф", "Х", "Ц", "Ч", "Ш", "Щ", "Ь", "Ю", "Я", "'", "-", " ")
 
    Dim Eng As Variant
    Eng = Array("A", "B", "V", "H", "G", "D", "E", "IE", "ZH", "Z", "Y", "I", "I", "I", _
    "K", "L", "M", "N", "O", "P", "R", "S", "T", "U", "F", "KH", "TS", "CH", _
    "SH", "SHCH", "", "IU", "IA", "A", "B", "V", "H", "G", "D", _
    "E", "YE", "ZH", "Z", "Y", "I", "I", "I", "K", "L", "M", "N", "O", "P", "R", _
    "S", "T", "U", "F", "KH", "TS", "CH", "SH", "SHCH", "", "YU", "YA", "", "-", " ")
     
    For I = 1 To Len(Txt)
        c = Mid(Txt, I, 1)
     
        flag = 0
        For J = 0 To 68
            If Rus(J) = c Then
                outchr = Eng(J)
                flag = 1
                Exit For
            End If
        Next J
        If flag Then outstr = outstr & outchr Else outstr = outstr & c
    Next I
     
    Translit = outstr
    
       
End Function
Изменено: kauk.yurii - 31.03.2018 10:12:49
 
Перейти    
Перестала работать функция  Translit
 
#
30.03.2018 23:48:47
перестала работать функция  Translit
или ничего не отображает либо же переведенный текст равен исходному
Код
Function Translit(Txt As String) As String
   Application.Volatile
 
    Dim Rus As Variant
    Rus = Array("ŕ", "á", "â", "ă", "´", "ä", "ĺ", "ş", "ć", "ç", "č", "ł", _
    "ż", "é", "ę", "ë", "ě", "í", "î", "ď", "đ", "ń", "ň", "ó", "ô", "ő", _
    "ö", "÷", "ř", "ů", "ü", "ţ", "˙", "Ŕ", "Á", "Â", "Ă", "Ą", "Ä", "Ĺ", _
    "Ş", "Ć", "Ç", "Č", "˛", "Ż", "É", "Ę", "Ë", "Ě", "Í", "Î", _
    "Ď", "Đ", "Ń", "Ň", "Ó", "Ô", "Ő", "Ö", "×", "Ř", "Ů", "Ü", "Ţ", "ß", "'", "-", " ")
 
    Dim Eng As Variant
    Eng = Array("A", "B", "V", "H", "G", "D", "E", "IE", "ZH", "Z", "Y", "I", "I", "I", _
    "K", "L", "M", "N", "O", "P", "R", "S", "T", "U", "F", "KH", "TS", "CH", _
    "SH", "SHCH", "", "IU", "IA", "A", "B", "V", "H", "G", "D", _
    "E", "YE", "ZH", "Z", "Y", "I", "I", "I", "K", "L", "M", "N", "O", "P", "R", _
    "S", "T", "U", "F", "KH", "TS", "CH", "SH", "SHCH", "", "YU", "YA", "", "-", " ")
     
    For I = 1 To Len(Txt)
        c = Mid(Txt, I, 1)
     
        flag = 0
        For J = 0 To 68
            If Rus(J) = c Then
                outchr = Eng(J)
                flag = 1
                Exit For
            End If
        Next J
        If flag Then outstr = outstr & outchr Else outstr = outstr & c
    Next I
     
    Translit = outstr  
End Function

п.с.  иероглифы появились при копировании кода
 
Перейти    
Автозаполнение значений ячеек по первых введеных символах
 
#
14.12.2016 22:27:23
Кнопка цитирования не для ответа [МОДЕРАТОР]

вариант хороший, но как перенести в свой ексель(не вижу ни формул, ни макросов, ни ...)?
 
Перейти    
Автозаполнение значений ячеек по первых введеных символах
 
#
14.12.2016 22:00:30
ни у кого нет вариантов?
 
Перейти    
Автозаполнение значений ячеек по первых введеных символах
 
#
14.12.2016 21:46:27
дочитал, но что делать, если нужно не елемент вставить, а делать все для каждой ячейки столбца
 
Перейти    
Автозаполнение значений ячеек по первых введеных символах
 
#
14.12.2016 21:39:06
немного не то, при количестве елементов больше 1000 випадающий список не подходит
 
Перейти    
Автозаполнение значений ячеек по первых введеных символах
 
#
14.12.2016 21:22:26
а чуть детальней?
 
Перейти    
Автозаполнение значений ячеек по первых введеных символах
 
#
14.12.2016 20:30:12
задача такая:
создан список из  over 1200 наименований на 1 листе
на 2 листе надо чтобы в конкретном столбце при вводе первых символов было предложено випадающий список из значений списка на  листе 1, которые соответствуют введенным символам.

на примере
в 1 листе список городов
на втором листе в столбце "город" при вводе буквы "б" предлагало бы список из городов на букву "б", при том при продолжении ввода(например "ба") список городов сокращался до тех, которые начинаются на "ба"
 
Перейти    
Страницы: 1
Наверх