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

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

قام بنشر

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

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

دمتم في رعاية الله وحفظه

  • Like 1
قام بنشر

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

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LR As Integer, x As Integer
Dim sh As Worksheet
Set sh = Sheets("ورقة3")
LR = sh.[F10000].End(xlUp).Row

If Target.Address = [G2].Address Then
[E5:G1000].ClearContents
x = 5
For Each cl In sh.Range("G6:G" & LR)
    If cl = [G2] Then
        Range("F" & [F10000].End(xlUp).Row + 1) = cl.Offset(0, -1)
        Range("E" & [E10000].End(xlUp).Row + 1) = x - 4
        x = x + 1
    End If
Next
End If
Set sh = Nothing
End Sub

يعمل عند اختيار المادة من القائمة المنسدلة

النشاط2.rar

  • Like 2
قام بنشر

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

المتألق دائما في حلوله وابدعاته الاخ الكريم الاستاذ رجب جاويش

سلمت والله علي طرحك المتميز دائما

دمت ودامت ابدعاتك لنا وبارك الله لك في علمك وعملك ورزقك واولادك

تقبل تحياتي

قام بنشر (معدل)

أستاذى ومعلمى الرائع الجميل ( رجب جاويش ) ماشاء الله عليك معادلات أكواد شئ رائع بجد بارك الله فيك

ولأثراء الموضوع هذا حل أخر وإن كان يوجد العديد من الطرق الذى ليس لها نهاية لتحقيق طلب أخى السائل

ترحيل بيانات3.rar

ترحيل بيانات4.rar

تم تعديل بواسطه mahmoud-lee
  • Like 3
قام بنشر

أخى الفاضل / ضاحى الغريب

جزاك الله كل خير أخى الفاضل على هذه الكلمات العطرة والدعاء الطيب

الذى أدعو الله أن يعطيك بمثل هذ الدعاء أضعافا مضاعفة

قام بنشر

استاذى الجليل رجب جاويش

لك الشكر والتحية والامتنان

فانت بحق زهرة عطرة في حديقة اوفيسنا

جزاك الله خيرا بعلمك

والتحية واجبة للدينامو الرائع دائما استاذى  mahmoud-lee الذى لا يتوانى في تقديم المساعده للجميع

  • 6 years later...

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

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

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

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

سجل حساب جديد

تسجيل دخول

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

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

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

Important Information