اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

الأخ / رجب

الأخ / بن علية

هكذا تعودنا منكم دائماً ، قدرة فائقة على تطويع المعادلات

بالفعل أنتم عباقرة.

لكما خالص شكرى وتقديرى

أخوكم

عيد مصطفى

قام بنشر

وهذا حل آخر عن طريق الكود


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = [B2].Address Or Target.Address = [C2].Address Then

For Each cl In [A6:A25]: For Each cll In [B6:F4]

If cl = [B2] And cll = [C2] Then [D2] = Cells(cl.Row, cll.Column).Value

Next: Next

End If

End Sub

حيث يتم تنفيذ الكود بمجرد الإختيار من الخلية B2 أو الخلية C2

الرتب والدرجات.rar

قام بنشر

الاخ رجب

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

فما اجمل واروع حلولك بالمعادلات

وما اروعها اكثر واكثر باالاكواد

كلنا نتعلم منك

وندعو الله ان نصل الى مستواكم باذن الله

قام بنشر

أحى الحبيب / ابراهيم

شكرا جزيلا على هذه الكلمات الطيبة

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

وبالنسبة للمستوى أخى الفاضل

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

مثل الأستاذ / عبد الله باقشير والأستاذ / عبد الله المجرب والأستاذ / الخالدى وغيرهم الكثير

قام بنشر

الاخ رجب

انا فعلا احاول بقدر الامكان طالما كان وقتى يسع لذلك

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

وخصوصا اعمال كل الاساتذه الذين ذكرتهم

وبارك الله فيك

وجزاء خيرا على النصيحه

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

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

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
×
×
  • اضف...

Important Information