Всем привет! Не знаю даже как обратиться за помощью, потому как сам не до конца представляю как сделать лучше.
Создал небольшой файл с просчётами букв, пробелов. Но часто бывает такое что мне нужно просчитать кол-во символов не в трёх словах а в двух и если я просто удаляю одно слово (как в файле) то остаётся знак минуса что мешает при просчёте. Если у вас есть идеи как сделать файл более компактным и например вообще убрать ячейку "Количество слов" напишите пожалуйста
так же может есть идеи как допустим если есть буква "М" то ширина букв будет не "4" а "5"?
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"?
Нужен список широких букв и их ширина как еще два параметра функции.
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