Перемножение чисел в ячейке, но не всех

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Перемножение чисел в ячейке, но не всех (Макросы/Sub)

r-yuriy

Дата: Понедельник, 15.05.2017, 20:33 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Добрый день!

Прошу помощи с такой задачей:
В ячейке exel вбиты числа и символы "х" . Как перемножить между все собой числа, но до последнего символа "х"
Так, например:
"2х2х0,5" должно дать результат 4
"10х4х0,75" должно дать результат 40
"6х0,5" должно дать результат 6

Спасибо.

Ответить

Roman777

Дата: Понедельник, 15.05.2017, 21:15 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 980

Репутация: 127 ±

Замечаний: 0% ±

Excel 2007, Excel 2013

[vba]

Код

Function Перемножение(r As Range, simb As String)
Dim mas, i&, mult&
   mas = Split(r.Text, simb)
   mult = 1
   For i = 0 To UBound(mas) - 1
      mult = mult * mas(i)
   Next i
   Перемножение = mult
End Function

[/vba]
Пользовательская функция