Сумма цифр числа в ячейке

[Arlen]

Проблема заключается в том, что я не могу найти ошибку алгоритма. В первый раз полной отладки программа считала числа до 24 знаков без ошибок, но на следующий день начала преобразовывать автоматически в ячейке такое число в экспоненциальное и считать отказывалось, выдавая Type mismatch (смена типа ячейки не помогло). В VBA я толком и не работаю, поэтому плохо представляю, в чем там дело, кто сможет, помогите)
Алгоритм:

Sub SP()
 For j = 2 To 26 
  v_str = Cells(j, 3).Value {диапазон ячеек, в которых лежат числа}
  v_sum = CInt(Left(v_str, 1))
  v_str1 = CStr(Left(v_str, 1))
 For i = 2 To Len(v_str)
  v_sum = v_sum + CInt(Mid(v_str, i, 1))
  v_str1 = v_str1 + "+" + CStr(Mid(v_str, i, 1))
 Next
  v_str1 = v_str1 + "=" + CStr(v_sum)
  Cells(j, 8).Value = v_sum
 Next

[pivas]

Ячейка не должна быть пустой. Задайте в начале цикла проверку.

[Arlen]

Подразумевается, что первоначально пустой она быть не может (то есть, сначала все ячейки заполняются. Значения берутся от 0.

[pivas]

Type mismatch выдаётся когда ячейка пуста, число меньше 0 или представлено не в виде последовательности цифр. Сделайте формат ячеек текстовым и заполните диапазон. Число не будет переводится в экспоненту и Ваш код будет работать.

[EducatedFool]

Могу предложить несколько иной алгоритм:

Sub test()
    Dim ra As Range, cell As Range: Set ra = [c2:c26] ' обрабатываемый диапазон
    For Each cell In ra
        For i = 1 To Len(cell)
            s = s & "+" & Mid(cell, i, 1)
        Next i
    Next
    результат = Application.Evaluate(s)
    MsgBox Mid(s, 2) & " = " & результат, vbInformation
End Sub

Вот что получаем на выходе:

2+4+4+8+6+1+2+8+1+7+0+2+1+2+2+5+4+2 +9+6+3+3+8+3+8+0+4+2+2+4+6+4+5+0+6+ 5+4+8+5+9+0+6+3+2+6+7+4+7+1+6+7+5+8 +8+0+0+8+4+2+8+8+4+9+2+6+9+6+8+1+0+ 1+0 = 311

[pivas]

EducatedFool, остаётся проблема Type mismatch при большом количестве цифр в числе (от 15 и больше).

[EducatedFool]

EducatedFool, остаётся проблема Type mismatch при большом количестве цифр в числе (от 15 и больше)

Согласен, проблема есть...
Только она проявляется не из-за большого числа цифр в числах,
а из-за ограничения длины вычисляемой строки в функции Application.Evaluate(s)

Вот так работает нормально (проверял на числах, состоящих из 30 цифр):

Sub test()
    For Each cell In [c2:c15]    ' обрабатываемый диапазон
        For i = 1 To Len(cell)
            цифра = Mid(cell, i, 1)
            s = s & "+" & цифра: Sum = Sum + Val(цифра)
        Next i
    Next
    MsgBox Mid(s, 2) & " = " & Sum, vbInformation
End Sub

[Arlen]

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

Type mismatch выдаётся когда ячейка пуста, число меньше 0 или представлено не в виде последовательности цифр. Сделайте формат ячеек текстовым и заполните диапазон. Число не будет переводится в экспоненту и Ваш код будет работать.

В том-то и дело, что я так пыталась, безрезультатно))
EducatedFool, я наверное, не совсем правильно сформулировала задачу. Имелось в виду, что в диапазоне в каждой ячейке лежит число и сумму цифр числа надо считать конкретно каждой ячейки и выводить в соседнюю. Например, в диапазоне с2:с10 лежат в каждой ячейке определенные числа, тогда сумма цифр числа с2 (при выполнение программы) отображается в d2, сумма цифр числа c3 в d3 и так далее.

[EducatedFool]

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

Тогда попробуйте такой макрос:

Sub test()
    For Each cell In [c2:c15]    ' обрабатываемый диапазон
        Sum = 0
        If Len(cell) > 0 Then
            For i = 1 To Len(cell)
                цифра = Mid(cell, i, 1)
                s = s & "+" & цифра: Sum = Sum + Val(цифра)
            Next i
            cell.Next = Sum
        End If
    Next
End Sub

Или в программный модуль добавьте пользовательскую функцию:

Function СуммаЦифр(ByRef cell As Range)
    If Len(cell) > 0 Then
        For i = 1 To Len(cell)
            СуммаЦифр = СуммаЦифр + Val(Mid(cell, i, 1))
        Next i
    End If
End Function

а потом в ячейки столбца D поставьте формулы типа этой:
=СуммаЦифр(C2)

[Arlen]

EducatedFool, все, теперь работает как надо, большое спасибо!)))Теперь можно наконец-то закончить эту несчастную базу данных)))спасибо ещё раз^^