مطلوب دالة معرفة الاعداد المتكررة وما يقابلها من عناصر

[قلم-الاكسل(عبدالعزيز)]

السلام عليكم

هذا جدول مع كل شيء وهو جاهز بنسبة 90 % فقط ينقصه شيء واحد

اريد منكم بعد تفضلكم وضع دالة او كود برمجي لمعرفة المتكرر من الجدول , بعد ذلك ما هو العنصر " انظر للجدول في الملف المرفق" الذي يساوي العدد المتكرر من الجدول يعني اريد من الاكسل يعطيني مباشرة هذه العناصر التي تحمل نفس العدد المتكرر فقط ويوجد في المرفق أمثلة.

جدول 24.rar

[ياسر خليل أبو البراء]

أخي الكريم قلم الإكسيل

برجاء إرفاق شكل النتائج المتوقعة بمثال أو مثالين لتأكيد فكرة الطلب

بالنسبة للمخرجات ستكون في النطاق H45 كبداية لاستخراج الأرقام التي تم تكرارها في الجدولين الموجودين في الصفوف من 34 إلى 42

هذه النقطة واضحة

أما بالنسبة للعناصر التي تساوي العدد المكرر على سبيل المثال الرقم 120 أنت كتبت a و b فقط ..بينما العناصر لهذا الرقم هي c و i

كما أنني لم أقهم الجملة المكتوبة في الملف "ليس لزاماً أن تكون العناصر المتساوية للمكرر مرتبة يعني ممكن a , c, f, w

----------

يرجى مزيد من التوضيح للتيسير على إخوانك

تقبل تحياتي

 

[قلم-الاكسل(عبدالعزيز)]

اشكرك سيدي على سرع الرد

فقط للتذكير انا برمجة العمود A  اجمع كل خلية منه مع كل خلية من العمود B

ولا نقوم بالجمع ما بين خلايا العمود الواحد فقط خلايا Aمع خلاياB

يعني مثلا الحرف a يقابله العدد 10 و 100

    الحرف b يقابله العدد 20 و 110

الان نقوم بالجمع  10 + 110 = 120

             20 + 100 = 120

إذن الحروف التي تتساوى مع العدد المكرر في الجدول وهو (120) هما a و b لأنهما يحملان العددين الذين جمعناهما مع بعضهما (10و100) في a و (20و110) في b

كنت اطلب ان الاكسل يقوم بإظهار الحروف التي تتساوى مع العدد المكرر في الجدول

[ياسر خليل أبو البراء]

صراحة لم أفهم المنطق الذي يعمل به الملف في الجدولين A و B (في الأعمدة E و F) ..كيف سيتعرف على الحرف المطلوب ..؟؟ هل سيتم التعامل مع خلية واحدة فقط من الجدول A ويقارن النتائج في الجدول B ..أقصد مثلاً الخلية E4 سيتم اختبار وجمع القيم المقابلة لها في كل خلايا الجدول B ...؟؟

صراحة الموضوع مربك جداً ويحتاج لمزيد من التوضيح

اعذرني لقلة فهمي

 

[قلم-الاكسل(عبدالعزيز)]

.أقصد مثلاً الخلية E4 سيتم اختبار وجمع القيم المقابلة لها في كل خلايا الجدول B ...؟؟

نعم بشرط لاحظ ان الخلية E4 معها رقم اخر وهو F4 لأنهما تابعان للعنصر (الحرف) a  كما هو في الجدول

اي ان مجموع ما تجمعه من e4 في عدد اخر من العمود b يساوي نفس مجموع العدد f4 ما يقابله من العمودa  وهكذا في كل الاعداد التالية

هذا مثال سيدي على الموضوع

 

[ياسر خليل أبو البراء]

في حالة موافقة الجمع من العمودين A و B .. على أي أساس يتم اختيار العنصر في هذه الحالة ..هل على أساس العمود A أم على أساس العمود B؟

مثال لتفهم سؤالي : الرقم 130 مثلاً ..

يوافق الأعداد 10 من (A) و 120 من (B) .. اختيار العنصر سيكون على أساس أي العمودين لأن الرقمين موجودين في العنصرين a و c  في هذه الحالة

