(موضوع مميز) ترتيب السري لكنترول المدارس (الادخال عبر فورم)

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

السلام عليكم

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

الادخال عبر فورم

امكانية ادخال البيانات مع فرز ترتيب السري

تجهيز طباعة المجموعات

ظهور الفورم بكلمة سر وهي

123

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

تفضلوا المرفق اكسل 2003-2007

الرقم السري لكنترول المدارس.rar

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

ملاحظة هامة

يجب تغيير كود الفرز المربوط بزر فرز عكسي الى الكود ادناه في المرفقات اعلاه

لان الكود السابق يفشل في عكس الفرز في بعض الحالات

Sub kh_Sort()

Dim c As Integer

Static ibool As Boolean

c = ibool + 2

With Range("I7:J7")

	Range(.Cells, .Cells.End(xlDown)).Sort .Columns(c), xlAscending

	.Columns(c).Activate

End With

ibool = Not ibool

End Sub

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

[جمال الفار]

السلام عليكم

اخى واستاذى الغالى

خبور خير

عمل رائع

دائما تتحفنا وتذهلنا باعمالك التى

تبهر العيون وتحير الالباب

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

وسدد خطاكم

اخيك

جمال الفار

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

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

فضلك الله بجنة عرضها السماوات والارض

عمل ولاأروع جزاك الله خيرا

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

العالم العلامه والبحر الفهامه

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

ميزة ترتيب المجموعات

كرما منك

ضفها في الملف

[mhrrd]

عمل رائع

دائما تتحفنا وتذهلنا باعمالك التى

تبهر العيون وتحير الالباب

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

وسدد خطاكم

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

استاذى خبور خير

مبدع مبدع مبدع دائماً

تسلم ايدك و جزاك الله خيراً

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

السلام عليكم

ما شاء الله عليك استاذ عبدالله

مدرسة أكواد

كل يوم تبهرنا بجمال الاكسل

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

ان شاء الله في ميزان حسناتك

[saad abed]

استاذى عبدالله باقشير

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

وان يرزقك مالا ولولدا

اللهم امين

سعد عابد

[man_ay2000]

لى طلب واكون شاكر جدا

لما بشتغل السرى اجعل رقم الجلوس الفردى يقابلة رقم سرى فردى ورقم الجلوس الزوجى يقابلة رقم سرى زوجى كى اكون مطمئن اننى لم اخطئ اثناء دق السرى ولم انسى دق رقم او ورقة مع اخرى

مثال

جلوس من 1 الى 15 يكون سرى مثلا من91 الى 105

وجلوس من 16 الى 30 يكون سرى من 136 الى 150

فهل يمكن اضافة هذه الخاصية

[saffaa]

السلام عليكم

ما شاء الله عليك استاذ عبدالله

مدرسة أكواد

كل يوم تبهرنا بجمال الاكسل

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

ان شاء الله في ميزان حسناتك

نريد زيادة عمود يسمى عدد كل مجموعه للسري ورقم الجلوس

صوره رقم السري.rar

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

السلام عليكم استاذ عبدالله

جزاك الله خيراً كثيراً على هذا العمل الرائع

العمل رائع جداً كما قال الأخوة انك مدرسة أكواد نتعلم منك كل جديد

لقد احببنا برنامج الأكسيل وأحببنا الأكواد من عظمة ودقة أعمالك الرائعة

جزاك الله خيراً ومتعك الله بالصحة والعافية وجعله الله فى ميزان حسناتك

[mhrrd]

الاستاذ عبد الله باقشير

الفورمه جميله ولكن عايز اعرف كيف تم الربط بين فورمة السري وفورمة تنفيذ ترتيب السري في الكود

[الشهابي]

الأستاذ / عبد الله باقشير

زادك الله علماً ورفعة ووفقك الله دائماً لخدمة إخوانك جزاك الله خير

تم تعديل يناير 31, 2012 بواسطه الشهابي

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

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

الشكر واصل لجميع المشاركين اعلاه

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

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

ملاحظة هامة

