ابو يوسف تركيا قام بنشر يوليو 1, 2019 مشاركة قام بنشر يوليو 1, 2019 السلام عليكم ورحمة الله وبركاته. شكرا لجميع الاخوة الكرام. أريد اسال هل هناك دالة او معادلة لحساب مجموع ارقام عدد او خلية؟! مثلا الخلية a1 بها العدد 2019 أريد حساب 2+0+1+9=12 و و أريد العمود الذي يليه ان اذا كان المجموع أكبر تماما من 10 يقوم أيضا بالحمع. 12 أكبر من 10 أريد يحسب 1+2=3. و جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر يوليو 1, 2019 أفضل إجابة مشاركة قام بنشر يوليو 1, 2019 مثال عما تريد بطريقتين 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 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.