Добрый день.
Объединенная ячейка содержит числа с разделителем ;
Необходимо чтобы в этой же ячейке числа складывались.
Нужна именно процедура, а не пользоват. функция
За ранее благодарен.
Прикрепил пример
Объединенная ячейка содержит числа с разделителем ;
Необходимо чтобы в этой же ячейке числа складывались.
Нужна именно процедура, а не пользоват. функция
За ранее благодарен.
Прикрепил пример
| Код |
|---|
Function xSum(cl As String) Dim arr Dim i As Integer arr = Split(cl, ";") For i = 0 To UBound(arr) xSum = xSum + Val(arr(i)) Next End Function |
Изменено: - 24.05.2024 07:28:28