Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Найти символ по его размеру, найти символ заданного размера
 
Всем привет, есть проблема: в ячейке запись вида "ТЕКСТ ТЕКСТ AKFG6516 ТЕКСТ ТЕКСТ" (т.е. в строке есть символ, который имеет меньший размер чем все остальные), можно ли найти этот символ и удалить?
 
Думаю, вот такой функцией пользователя можно:
Код
Function Get_Small_Char(rCell As Range)
    Dim li As Long, sTxt As String
    Dim dblSize As Double, dblMin As Double, lMinPos As Long
    dblMin = rCell.Characters(1, 1).Font.Size
    For li = 2 To Len(rCell.Value)
        dblSize = rCell.Characters(li, 1).Font.Size
        If (dblSize < dblMin) Then
            dblMin = dblSize
            lMinPos = li
        End If
    Next li
    Get_Small_Char = rCell.Characters(lMinPos, 1).Text
End F unction
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Спасибо большое!
Страницы: 1
Читают тему (гостей: 1)
Наверх