اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

ملاحظة هامة

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

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


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

لو سمحت استاذ عبد الله ضعه في ملف لاني مش عارف

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

السلام عليكم

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

مدرسة أكواد

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

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

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

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

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

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

في المرفق sample.rar

نعم هذا هو المطلوب استاذنا الفاضل

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

جزاك الله عنا خير الجزاء . إلا أني أطمع بأكثر من ذلك .

كيف لي من عمل مثل هذا العمل الرائع مع العلم أني ملم بقدر كبير من الاكسيل والأكسيس ... تقبل تحياتي

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

توجد ملحوظه مهمه فعلا وهي اننا نحتاج لارقام الجلوس وارقام السري في ورقة الشيت

وربما مع وجود المجموعات المختلفه نخطئ في نقل هذه الارقام ولذا ارجو طريقه لنقلها في الشيت

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

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

توجد ملحوظه مهمه فعلا وهي اننا نحتاج لارقام الجلوس وارقام السري في ورقة الشيت

وربما مع وجود المجموعات المختلفه نخطئ في نقل هذه الارقام ولذا ارجو طريقه لنقلها في الشيت

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

لا يحتاج لها كود

العملية نسخ لصق تفي بالغرض

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

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

لاعماله الطيبه وكل رفقائه في المنتدى من الخيراء والعلماء

نتعشم في اضافة عمود لكتابة ترتيب مجموعة ارقام الجلوس مثل ترتيب السري

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

من فضلك سجل دخول لتتمكن من التعليق

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



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

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

Important Information