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

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

قام بنشر (معدل)

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

هل يمكن عمل فرز للبيانات مع وجود حماية للصفحة

مرفق الملف المطلوب التعامل معه

كلمة سر فك حماية الـ VBA هى  Hatem

وشكرا لكم جميعا

كشف المتقدمين للصف الأول 2015 2016.rar

تم تعديل بواسطه حاتم عيسى
إرفاق الملف
قام بنشر (معدل)

تفضل اخى الكريم

المطلوب بالمرفق على حسب ما فهمت

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

 كشف المتقدمين للصف الأول 2015 2016.rar

 

 

 

 

تم تعديل بواسطه خالد الرشيدى
قام بنشر

أولا : أتقدم بخالص الشكر والتقدير للأستاذ : خالد الرشيدى

على سرعة الرد وتم عمل اللازم .

ثانيُا : أخي الفاضل وكل المشرفين والرواد الأفاضل :
تم إخفاء شريط القوائم ولا أعرف كيف تم ذلك .

فهل هناك طريقة لإظهار شريط القوائم مرة أخرى على الأوفيس 2003 ( أكس بي )

ولجميع حضراتكم جزيل الشكر والتقدير

قام بنشر (معدل)

شكرا لحضرتك على توجيهاتك

ولكن معذرو عند تجدرب ةالملف وجد هناك خطأ بسيط وهو عند ترتيب الأسماء أبجديًا يدخل البنات مع البنين في الابجدة

المطلوب بعد إذن حضرتك ترتيب الذكور جميعًا أولا ومن ثم ترتيب الإناث .

ولحضراتكم جميًا جزيل الشكر والعطاء .

تم تعديل بواسطه حاتم عيسى
قام بنشر

أخي الكريم حاتم

صراحة تصميم الورقة سيء للغاية .. لا تستعجل الحكم على أخوك واعرف السبب

إذا كنت ستتعامل مع الأكواد فابتعد عن دمج الخلايا

اطلعت على ورقة العمل فوجدت الدمج أمر وارد في كل أنحاء الورقة وكأنك تعشق الدمج ..لما لا تقوم بتوسيع عرض العمود بدلاً من الدمج ..

حاولت صياغة الأكواد ولكن تظهر الأخطاء بسبب الدمج

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

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

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

قام بنشر

أخي الكريم حاتم

محرر الأكواد محمي وأوراق العمل محمية .. .... ... راجع موضوع التوجيهات

أخي الغالي خالد

ما هو الكود ..أنا تهت في محرر الأكواد ..من كثرة الموديولات

يفضل إرفاق الكود في المشاركة إذا أمكن

ثانياً ورقة العمل محمية ؟ كيف ربطت  الماكرو ع زر الأمر الموجود  . ؟؟ لابد وأنه قد تم كسر الملف ؟؟؟؟.

الملف دا تعبني ..والله

 

 

قام بنشر

استاذى الحبيب ياسر خليل

رمز مرور الاكواد كما تم زكرة فى السؤال Hatem اما عن حماية ورقة العمل

فانا من قام بحمايتها بكود افتراضى  111  حتى يرى الاخ حاتم كيف انه يلغى الحماية قبل الكود ثم يعيد حمايتها فى نهاية الكود استجابة لاستفسارة

اما عن الموديول الذى تم العمل علية هو موديول 17

Sub ÃÈÌÏí_2016()

   ActiveSheet.Unprotect "111"
   
   Application.ScreenUpdating = False
   
    Range("B6:BC265").Sort Key1:=Range("H6"), _
      Order1:=xlDescending, Key2:=Range("N6"), Order2:=xlAscending, _
      Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
      Orientation:=xlTopToBottom
    
    ActiveSheet.Protect "111"
    
    Application.ScreenUpdating = True
End Sub

 

قام بنشر

بارك الله فيك أخي الحبيب خالد

إليك اختصار لكود الترتيب ..

Sub SortData()
    Application.ScreenUpdating = False
        Dim LR As Long
        ActiveSheet.Unprotect "111"
            LR = Range("N265").End(xlUp).Row
            Range("B6:BC" & LR).Sort Key1:=Range("H6:H" & LR), Order1:=xlDescending, Key2:=Range("N6:N" & LR), Order2:=xlAscending, Header:=xlNo
        ActiveSheet.Protect "111"
    Application.ScreenUpdating = True
End Sub

 

  • Like 1
قام بنشر

بسم الله الرحمن الرحيم

أولا : أتقدم بخالص الشكر والتقدير لحضراتكم جميعًا ولجميع القائمين على المنتدى الغالي .

ثانيًا : أستاذي الفاضل : ياسر خليل أبو البراء إنما لجأت إلى دمج الخلايا حتى أستطيع عمل الإحصائية الموجودة أسفل الورة . ولو هناك حل لتلك المشكلة أكون شاكر جدا لحضرتك ( عمل الإحصاء أسفل الورقة دون دمج خلايا ) .

قام بنشر

أستاذي الفاضل : ياسر خليل أبو البراء تحية طيبة وبعد

فكرة جيدة عمل الإحصائية في صفحة جديدة

ولكن هل من الممكن طباعته في أخر صفحة من البيانات ؟

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

وشكرا لحضرتك أستاذي الفاضل .

قام بنشر

لم أفهم المقصود من طباعته في آخر صفحة من البيانات

يمكن أن تتم طباعة الإحصائية في ورقة مستقلة لما تريدها في نفس الورقة ..

حاول أن توضح أكثر لأن الصورة لم تتضح بشكل كامل لدي

قام بنشر

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

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

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

مرفق الملف المطلوب التعامل معه.

كشف المتقدمين للصف الأول 2015 2016.rar

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information