Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

4 Август 2021, 00:56 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Часто задаваемые вопросы по LibreOffice и Apache OpenOffice.org
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Задача преобразовать выражение из текста в число и посчитать  (Прочитано 1247 раз)
0 Пользователей и 1 Гость смотрят эту тему.
sokol92
Форумчанин
***
Offline Offline

Пол: Мужской
Сообщений: 508


WWW
« Ответ #58526: 25 Май 2021, 13:00 »

Если в ячейке из арифметических знаков может присутствовать только знак сложения, то можно так:

Код:
Option Explicit
' Вычисляет выражение число [+число]...
' Можно использовать в формулах, например: =SumText(A1)
Function SumText(arg) As Variant
   Dim v
   SumText=Cdbl(0)
   For Each v In Split(arg, "+")
     If IsNumeric(Trim(v)) Then
       SumText=SumText + Cdbl(Trim(v))
     Else
       SumText=Array()   ' ошибочное значение
       Exit Function  
     End If
   Next    
End Function

Число слагаемых - произвольно.
« Последнее редактирование: 25 Май 2021, 13:04 от sokol92 » Записан

Владимир.
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!