أعتذر عن كثرة الاستفسارات ...لكن لتكن الأمور واضحة حتى تجد المساعدة مني أو من غيري

[قلم-الاكسل(عبدالعزيز)]

فعلا عزيزي مبدع كالعادة فعلا هذا هو المطلوب

يوافق الأعداد 10 من (A) و 120 من (B) .. اختيار العنصر سيكون على أساس أي العمودين لأن الرقمين موجودين في العنصرين a و c  في هذه الحالة

لكن للتذكير جنب الـ 120 في c عدد اخر وهو 30 اجمعه مع العدد 100 في الـ a  وهو بجانب الـ 10 سيصبح العدد 130

اذن العنصر a و c متساويان حيث ان كلا منهما يساوي 130 واعتمد سيدي المهندس على العمود الأول بشرط كأنك تجمع بالعكس مثال انظر للصورة بشرط يكون كل عددين يساويان العددين الاخرين وكأنك تصنع علامة x

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

 

[قلم-الاكسل(عبدالعزيز)]

هل سيدي العزيز وصلت المعلومة كاملة ..

اسالني اذا كان هنالك اشكال في الموضوع وانا تحت امرك

[ياسر خليل أبو البراء]

جاري المحاولة لعمل المطلوب

ولكن الموضوع معقد ويحتاج لبعض الوقت لمحاولة إنجازه  ..

الرجاء الصبر إلى أن تكتمل الفكرة

[قلم-الاكسل(عبدالعزيز)]

شكرا عزيزي واي سؤال او استفسار عن الموضوع انا تحت امرك

[قلم-الاكسل(عبدالعزيز)]

وهذا توضيح آخر لمن أراد التكرم بالمشاركة والتفضل بما أكرمه الله بمعرفة في الاكسل

 

 

 

تم تعديل ديسمبر 24, 2015 بواسطه قلم-الاكسل

[قلم-الاكسل(عبدالعزيز)]

الاستاذ المهندس المبدع ياسر ...

هل وجدت الحل ولو بشكل بسيط

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

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

[قلم-الاكسل(عبدالعزيز)]

مجرد اقتراح

تقريبا مشابه لما تفضل به الشيخ المبدع بن علية

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

وتقريبا هو اتى بالجواب الشافي لو احد ما فهم بعمق ما اريده لأتى بالجواب الفاصل وله مني دعاء حاصل

اضغط بالتفضل هنا

[ياسر خليل أبو البراء]

أخي الكريم قلم الإكسيل

إليك الكود التالي وإن شاء الله يكون حل للمشكلة بشكل قطعي

Sub ExtractDuplicatedNumbers()
    Dim R, C As Integer
    
    With CreateObject("Scripting.Dictionary")
        For Each R In [{35,40}]
            For C = 8 To 31
                If Cells(R, C).Value > 1 Then .Item(Cells(R - 1, C).Value) = ""
            Next
        Next
        [H45].Resize(, .Count).Value = .Keys
        .RemoveAll
    End With
    
    Call GetCodes
End Sub

Private Sub GetCodes()
    Dim C As Integer, VA As Variant
    Const P = 45
    Application.ScreenUpdating = False
        For C = 8 To Cells(P, 8).End(xlToRight).Column
            VA = Application.Transpose(Filter(Evaluate("TRANSPOSE(IF(ISNUMBER(MATCH(" & Cells(P, C).Value & "-$E$4:$E$27,$F4:$F$27,0)),$C$4:$C$27))"), False, False))
            Cells(P + 1, C).Resize(UBound(VA)).Value = VA
        Next C
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

 

Extract Duplicates & Items Related YasserKhalil.rar

[قلم-الاكسل(عبدالعزيز)]

شكرا المبدع الشيخ ياسر على تفهمك وحرصك على مساعدتي مع كثرة مشاغلك واشغالك ونور الله بك عقولنا بعد قحط دام سنين

ورفع لك شأنك عند الملائكة المقربين

..سيدي كيف اعرف ان رقما ما يقابله عنصر معين

