Даны натуральные числа n и m. Получить сумму m последних цифр числа n

[pahanzona]

Помогите! Кто знает, как решить эту задачу в Excel:
Даны натуральные числа n и m. Получить сумму m последних цифр числа n.

[IgorGO]

см.вложение

[vikttur]

Я понял не так.
n - х-значное число, m -количество последних знаков этого числа. Нужна сумма этих цифр.
Для небольшого m (1-3) ПСТР() и СУММ(), для унификации - формула массива.
Но это же контрольное задание и нужно решение в VBA. Я ошибаюсь?

[MCH]

может так?

[pahanzona]

Сообщение от vikttur

Я понял не так.
n - х-значное число, m -количество последних знаков этого числа. Нужна сумма этих цифр.
Для небольшого m (1-3) ПСТР() и СУММ(), для унификации - формула массива.
Но это же контрольное задание и нужно решение в VBA. Я ошибаюсь?

Не важно как решать, главное чтобы в Excel.

[MCH]

Сообщение от vikttur

Но это же контрольное задание и нужно решение в VBA. Я ошибаюсь?

Function sum_n(n As Long, m As Integer) As Integer
    Dim i As Integer
    sum_n = 0
    For i = 1 To m
        sum_n = sum_n + n Mod 10
        n = n \ 10
    Next i
End Function

[pahanzona]

Спасибо большое! Кому-то нужен инвайт на 2ip.ru?

[doober]

MCH это не плагиат

Sub MY_Summ()
Dim n As Long, m As Integer, ss As Integer, i As Integer
n = 1651234
m = 4
For i = 1 To m
ss = ss + n Mod 10
n = n \ 10
Next
MsgBox ss
End Sub

[MCH]

Сообщение от doober

это не плагиат

это стандартное мышление

[IgorGO]

уйдем от стандарта в рекурсию:

Function SumLastM(n As Long, m As Long) As Long
  If m = 1 Then SumLastM = n Mod 10 Else SumLastM = n Mod 10 + SumLastM(n \ 10, m - 1)
End Function