Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Как скрыть неиспользуемые ячейки
 
Всем привет! Не знаю даже как обратиться за помощью, потому как сам не до конца представляю как сделать лучше.

Создал небольшой файл с просчётами букв, пробелов. Но часто бывает такое что мне нужно просчитать кол-во символов не в трёх словах а в двух и если я просто удаляю одно слово (как в файле) то остаётся знак минуса что мешает при просчёте.
Если у вас есть идеи как сделать файл более компактным и например вообще убрать ячейку "Количество слов" напишите пожалуйста

так же может есть идеи как допустим если есть буква "М" то ширина букв будет не "4" а "5"?  
Изменено: Trimsurface - 9 Дек 2018 01:14:40
 
Цитата
Trimsurface написал:
как сделать файл более компактным и например вообще убрать ячейку "Количество слов" напишите пожалуйста
UDF, пример в яч. М1
Код
Function Tr(txt, ShirBukv, Interval, ShirProbel) As Long
Dim x
  For Each x In Split(txt)
    Tr = Tr + Len(x) * ShirBukv + ShirProbel
    If Len(x) > 1 Then Tr = Tr + (Len(x) - 1) * Interval
  Next
  Tr = Tr - ShirProbel
End Function
Цитата
Trimsurface написал:
как допустим если есть буква "М" то ширина букв будет не "4" а "5"?
Нужен список широких букв и их ширина как еще два параметра функции.
 
Казанский, магия какая-то прям) Спасибо (как репутацию поднять?) буду разбираться как добавить буквы остальные, как раз пойму что это вообще такое
 
Trimsurface, дописал
Код
Function Tr(txt$, ShirBukv#, Interval#, ShirProbel#, ShirBukvi$, ShirShirBukv#) As Double
Dim x, i&, slova$()
  slova = Split(txt)
  For Each x In slova
    For i = 1 To Len(x)
      If InStr(1, ShirBukvi, Mid$(x, i, 1)) Then Tr = Tr + ShirShirBukv Else Tr = Tr + ShirBukv
    Next
    If Len(x) > 1 Then Tr = Tr + (Len(x) - 1) * Interval
  Next
  Tr = Tr + UBound(slova) * ShirProbel
End Function
Название темы: Вычисление ширины текста
Изменено: Казанский - 10 Дек 2018 15:21:31
Страницы: 1
Читают тему (гостей: 2)
Наверх