حاولت ان اضع رقم في كلمة "number" ولم يحدث شيئا وحاولت يمينها ويسارها فلم يحدث شيئا

هل

ماذا اعمل لقد قمت بتحميل الملف لكن لم اعرف طريقة استخدامه

 

[ياسر خليل أبو البراء]

أخي الكريم ..

العمل تم باستخدام الأكواد ..

النتائج تظهر بدايةً من الخلية H45 .. قم بالتالي

افتح الملف المرفق الذي أرفقته في المشاركة السابقة

اضغط من لوحة المفاتيح Alt + F8 ستظهر نافذة بها اسم الإجراء الفرعي ExtractDuplicateNumbers

انقر زر الامر المسمى Run وشاهد النتائج في الصفوف 45 - 69

تقبل تحياتي

[قلم-الاكسل(عبدالعزيز)]

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

لقد نجح فقط قمت بتشغيل زر الماكرو

عظيم مبدع كالعادة تخجلنا بعلمك مع كثرة عملك

انت بحر العلوم وملك المبدعين في مختلف السنين زوجك الله من الحور العين وفضلك على جميع العالمين وحفظك كل يوم وانار الله دربك وكل مساعيك بنوره

[ياسر خليل أبو البراء]

أخي الكريم قلم الإكسيل (أما آن لنا أن نتشرف باسم القلم الحقيقي)

جزيت خيراً على كلماتك الرقيقة في حقي وعلى دعائك الطيب المبارك

ولك بمثل إن شاء الله

تقبل وافر تقديري واحترامي

[قلم-الاكسل(عبدالعزيز)]

الاستاذ المهندس شيخ الاكسليين ياسر

السلام عليكم

اعزك العزيز وحفظك الحفيظ

شكرا على تجاوبك

فعلا رائعة الدالة/الكود لكنها تحتاج لتعديل بعض الاشياء ومرفق لك بالصور حتى يتم التعديل على الكود او تطويره ،، فعندما اقوم بتغيير الاعداد من العمودين تتغير بعض القيم مع العناصر في H45 تلقائيا وهو عمل فوق الابداع لكن بعض القيم تظهر معها العناصر(الحروف) وهي في الحقيقة لا تساوي المجموع الذي فوقها وحتى من خلال الجدول لا يوجد ذلك المجموع وهو هنا بالصورة؟

ومرفق لك الجدول

 

 

 

مطلوب تعديل.rar

[قلم-الاكسل(عبدالعزيز)]

للعلم المهندس ياسر

عندي مشكلة وهو عندما اغير الاعداد في العمودين A و B

لا تظهر العناصر ولا المجاميع المكررة في H45 الا اذا قمت بتشغيل زر  RUN في كل مرة

 

[قلم-الاكسل(عبدالعزيز)]

فقط للتأكيد ارجو المساعدة ... بتطوير دالة المهندس ياسر او التعديل عليها او الاضافة او ما يراه الشخص الاكسلاني من حلول مناسبة وله مني خالص الدعوات

[ياسر خليل أبو البراء]

في ٢٨‏/١٢‏/٢٠١٥ at 17:28, قلم-الاكسل said:

للعلم المهندس ياسر

عندي مشكلة وهو عندما اغير الاعداد في العمودين A و B

لا تظهر العناصر ولا المجاميع المكررة في H45 الا اذا قمت بتشغيل زر  RUN في كل مرة

 

أخي الكريم

بالفعل الكود مرتبط بتنفيذ الكود من خلال زر الأمر .. ويمكن ربط الكود بحدث التغير في نطاق معين ..

بالنسبة للمرفق هل يوجد مشكلة حيث أنني لا أرى أن هناك مشكلة من حيث المنطق المتفق عليه من البداية

راجع آخر قيمة مثلاً 560 ستجد أن النتائج صحيحة ...

تقبل تحياتي

[بن علية حاجي]

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

