ارجو المساعدة بكتابة هذة المعادلة بالكود

[فضل حسين]

الاخوة الافاضل المحترمين اعضاء وخبراء المنتدى العظيم

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

كل عام وسيادتكم بخير

مرفق ملف موضح به المطلوب 

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

وفى انتظار ردكم 

وشكرا

دالة بالكود.rar

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

جرب السطر التالي

Sub Test()
   Sheet2.Range("G2") = Application.Match(Sheet2.Range("A1"), Sheet1.Range("A1:A" & Sheet1.Cells(Rows.Count, "A").End(xlUp).Row), 0)
End Sub

 

[فضل حسين]

استاذى الفاضل / ابو البراء

سعدت بل شرفت بمشاركتك 

ولكن وللاسف ياسيدى الفاضل الكود لايعمل والظاهر به مشكلة

ولكن مااحب ان اوصله لسيادتك

انك ممكن تستخدم اى حلقة تكرارية بجانب كتابة المعادلة بالكود

والمشكلة عندى انا عارف ازى اكتب هذة المعادلة بالكود وتنفذ على نفس الورقة ,ويكون الكود فى نفس الورقة

ومش عارف اكتب هذة المعادلة بالكود وتنفذ الكود من الورقة الثانية على الورقة الاولى ويكون الكود فى الورقة الثانية

والكود اللى انا عارفه وعارف انفذه على نفس الورقة هو 

(a = WorksheetFunction.Match([$dl$2], [A3:cb3], 0

هذة الكود  كمثال لاى خلايا بيضع رقم الصف فى المتغير a

انا عايز انفذ نفس الكود ولكن وانا واقف فى الورقة الثانية لتنفيذة على الورقة الاولى

مع ملاحظة هامة ايضا  

عايز بدلا من استخدام المدى range   استخدم مكانها cells

اكرر شكرى وامتنانى لشخصكم الكريم  وجزاك الله كل خير

وفى انتظار ردكم الجميل 

 

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

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

حدد المشكلة بشكل أدق .. أو يمكنني إرفاق ملف فيه تطبيق للكود لتأكيد كلامي

أي حلقة تكرارية تتحدث عنها .. لا داعي لاستخدمها هنا ..

هل تقصد أنك تريد تطبيق الكود على مجموعة خلايا ؟ لو كان الأمر كذلك لما لم تذكر النطاق الذي تود تطبيق الكود عليه

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

[فضل حسين]

اتفضل يااستاذى الفاضل الملف وبه كود سيادتك

وسامحنى ياحبيبى انى انا شغال على اوفيس 2003

انا عارف انك الموضوع ده هايزعلك قوى 

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

وسامحنى ولاتغضب منى

وشكرا

2دالة بالكود.rar

[خالد الرشيدى]

السلام عليكم

بعد اذن استاذى أبـــو البراء

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

Sub Test()
   ورقة2.Range("G2") = Application.Match(ورقة2.Range("A1"), ورقة1.Range("A1:A" & ورقة1.Cells(Rows.Count, "A").End(xlUp).Row), 0)
End Sub

تفقد الرابط التالى ليصبح الامر اكثر وضوحاً

https://www.youtube.com/watch?v=4rz56EHfm3w

 

[فضل حسين]

جزاك الله كل خير يااستادى

انا اريد اضع ناتج هذا الكود فى متغير وليكن a

استئذن حضرتك بكتابة الكود ووضع قيمته فى المتغير a

للتوضيح اكثر وبشكل تفصيلى

مرفق الملف 

واسف اذا كنت اثقلت عليكم

وشكرا

التوضيح.rar

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

جرب الكود التالي عله يفي بالغرض

Sub Test()
    Dim I As Long, A

    With Sheet2
        For I = 1 To .Cells(Rows.Count, "A").End(xlUp).Row
            If .Cells(I, "B") = "غ" Then
                A = Application.Match(Sheet2.Range("A" & I), Sheet1.Range("A1:A" & Sheet1.Cells(Rows.Count, "A").End(xlUp).Row), 0)
                If IsNumeric(A) Then MsgBox A
            End If
        Next I
    End With
End Sub

 

[فضل حسين]

استاذى الفاضل /  ابو البراء

تسلم الايادى ياباشا وربنا يخليك لنا ودايما تكون لنا المعلم والمنقذ

الف شكر ياباشا  وجزاك الله كل خير 

هو ده المطلوب بالفعل

داعين لك ان تكون هذة الاعمال الجليلة فى ميزان حسناتك اللهم امين 

تعلمنا منك الكثير ومازلنا نتعلم ياباشا 

تم تعديل سبتمبر 2, 2015 بواسطه فضل 1