تعديلات جديدة على كود ترتيب العشرة الاوائل(بعدة اختيارات)

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

السلام عليكم

تعديلات جديدة على كود ترتيب العشرة الاوائل(بعدة اختيارات)

الميزه الاولى يعمل تلقائيا من الاختيارات من القوائم

نقل الكود الى ملفك:

اضغط بيمين الماوس على تبويب الورقة

اختار نقل ونسخ

اختار المصنف الذي تريد نقل النسخة اليه

وحفز انشاء نسخة

سينتقل الكود بمعية الورقة

لان موقع الكود في نفس الورقة

راس وتذييل فارغ

مكون من 8 صفوف

اكتب ماتريده بدون تقييد

المعطيات الضرورية والتي تناسب عملك

مكانها بداية الكود وهو في موديل الورقة نفسها

'============================================================

'============================================================

'      نطاق البيانات اما ان يكون اسم لنطاق

'        او عنوان النطاق  مع اسم الورقة

Private Const My_Date As String = "الشيت!$A$11:$EA$1000"


'ارقام الاعمدة  توضع بالنسبة لنطاق البيانات المسمى وليس للورقة


'         عمود رقم الجلوس

Private Const cSeat_Number As Integer = 2

'           عمود الاسم

Private Const cStudents As Integer = 3

'           عمود الفصل

Private Const cClass As Integer = 13


'============================================================

'   قيمة اصغر مجموع(الدرجة) يتم اظهاره

Private Const MinDegree As Double = 50


'============================================================

'============================================================

الميزة الاكثر جمالا هي فرز تلقائي بالكود بدون استخدام الفرز الخاص ببيانات الاكسل

سريع جدا في اظهار النتائج

جمعه مباركة لكم ولنا

ودمتم في حفظ الله

ترتيب العشرة الاوائل5.rar

[جلال محمد]

اخى الكريم خبور

الحمد الله علي ان اكون اول من يشاهد الموضوع

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

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

فجزاك الله عنا وعن جميع المسلمين كل خير

وجعله الله اعمالك في موازين حسناتك

[zine pef]

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

[خالد الشاعر]

استاذى القدير خبور

مبدع فى كل اعمالك

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

لى رجاء هل ممكن تجميع كل تعدلات الجدول فى عمل واحد

للاستفادة منه للجميع

و لك كل الشكر و جعلها الله فى ميزان حسناتك

[هشام كوكب]

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

[ابو الآء]

بارك الله فيك

انت حقا مثالا نادرا على العطاء

رجاء لا تحرمنا من استكمال جمع اعمالك فى كنترول واحد

لكى يكون مرجع موحد لنا

جمعة مباركة

[بوحماد]

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

[عبد الفتاح كيرة]

شكرا أستاذنا الفاضل

على هذه الدرة الغالية

نفع الله بك المسلمين

وجزاك خيرا

[احمد محمد على]

اخى وعالمنا خبور خير

شكرا لك على كل ابداعاتك

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

وعلى فكره الاعمال الخاصة بالمدرسين كترت جامد ممكن شوية للمحاسبين( بضحك معاك احنا خدنا حقنا ببرامج خبور للمحاسبة)

[ابو القبطان]

ماشاء الله استاذنا : خبور

اعمالك .. اعجازات

ولكن .. أضم صوتي لصوت اخوناmido21

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

السلام عليكم

الافاضل / جلال - زين - خنانا - ابو آلاء - هشام كوكب - باست - ميدو - باست

كيماس - حسن علي ---------------------------حفظكم الله

اكرمكم الله وعافاكم من كل مكروه

لكم مني جزيل الشكر والتقدير

[عبدالله المجرب]

ماشاء الله عليك استاذنا الفاضل الكريم خبور

زادك الله من علمه ونفع الله بك المتعطشين الى العلم

ومليار مليون شكر على هذه الدره الجميله

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

ماشاء الله

تبارك الله أحسن الخالقين

عمل ولا أروع

حفظك ربنا ورعاك

[الجزيرة]

ما شاء الله عليك

بالفعل هي درر

من أخ كريم ومبدع وخلوق

بارك الله فيك وفي علمك : )

[عادل حنفي]

السلام عليكم

اخي الحبيب خبور

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

تحياتي

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

لسلام عليكم

الاخ الفاضل/ ولد المجرب ________حفظك الله

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

اكرمك الله

حبيبي محمدي / طمني عليك اخي برسالة

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

اخي عادل بارك الله فيك

نحب تواجدك معنا دائما

تقبلوا مني جزيل الشكر والتقدير

ودمتم في حفظ الله

[naderwatfa]

الله الله الله

إبداع متميز و كود جميل جداً

شكراً أخي الحبيب خبور خير على هذه الهدية الرائعة

[أم عبد الله]

[b]أخونا في الله الأستاذ / خبور

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

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

[أم عبد الله]

[b]أخونا في الله الأستاذ / خبور

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

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

[cat101]

ما شاء الله عليك

بالفعل هي درر

من أخ كريم ومبدع وخلوق

بارك الله فيك وفي علمك : )

ما شاء الله عليك

بالفعل هي درر

من أخ كريم ومبدع وخلوق

بارك الله فيك وفي علمك : )

[قصي]

رابط استخراج الشهادات

http://www.officena.net/ib/index.php?showtopic=33778

[قصي]

http://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_id=38007

الشهادات بالصور جديد

[قصي]

السلام عليكم

استخدم هذا الكود للحذف

Sub kh_Delete_AllShape()

    Dim shp As Shape

    Dim U As Integer

    For Each shp In Sheet3.Shapes

        If shp.Type = 8 Or shp.Type = 4 Or shp.Name = "Group 6394" Then GoTo 1

            shp.Delete

1:

    Next shp

End Sub

هذا سيقوم بحذف الصور والاطارات ما عدى الاطار الخاص بالشهادة الاولى

ويبقي الازرار والتعليقات

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

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

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

من باب تجميع الاعمال المرتبطة

بالعالم الكبير خبور خير

لاستخراج الشهادات نضع هذه المشاركه

==

السلام عليكم

لى سؤال اخر فى الكود وهو ما فائدة الرقم 8 والرقم 4 فى الكود

وقد اخبرتك التالي

هذا سيقوم بحذف الصور والاطارات ما عدى الاطار الخاص بالشهادة الاولى

ويبقي الازرار والتعليقات

الاطار الخاص بالشهادة الاولى استدلينه علية بالاسم وهو "Group 6394"

الازار والتعليقات استدلينه عليها بنوعية الكائن

نوع الكائن الزر هو msoFormControl او الرقم 8

نوع الكائن التعليقات هو msoComment او الرقم 4

===============================================

وساعطيك كود مختصر انت بعد استخدام زر المسح والخفظ

سيبقى معاك فقط الاطارات التي قمت باضافتها

وسيكون ارتفاع هذه الاطارات بعد حذف الصفوف العدد صفر

اذن استخدم هذا الكود :

Sub kh_Delete_Group()

    Dim shp As Shape

    Dim U As Integer

    For Each shp In Sheet3.Shapes

        If shp.Height = 0 Then shp.Delete: U = U + 1

    Next shp

    MsgBox U

End Sub

جرب واخبرنا بالنتيجة