Подскажите как извлечь из ячейки, содержащей набор произвольных слов и чисел, собственно числа. Числа могут стоять в любом месте, содержать 2 или 3 знака. Причем если в ячейке числа встречаются несколько раз, их необходимо сложить между собой.
Подскажите как извлечь из ячейки, содержащей набор произвольных слов и чисел, собственно числа. Числа могут стоять в любом месте, содержать 2 или 3 знака. Причем если в ячейке числа встречаются несколько раз, их необходимо сложить между собой.valdemarrus
Public Function SumNumbers&(s$) On Error GoTo SumNumbers_Error Dim n As Object For Each n In r.Execute(s) SumNumbers = SumNumbers + CLng(n) Next On Error GoTo 0 Exit Function SumNumbers_Error: Set r = CreateObject("vbscript.regexp") r.Pattern = "\d+": r.Global = -1: Resume End Function
[/vba]
ЮДФ: [vba]
Код
Dim r As Object
Public Function SumNumbers&(s$) On Error GoTo SumNumbers_Error Dim n As Object For Each n In r.Execute(s) SumNumbers = SumNumbers + CLng(n) Next On Error GoTo 0 Exit Function SumNumbers_Error: Set r = CreateObject("vbscript.regexp") r.Pattern = "\d+": r.Global = -1: Resume End Function
Помогите сделать так чтобы можно было из единицы измерения извлечь только первые числа чтобы я мог их умножать на Договорные цены, которые расчитаны на 1 еденицу.
Короче говоря помогите извлечь пжл первое числовое значение.
Через предыдущий макрос он еще прибавляет цифру 3 из "м3" [moder]Тема закрыта. Причина: нарушение п.п. 3, 4, 5Q Правил форума[/moder]
Помогите сделать так чтобы можно было из единицы измерения извлечь только первые числа чтобы я мог их умножать на Договорные цены, которые расчитаны на 1 еденицу.
Короче говоря помогите извлечь пжл первое числовое значение.
Через предыдущий макрос он еще прибавляет цифру 3 из "м3" [moder]Тема закрыта. Причина: нарушение п.п. 3, 4, 5Q Правил форума[/moder]Rutulec
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
