Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/автоматизировать подсчет длины - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » автоматизировать подсчет длины (Формулы/Formulas)
автоматизировать подсчет длины
iirida Дата: Суббота, 14.11.2015, 19:44 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Уважаемые, возможно ли автоматизировать подсчёт длины? Пример прикладываю. Результат пока подсчитываю вручную (серые ячейки).
Знания Ващи велики, а могущество Exsel огромно, вполне вероятно, что решение возможно!
К сообщению приложен файл: 3700012.xls (51.5 Kb)
 
Ответить
СообщениеУважаемые, возможно ли автоматизировать подсчёт длины? Пример прикладываю. Результат пока подсчитываю вручную (серые ячейки).
Знания Ващи велики, а могущество Exsel огромно, вполне вероятно, что решение возможно!
Автор - iirida
Дата добавления - 14.11.2015 в 19:44
МВТ Дата: Суббота, 14.11.2015, 20:03 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 476
Репутация: 137 ±
Замечаний: 0% ±

Excel 2007
Вот пользовательской функцией, формулой, если без допстолбца, длинно получится
[vba]
Код
Function tt(Text As String) As Double
    Dim arr: arr = Split(Application.WorksheetFunction.Trim(Replace(Replace(Replace(Text, "+", ""), "км", " "), "-", "")))
    tt = Val(arr(1)) - Val(arr(0))
End Function
[/vba]
UPD вот вариант с допстолбцом. В допстолбец формула
Код
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(B11;"км";" "); "+"; "");"-";""))
В ячейку с расчетом
Код
=ПРАВСИМВ(R11;ДЛСТР(R11)-ПОИСК(" ";R11))-ЛЕВСИМВ(R11;ПОИСК(" ";R11)-1)


Сообщение отредактировал МВТ - Суббота, 14.11.2015, 20:08
 
Ответить
СообщениеВот пользовательской функцией, формулой, если без допстолбца, длинно получится
[vba]
Код
Function tt(Text As String) As Double
    Dim arr: arr = Split(Application.WorksheetFunction.Trim(Replace(Replace(Replace(Text, "+", ""), "км", " "), "-", "")))
    tt = Val(arr(1)) - Val(arr(0))
End Function
[/vba]
UPD вот вариант с допстолбцом. В допстолбец формула
Код
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(B11;"км";" "); "+"; "");"-";""))
В ячейку с расчетом
Код
=ПРАВСИМВ(R11;ДЛСТР(R11)-ПОИСК(" ";R11))-ЛЕВСИМВ(R11;ПОИСК(" ";R11)-1)
Автор - МВТ
Дата добавления - 14.11.2015 в 20:03
_Boroda_ Дата: Суббота, 14.11.2015, 20:31 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16895
Репутация: 6613 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Вот такой вариант
Код
=ПОДСТАВИТЬ(ПСТР(B11;ПОИСК("?км";B11)+4;99);"+";)-ПОДСТАВИТЬ(ПСТР(B11;4;ПОИСК("?км";B11)-4);"+";)
К сообщению приложен файл: 3700012_1.xls (40.5 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВот такой вариант
Код
=ПОДСТАВИТЬ(ПСТР(B11;ПОИСК("?км";B11)+4;99);"+";)-ПОДСТАВИТЬ(ПСТР(B11;4;ПОИСК("?км";B11)-4);"+";)
Автор - _Boroda_
Дата добавления - 14.11.2015 в 20:31
iirida Дата: Суббота, 14.11.2015, 21:23 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Да, так!
Как всегда красиво! Спасибо! Вопрос решён.
 
Ответить
СообщениеДа, так!
Как всегда красиво! Спасибо! Вопрос решён.
Автор - iirida
Дата добавления - 14.11.2015 в 21:23
Мир MS Excel » Вопросы и решения » Вопросы по Excel » автоматизировать подсчет длины (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!