В этой статье мы создадим настраиваемую функцию для вычисления суммы цифр в ячейке.

Данные для этого примера состоят из данных о продажах. Каждый агент продал разные товары. В ячейке у нас есть количество проданных товаров, за которым следует название продукта. Мы хотим найти общее количество товаров, проданных каждым агентом.

ArrowRaw

Мы создали функцию «SumDigits» для вычисления суммы цифр в ячейке. Эта функция принимает на вход диапазон ячеек и возвращает сумму цифр в ячейке.

ArrowOutput

Логическое объяснение

Мы создали специальную функцию SumDigits для вычисления суммы цифр в ячейке. В этой функции мы находим длину строки в ячейке, а затем переходим от первого символа к последнему символу в строке. Затем мы находим и складываем числовые значения, найденные в строке, чтобы получить сумму цифр.

Объяснение кода

Mid (Число, i, 1)

Функция Mid используется для извлечения подстроки из основной строки.

Приведенный выше код будет извлекать по одному символу из основной строки за раз.

IsNumeric (Значение)

Функция IsNumeric используется для проверки, является ли данное значение числовым.

Val (Значение)

Функция Val используется для преобразования строки в числовое значение.

Пожалуйста, введите код ниже

Option Explicit

Function SumDigits(Number As Variant)

Dim i As Integer

For i = 1 To Len(Number)

If IsNumeric(Mid(Number, i, 1)) Then

SumDigits = SumDigits + Val(Mid(Number, i, 1))

End If

Next i

End Function

Если вам понравился этот блог, поделитесь им с друзьями на Facebook и Facebook.

Мы будем рады услышать от вас, дайте нам знать, как мы можем улучшить нашу работу и сделать ее лучше для вас. Напишите нам на [email protected]