يجب تغيير كود الفرز المربوط بزر فرز عكسي الى الكود ادناه في المرفقات اعلاه

لان الكود السابق يفشل في عكس الفرز في بعض الحالات

Sub kh_Sort()

Dim c As Integer

Static ibool As Boolean

c = ibool + 2

With Range("I7:J7")

		Range(.Cells, .Cells.End(xlDown)).Sort .Columns©, xlAscending

		.Columns©.Activate

End With

ibool = Not ibool

End Sub

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

لى طلب واكون شاكر جدا

لما بشتغل السرى اجعل رقم الجلوس الفردى يقابلة رقم سرى فردى ورقم الجلوس الزوجى يقابلة رقم سرى زوجى كى اكون مطمئن اننى لم اخطئ اثناء دق السرى ولم انسى دق رقم او ورقة مع اخرى

مثال

جلوس من 1 الى 15 يكون سرى مثلا من91 الى 105

وجلوس من 16 الى 30 يكون سرى من 136 الى 150

فهل يمكن اضافة هذه الخاصية

هل ينفع معاك في تحقيق طلبك

زيادة الفارق الرقمي بين اول رقم للجلوس واول رقم للسري

الى المجموعات للرقم السري

لكن لن تتغير مواقع السري عشوائيا

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

استاذى عبد الله

عند تجربة الكود الفرز الجديد يعطى مشكلة فى هذا السطر

Range(.Cells, .Cells.End(xlDown)).Sort .Columns©, xlAscending

برجاء الافادة عن المشكلة

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

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

السلام عليكم

ما شاء الله عليك استاذ عبدالله

مدرسة أكواد

كل يوم تبهرنا بجمال الاكسل

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

ان شاء الله في ميزان حسناتك

نريد زيادة عمود يسمى عدد كل مجموعه للسري ورقم الجلوس

سارفق طلبك هذا في موضوع منفصل

بعد التاكد من هذا هو المطلوب

في المرفق sample.rar

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

استاذى عبد الله

عند تجربة الكود الفرز الجديد يعطى مشكلة فى هذا السطر

Range(.Cells, .Cells.End(xlDown)).Sort .Columns©, xlAscending

برجاء الافادة عن المشكلة

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

لا توجد عندي هذه المشكلة

شاهد المرفق

الرقم السري لكنترول المدارس.rar

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

الاستاذ عبد الله باقشير

الفورمه جميله ولكن عايز اعرف كيف تم الربط بين فورمة السري وفورمة تنفيذ ترتيب السري في الكود

ممكن توضيح اكثر

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

استاذى عبد الله

اشكرك الكود اشتغل كويس

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

[قصي]

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

واثابكم عليه

[man_ay2000]

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

تم تعديل فبراير 3, 2012 بواسطه man_ay2000

[man_ay2000]

لى طلب واكون شاكر جدا

لما بشتغل السرى اجعل رقم الجلوس الفردى يقابلة رقم سرى فردى ورقم الجلوس الزوجى يقابلة رقم سرى زوجى كى اكون مطمئن اننى لم اخطئ اثناء دق السرى ولم انسى دق رقم او ورقة مع اخرى

مثال

جلوس من 1 الى 15 يكون سرى مثلا من91 الى 105

وجلوس من 16 الى 30 يكون سرى من 136 الى 150

فهل يمكن اضافة هذه الخاصية

هل ينفع معاك في تحقيق طلبك

زيادة الفارق الرقمي بين اول رقم للجلوس واول رقم للسري

الى المجموعات للرقم السري

لكن لن تتغير مواقع السري عشوائيا

معلش الموضوع ده مهم جدا (ان يكون رقم الجلوس الفردى يقابله رقم سرى فردى والزوجى يقابله زوجى والعكس )

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

[الـعيدروس]

السلام عليكم

الاستاذ الحبيب عبدالله باقشير (خبور خير) حفظك الله ورعاك

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

تقبل مروري

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

السلام عليكم أستاذ عبدالله

أريد أن أعرف ما وظيفة زر فرز عكسى فى العمل وما أهميته

وشكراً