أخي الكريم، لقد تأخرت كثيرا بالرد عنك ذلك لأني لم أفهم المطلوب جيدا... وحسب ما قدمه أخي الكريم أبو البراء بارك الله فيه وجازاه الله خيرا (لا أستطيع حتى أن أبدأ كودا مثل الذي وضعه في الملف -زاده الله من علمه-) وحسب شرحك الأخير اتضح الأمر أكثر لكني لم أجد الطريقة التي أستخرج بها النتائج المطلوبة... الشيء الآخر الذي لم أفهمه ما هو الهدف من التكرارات وكل المجاميع التي وضعتها بالأسفل؟ هل هي فقط للمساعدة؟

وإن شاء الله، سأحاول أكثر في العمل على الملف وأرد عليك لاحقا إن لم يضع أحد الحل قبلي...

واعذرني على التأخير...

أخوك بن علية

 

[بن علية حاجي]

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

أخي الكريم، لقد قدّم لك أخونا أبو البراء الكثير والكثير في الموضوع وطلب منك طلبا بسيطا وهو التعرف عليك بالاسم ولم توفّ طلبه... المهم أقدّم لك العمل التالي في الملف المرفق والذي تم بالمعادلات (معادلات صفيف لاستخراج الثنائيات التي تتحقق فيها الشروط) وقد تم الاستغناء عن المجاميع غير الضرورية والتعديل على معادلات المجاميع في الجدول (والتي جعلت الجدول على شكل مثلث لتجنب التكرارت في الثنائيات -مثلا الثنائية (b,c) هي نفسها الثنائية (c,b) نحتسبها مرة واحدة-)

وهذا حسب فهمي للمطلوب والشروح التي قُدّمت... أرجو أن يكون كذلك وأن يفي بالغرض...

أخوك بن علية

مطلوب تعديل.rar

[قلم-الاكسل(عبدالعزيز)]

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

فعلا أبدعتما وامتعتما حتى ان الاكسل نفسه قد عجز كيف برمجتما هذان العملان الرائعان..

هو  ما كنت اطلبه فعلا بالفعل لا ريب فيه ولو جلست 40 عاما ابحث عن معين كإعانتكما لي لما وجدت أفضل وأسرع وأوسع قلبا منكما .. أخجلتماني بتعاونكما واحمر وجهي بإبداعكما.. إنني في الانترنت منذ زمن بعيد واكون عضوا بمواقع لكن ليس سرعة وتعاونا وابتكارا مثل هذا الموقع وبالخصوص الأستاذ الغالي المبتكر المهندس ياسر فهو أسر قلوبنا بعلمه قبل حلمه وبإبداعه قبل إمتاعه.. وكذلك أستاذنا وعزيزنا والغالي في قلوبنا المهندس المبدع بن علية حاجي أعلاك الله العلي في الدنيا والآخرة ..

رفع الله قدركما .. وأنار دربكما وفتح عليكما بركاته السرمدية ورزقكما صحة وعافية ملائكية وبركات سماوية يومية أبدية..وزرقكما غني لا فقر بعده بيده الربانية.. وحفظكما حفظه للوح المحفوظ.....وأركما خيرات وبركات ونعم لم تهطل على أحد من السابقين ولا اللاحقين.. وعلمكما علوما لم يسبقها أحد قبلكما من العالمين .

 شكرا لك بن علية وأخجلتني بمشاركتك مع انك سألتني ولم أرد لأنني لم ار المشاركة أصلا لأنه ربما كان الجهاز يتجمد (لا يتصل جيدا بالشبكة) وكانت مشاركتك أغنتني عن كثير من إزعاجي للمهندس ياسر ولأعضاء الموقع الأعزاء ..بارك الله لكما جميعا وبارك لكما في أهلكما وذريتكما وأولادكما وأرزاقكما .. اللهم آمين يا إله العالمين..

" آسف على التأخر في الاسم-جنب اسم المستخدم "

لقد تم المطلوب

شكرا للجميع وخصوصا الأستاذ المهندس ياسر رئيس جمهورية الأكسليين والأستاذ المهندس بن علية ملك مملكة المبدعين الأكسليين

تم تعديل ديسمبر 31, 2015 بواسطه قلم-الاكسل(عبدالعزيز)