Добрый день подскажите можно ли так сделать есть ячейка виды 7(12.01)+3(04,06)+20(05,03)......... Вопрос следующий нужно сложить только числа который в не скобках то етсь 7+3+20 и в другую ячейку вывести сумму либо разность чисел. Вопрос как сделать так что бы не учитывались скобки и числа в скобках. Заранее огромное спасибо
Добрый день подскажите можно ли так сделать есть ячейка виды 7(12.01)+3(04,06)+20(05,03)......... Вопрос следующий нужно сложить только числа который в не скобках то етсь 7+3+20 и в другую ячейку вывести сумму либо разность чисел. Вопрос как сделать так что бы не учитывались скобки и числа в скобках. Заранее огромное спасибоad1986
Сообщение отредактировал Pelena - Четверг, 16.03.2017, 14:04
Всем привет!!! Ребята, помогите, плиззз!! Надо в Exсel найти достоверную разницу между двумя столбиками чисел (диссер по психол.исследованию). Если можно языком простым и доступным))) Заранее сердечно благодарю неравнодушных!!!
Всем привет!!! Ребята, помогите, плиззз!! Надо в Exсel найти достоверную разницу между двумя столбиками чисел (диссер по психол.исследованию). Если можно языком простым и доступным))) Заранее сердечно благодарю неравнодушных!!! Maria_ods
У меня есть ответ для целых чисел с оговоркой, но название темы не позволяет его выкладывать походу ТС уже не сможет переименовать... если модераторам не лень - "Сумма чисел из одной ячейки"
У меня есть ответ для целых чисел с оговоркой, но название темы не позволяет его выкладывать походу ТС уже не сможет переименовать... если модераторам не лень - "Сумма чисел из одной ячейки"Nic70y
Function uuu#(t$) With CreateObject("VBScript.RegExp"): .Pattern = "\d+(?=\()": .Global = True For i = 0 To .Execute(t).Count - 1: uuu = uuu + .Execute(t)(i): Next End With End Function
[/vba] [vba]
Код
Function vvv#(t$) With CreateObject("VBScript.RegExp"): .Pattern = "(?:\-)?\d+(?=\()": .Global = True For i = 0 To .Execute(t).Count - 1: vvv = vvv + .Execute(t)(i): Next End With End Function
[/vba]
ad1986, добрый день,два варианта
[vba]
Код
Function uuu#(t$) With CreateObject("VBScript.RegExp"): .Pattern = "\d+(?=\()": .Global = True For i = 0 To .Execute(t).Count - 1: uuu = uuu + .Execute(t)(i): Next End With End Function
[/vba] [vba]
Код
Function vvv#(t$) With CreateObject("VBScript.RegExp"): .Pattern = "(?:\-)?\d+(?=\()": .Global = True For i = 0 To .Execute(t).Count - 1: vvv = vvv + .Execute(t)(i): Next End With End Function