معادلة لحساب مجموع ارقام خلية

[ابو يوسف تركيا]

السلام عليكم ورحمة الله وبركاته. 

شكرا لجميع الاخوة الكرام. 

أريد اسال هل هناك دالة او معادلة لحساب مجموع ارقام عدد او خلية؟!

مثلا الخلية a1 بها العدد 2019  

أريد حساب 2+0+1+9=12 

و و أريد العمود الذي يليه ان اذا كان المجموع أكبر تماما من 10 يقوم أيضا بالحمع.  12 أكبر من 10 أريد يحسب 1+2=3.

و جزاكم الله خيرا 

[سليم حاصبيا]

مثال عما تريد

بطريقتين

1- معادلة عادية صفحة Simple

2 بواسطة الكود صفحة Salim

الكود المستعمل

Option Explicit

Function Inter_Sum(My_Val, Pat As String)
Rem ====>> Created by Salim Hasbaya On 1/7/2019
Dim Obj As Object
Set Obj = CreateObject("VBScript.regexp")
Dim My_Match
Dim t%

With Obj
    .Global = True
    .Pattern = Pat
      If .Test(My_Val) Then
        For Each My_Match In .Execute(My_Val)
         t = t + IIf(IsNumeric(My_Match), My_Match, 0)
        Next
      End If
 End With
  Inter_Sum = t
End Function

الملف مرفق

 

 

 

Creezy_sum_VBA.xlsm