مطلوب كود للفرز للورقة النشطة

[الشهابي]

أولا قبل البدء في الموضوع عند الكتابة في خانة عنوان الموضوع لا تظهر الكتابة لا أدري ما السبب ؟

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

فأنا عملت كود للفرز عن طريق تسجيل الماكرو ومن ثم كررته لجميع الأوراق فأصبح لكل ورقة كود خاصة بها مما زاد في عددها وأدى إلى كبر حجم الملف

فضلا أريد اختصار الكود بحيث يكون واحد فقط وعندما تكون أي ورقة نشطة ينفذ فيها

والمطلوب كودين كود للفرز حسب عمود الاسم (فرزهجائي) من الألف إلى الياء ، وكود آخر للفرز حسب عمود الشعبة ( فرز من الأصغر إلى الأكبر) وجزاكم الله خير

ترحيل الصفوف.rar

تم تعديل أكتوبر 14, 2011 بواسطه الشهابي

[ياسر الحافظ]

الاخ العزيز الشهابي

من الافضل ارفاق ملف توضيحي ( مع مثال ) لسهولة الاستيعاب

وحتى يتمكن الاساتذة من اجابتك بشكل احترافي

وفقك الله

ابو الحارث

[الشهابي]

جزاك الله خير أخي ياسر الحافظ لقد قمت بإرفاق الملف لكن كان حجمه كبيرا ومن ثم أرفقت ملف آخر من خلال التعديل من مشاركة سابقة بعنوان ترحيل الصفوف حتى أني لم أعدل اسمه وهو موجود في المشاركة بعد تعيلها والعفوا منكم

بالنسبة للتوضيح أكثر موجود في الملف ثلاث أوراق ( السابع ، والثامن ، والتاسع ) متشابهه المطلوب أن ينفذ الكود على فرز البيانات في الجدول في النطاق من (D16:AT515) حسب العمود ( D ) عمود اسم الطالب رباعي وكود آخر حسب العمود ( M) عمود الشعبة لكل منهما زراً خاصة به ينفذان في الورقة النشطة إن شاء الله وصلت الفكرة والعفو مرة أخرى

[ياسر الحافظ]

اعتذر منك استاذنا الشهابي

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

وخاصة انني غير مدرس ولااعرف بشؤون المدارس ... ولكن بوجود مرفق ربما يمكن المساعدة

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

وفقك الله

ابو الحارث

[هشام شلبى]

السلام عليكم

======

على حسب مافهمت من طلبك

HH.rar

[دغيدى]

أخى ***** هشام

السلام عليكم

======

صياحك سكر .. أشكركم على الدرر

[ياسر الحافظ]

تسلم ايدك استاذنا " هشـــــــــــــــــــام "

وفقك الله

ابو الحارث

[هشام شلبى]

السلام عليكم

=======

استاذ ***** دغيدى

استاذ *****ياسر

فى الحقيقة ما شاء الله عليكم لا تدخران فرصة الا وتتحفونا بمشاركتكم

فوالله اقتنصتها فقط قبلكم ولكم كل الشكر والاحترام

جمعة مباركة عليكم

[saad abed]

أخى ***** هشام

السلام عليكم

======

صياحك سكر .. أشكركم على الدرر

اخى هشام شلبى

صدق عميدنا دغيدى فهى درر بحق

سعد عابد

[دغيدى]

السلام عليكم

=======

استاذ ***** سعد عابد

جمعة مباركة عليكم

[جمال الفار]

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

عمل رائع من استاذ اروع

اعمالك دائما تتحفنا

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

[فضل حسين]

استاذى واخى / هشام

حل رائع وجميل تسلم العقول المبدعة والايادى الجميلة التى سطرت الحل .

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

فانت شخصية ذات خلق عالى وتستحق كل خير .

فضل

[الشهابي]

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

[محمد يحياوي]

اسلوب جديد في الفرز مبني على الخدع السنمائية بالظغط على راس العمود تحدث الفرز حسب هذا العمود

هذا الكود ينطبق على اي ورقة تضيفها لكن .... ملاحظة هناك في راس العمود اشكال تلقائية (مستطيلات) لا تحاول تغييرها

فرز عن طريق الضغط.rar

[saad abed]

اخى يحياوى

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

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

myTable.Sort key1:=.Cells(FirstRow, myColToSort), _

order1:=mySortOrder, _

header:=xlYes

السؤال لماذا علما بانى استخدم 2007

[محمد يحياوي]

اخي "سعد" نصيحة استعمل office 2010 لانه متطور و في نفس الوقت متوافق مع الاصدارات السابقة

[ياسر الحافظ]

اخي واستاذي العزيز " يحياوي "

حصل معي مثل ما حصل مغ اخي سعد عابد

مع العلم انك نصحتني " سابقا " باستخدام اوفيس 2010 ولكنني لم اجد نسخة كاملة " معظم النسخ - تطلب تفعيل او تنشيط -

اشكرك على النصيحة وسوف احاول تأمين تأمين نسخة اوفي 2010 جيدة

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

وفقك الله

ابو الحارث

[محمد يحياوي]

الاخ الحبيب "سعد عابد" الاخ الحبيب "ابو الحارث" جرب هذا الملف

click.rar

[أبو آدم]

أخي العزيز هشام

رغم أن من مثلي لا يقيّم من مثلك

ولكن الشهادة بالحق تلزمني القول : أن ما قدمته رائع : إبداع و.... فقط إبداع لا غير

أخي الحبيب اليحياوي

أما أنت فقد أعطيت بعدا جديدا لمعنى ومدلولات كلمة (خبير) ، حيث أصبحت مدلولاتها (لا متناهية)

ألزمتني إستحداث مجلد جديد في مكتبتي (إبداعات عربية بنكهة جزائرية)

شكرا .... شكرا

..............

[MAHMOUD ALI YOUSSEF]

السلام عليكم

استاذ يحياوي

واستاذ ياسر الحافظ

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

مع حفظ الالقاب

اعمالكم الرائعة تنطبع في عقولنا ونتعلم منها الكثير

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

وتحياتي للاستاذ دغيدي والاستاذ سعد العابد

وتقلوا مروري :fff:

[الـعيدروس]

السلام عليكم

هذا المنتدى جزيرة استخراج الكنوز

كل يوم نكتشف اشياء فيه

ماشاء الله عليكم الله يزيدكم من فضله وعلمه امين

والسلام عليكم

[saad abed]

اخى وحبيبى يحياوى

هدية مقبولة شكرا لك

تحياتى

سعد عابد

[محمد يحياوي]

الاخ الكريم "محمود" تشكر على التحية الطيبة ولك بالمثل

الاخ الفاضل "نارت" كلامك عذب و اخلاقك جميلة ماشاء الله كلام مثل الشهد

الاخ الحبيب "ابو نصار" الله يديم المودة و الالفة و بارك الله فيك

الاخ "سعد" افهم من كلامك ان الملف ليس فيه مشكلة

[الشهابي]

الأخ يحياوي عمل جميل ومبدع جعله الله في ميزان حسناتك

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

عندي ملف بنفس الطريقة حملته قبل فترة وكوده بسيط ويعمل مع حماية الورقة بس لا بد من إزالة تأمين الخلايا كلها هل ممكن التعديل عليه لتحديد أعمدة معينة من أجل تأمين بقية الخلايا وحفظها من العبث جزاكم الله خير

الملف المرفق

الفرز بالنقر على رأس العمود.rar