Страницы: 1
RSS
Разнести показатели из текста по строкам
 
Доброго времени суток!
Подскажите, пожалуйста, как сделать макрос, который в тексте в одной ячейке найдет нужные показатели и их значения и поместит значения в 6 отдельных ячеек по количеству показателей?
Нужно выбрать значения показателей Аванс, Надбавка по авансу, Зарплата, Надбавка по зарплате, Перерасчет, Надбавка по перерасчету после знака ":", при этом отрицательную сумму расценивать как положительную, то есть не обращать внимания на минус..

Текст ячейки таком виде:
Начисление:-000.00Аванс:500.00Надбавка по авансу:50.00Зарплата:-1000.00Надбавка
по зарплате:50.00Перерасчет:-50.00Надбавка по перерасчету:35.00Общая сумма
выплаты:000.00Минимальная сумма к выплате:-000.00Сумма заказа:0,000.00
 
Пример создайте
 
Вот шаблон
 
Могу предложить вот такой вариант решения на формулах. Он очень зависим от порядка значений.
Изменено: Wiss - 24.10.2019 17:54:12
Я не волшебник, я только учусь.
 
UDF для аванса
Код
Function Avans(cell$)
 With CreateObject("VBScript.RegExp")
     .Global = True
     .Pattern = "Аванс:(\d+\.\d+)"
     Avans = .Execute(cell)(0).SubMatches(0)
 End With
End Function

Для остальных показателей аналогично
 
Цитата
Kuzmich написал:
Для остальных показателей аналогично
Спасибо! Работает с положительными числами.  А как сделать, чтобы при отрицательном значении не возвращалось "#ЗНАЧ!" в ячейке? Чтобы без минуса выдавал значение.
 
Код
Function Zarplata(cell$)
 With CreateObject("VBScript.RegExp")
     .Global = True
     .Pattern = "Зарплата:-?(\d+\.\d+)"
     Zarplata = .Execute(cell)(0).SubMatches(0)
 End With
End Function
 
Спасибо большое! Работает!
Вопрос исчерпан)
Страницы: 1
Наверх