ارجوا المساعده معادله sumproduct

[osamawhitewhale]

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

هل من الممكن استخدام معادله sumproduct في جمع المصفوفات التي تحتوي علي شرط معين

بان يتم جمع المصفوفه التي تحتوي علي اسم معين من جمله معينه

بان نقوم بجمع كل المصفوفات التي تحتوي علي اسم محمد

لقد حاولت كثيرا في حل هذا الامر ولم اتمكن فيتم الجمع اذا تحقق الشرط كامل

فاذا اردت ان اجمع مصفوفه لاسم محمد اسامه اقوم بكتابه الاسم كامل وبهذا لم يقوم بجمع محمد احمد اذا وجد

الملف في المرفقات للتوضيح

نموذج.rar

[عبدالله باقشير]

السلام عليكم

استخدمنا دالة kh_Name

دالة استخراج الاسماء من اسم مركب طويل

وهي معمولة بالكود

وذلك لاستخراج الاسم الاول في العمود D

Option Explicit




'       بسم الله الرحمن الرحيم            "


'======================================"

'   دالة استخراج الاسماء من اسم مركب طويل

'       kh_index بدلالة ترتيب الاسم

'======================================"

'              kh_index

'     اذا كانت مهملة او نصاً او صفرا

'       تقوم باستخراج الاسم الاول

'======================================"

'    وهي تقوم بإستخراج الاسماء المركبة

'            للاسم الواجد

'    تلقائياً حسب  معايير معرفة لديها

'        MyArray  في متغير الجدول

'      ويمكنك اضافة اي معيار آخر

'        بجانب المعايير الموجودة

'      مع مراعاة وجود فراغ بداية

'           او نهاية المعيار

'======================================"



'-----------------------------------------------------------------


Function kh_Name(Name As String, Optional kh_index = 1) As String

Dim kh_ind As Integer

Dim kh_Split, MyArray, Ar

Dim Kh_String As String, Sn As String, Re As String, kh_Split_index As String, Kh_Rep As String


On Error GoTo Err_Kh_Name


    kh_ind = Val(kh_index)

    If kh_ind = 0 Then kh_ind = 1

    '======================================

    MyArray = Array("عبد ", "أبو ", "ابو ", "آل " _

    , " الله", " الدين", " الإسلام", " الاسلام", " الحق")

    '======================================

    Sn = Application.WorksheetFunction.Trim(Name)

    For Each Ar In MyArray

        Re = Replace(Ar, " ", "^")

        Sn = Replace(Sn, Ar, Re)

    Next

    '======================================

    Kh_String = Sn

    kh_Split = Split(Kh_String, " ", , vbTextCompare)

    kh_Split_index = kh_Split(kh_ind - 1)

    Kh_Rep = Replace(kh_Split_index, "^", " ")

    kh_Name = Kh_Rep


    Exit Function


Err_Kh_Name:

     kh_Name = ""

End Function

نموذج_1.rar

[الخالدي]

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

جزاكم الله كل خير استاذنا خبور خير

ولإثرا الموضوع

المعادلة التالية تجمع الجمل التي تبدأ بكلمة محمد

=SUMPRODUCT((LEFT(A1:A7;4)="محمد")*(B1:B7);(C1:C7))

المعادلة التالية تجمع الجمل التي تبدأ او تحتوي على كلمة محمد

=SUMPRODUCT((ISERROR(SEARCH("محمد";A1:A7;1))=FALSE)*(B1:B7);(C1:C7))

تحياتي

[osamawhitewhale]

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

هذا ما اريد معرفته حقاً وهيا المعادله الاخيره بان يقوم بجمع الجمل التي تبدأ او تحتوي علي كلمه معينه

شكرا لاهتمامكم وتواصلكم معي

[عز أبو أنس]

جزاك الله كل خير استاذ خبور خير