جمع رقم های یک عدد در یک سلول

[tomcat123]

سلام . لطفا راهنمایی بفرمایید.
احتیاج به فرمولی دارم که بتونه جمع ارقام یک عدد را نشون بده
برای مثال خروجی عدد 1234 مساوی 10 باشه
همچنین جمع ارقام یک عدد اعشاری رو هم بده
برای مثال خروجی عدد 1234.5 مساوی 15 باشه

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

با استفاده از قابلیت رویدادها (Event) یک ماکرو تهیه گردید که اگر عدد با تکست هم باشد فقط جمع اعداد را برای شما محاسبه مینماید.

فعلا فقط دیتای وارد شده در ستون A:A مورد محاسبه قرارمیگیرد (If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then)

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then

Application.EnableEvents = False

On Error Resume Next

X = Len(Target)

XX = 0

For I = 1 To X

If IsNumeric(Mid(Target, I, 1)) Then


XX = XX + Mid(Target, I, 1)

End If

Next

Target.Offset(0, 1).Value = XX


Application.EnableEvents = True

End If


End Sub 

[amir_ts]

با سلام
برای اعداد بدون اعشار از این فرمول استفاده کنید.فرمول آرایه ایست بعد از نوشتن فرمول کلید ctrl+shift+enter را بفشارید.

 =SUM(1*MID(S1;ROW(INDIRECT("1:"&LEN(S1)));1)) 

برای اعداد دارای ارقام اعشاری هم این فرمول جوابگوست.

=SUM(IFERROR(1*MID(S1;ROW(INDIRECT("1:"&LEN(S1)));1);""))