اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

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

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

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

وشكرا

دالة بالكود.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

 

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

(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

 

رابط هذا التعليق
شارك

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

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

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

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

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

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

تم تعديل بواسطه فضل 1
  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information