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

إختيار قيمتين لإستخراج الثالثة


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

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


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

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

الاخ رجب

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

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

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

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

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

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

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

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

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

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

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

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

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

الاخ رجب

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

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

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

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information