طلب المساعدة بكود فى الملف المرفق

[ابو الآء]

السلام عليكم

لدى ملف استعلمه بكثرة

وهو خاص بشئون الطلبه

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

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

المعادله فى شيت قائمه الفصل

دادموني.rar

تم تعديل نوفمبر 4, 2013 بواسطه دغيدى

[عبدالله باقشير]

السلام عليكم

 

تم استبدال المعادلة بمعادلة خفيفة الحجم

=MATCH($F$2;OFFSET(ةالفصل;$A9;;ROWS(ةالفصل)-$A9);0)+$A9

وتم استبدل المعادلات في الجدول بمعادلات خفيفة الحجم

 

جرب الملف واشعرني بالنتيجة

شاهد المرفق2003

دادموني.rar

[ابو الآء]

استاذى الفاضل شرف كبير لى مرور على موضوعى اولا الحل الذى تفضلت به جميل جدا ولكن فى الملف الكامل يوجد اكثر من 30 شيت يعتمد على نفس المعادله ولكن فى تغيير فى العمود المراد البحث فيه والملف اصبح ثقيل جدااا وبعض المادرس التى تعمل على الملف عدد الطلبه كبير جداا وبذلك حم الملف قد يصل فى بعض الاحيان الى 50 ميجا ويصبح ثقيل جداا فى الفتح والماعدلات تحسبب ببطء شديد وكنت قد نويت ان اقوم باستخدام فورم الادخال الزى تكرمت علينا به فعند تجربه الفورم لا يعمل مع الملف الكامل بصوره سريعه وكنت اظن ان اكود ثوف يكون اخف فى العمل من المعادلات ============== ارجوا ان اكون قد اوصلت طلبي اليكم ======== وارجو منك ان تحول لى المعادله الى كود وتخصص لى خليه احدد فيها رقم العمود المراد البحث فيه ========== بارك الله فيك وجعله فى ميزان حسناتك

[عبدالله باقشير]

استاذى الفاضل شرف كبير لى مرور على موضوعى اولا الحل الذى تفضلت به جميل جدا ولكن فى الملف الكامل يوجد اكثر من 30 شيت يعتمد على نفس المعادله ولكن فى تغيير فى العمود المراد البحث فيه والملف اصبح ثقيل جدااا وبعض المادرس التى تعمل على الملف عدد الطلبه كبير جداا وبذلك حم الملف قد يصل فى بعض الاحيان الى 50 ميجا ويصبح ثقيل جداا فى الفتح والماعدلات تحسبب ببطء شديد وكنت قد نويت ان اقوم باستخدام فورم الادخال الزى تكرمت علينا به فعند تجربه الفورم لا يعمل مع الملف الكامل بصوره سريعه وكنت اظن ان اكود ثوف يكون اخف فى العمل من المعادلات ============== ارجوا ان اكون قد اوصلت طلبي اليكم ======== وارجو منك ان تحول لى المعادله الى كود وتخصص لى خليه احدد فيها رقم العمود المراد البحث فيه ========== بارك الله فيك وجعله فى ميزان حسناتك

 

الكود في موديل الورقة

ويتم التشغيل عند اختيار الفصل من القائمة في الخلية F2

ورقم العمود في الخلية A1 

ويتعامل الكود مع النطاق data

Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Integer, RR As Integer, CC As Integer
If Target.Address = Range("F2").Address Then
    CC = [A1]
    Application.ScreenUpdating = False
    Range("A10:A300").ClearContents
    With ThisWorkbook.Names("data").RefersToRange
        For R = 1 To .Rows.Count
            If CStr(Target) = CStr(.Cells(R, CC)) Then
                RR = RR + 1
                Range("A10").Cells(RR, 1).Value = R
            End If
        Next
    End With
    Application.ScreenUpdating = True
End If
End Sub

شاهد المرفق 2003

دادموني1.rar

[محمدي عبد السميع]

ماشاء الله أحسن الخالقين

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

[أبو محمد عباس]

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

الاستاذ والعالم العلامة عبد الله باقشير حفظكم الباري عز وجل

عمل رائع نسال الله سبحانه وتعالى ان يديم عليك نعمة العلم والمعرفة

ويزيدك من فضله ويرزقك خير الدنيا وخير الاخرة

تقبل فائق الاحترام والتقدير

[ابو الآء]

اسف على تأخرى فى الرد

استاذى الكبير بسبب ظروف النت

سوف اقوم بتحميل الملف ونقل الكود للملف الكامل والتجريب

بامر الله سوف اقوم بالرد بعد التجريب

اسف للمره الثانيه لان النت لدى وحش جدا