تفضل المطلوب
بالنسبة لملف تم تعديل كود الترتيب وكتابة النوع أمام كل طالب حتى يتم الترتيب اسماء الذكور أولاً في كل فصل
وبالنسبة للملف الثاني فكرته أنك تدخل البيانات ثم الضغط على زر ترحيل وهو يقوم بعمل قوائم كل فصل في صفحة وطبعًا به إحصائيات كل فصل ولكن يظهر الإحصاء في الصفحة التي نضع فيها البيانات إلا بعد الضغط على زر الترحيل
برنامج قوائم الفصول.xls
فوائم مدرسة 2018.xlsm
بعد إذن الأعضاء يتم عمل ذلك بتحديد الخلية أوالخلايا المراد ضبطها واضغط كليك يمين يظهر صندوق حواري اختر الرقم واجعل المنازل العشرية 0
انظر الصورة
وهناك طريقة ثانية وهي نفس الخطوات السابقة ولكن اختر من الصندوق الحواري نص وإن لم يتغير بعدها قم بالضغط مرتين بالماوس فوق كل خلية بعد التنسيق
قم بالضغط كليك يمين على اسم ورقة العمل تظهر قائمة اختر منها عرض التعليمات البرمجية
للدخول لحدث الورقة
قم بالضغط كليك يمين على اسم ورقة العمل تظهر قائمة اختر منها عرض التعليمات البرمجية
بعد إذن الأعضاء يتم عمل ذلك بتحديد الخلية أوالخلايا المراد ضبطها واضغط كليك يمين يظهر صندوق حواري اختر الرقم واجعل المنازل العشرية 0
انظر الصورة
وهناك طريقة ثانية وهي نفس الخطوات السابقة ولكن اختر من الصندوق الحواري نص وإن لم يتغير بعدها قم بالضغط مرتين بالماوس فوق كل خلية بعد التنسيق
بعد إذن أخي وأستاذي / مصطفى محمود مصطفى
قمت بتجربت الملف ورأيته يعمل جيدًا
ورأيت أن أضيف قائمة للنشاط حتى يتم اختيار النشاط منها أو كتابته كما هو مسجل الملف
فلابد من اختيار الفصل واختيار النشاط ثم الضغط على زر استدعاء في كل مرة
أي أنه لابد من استدعاء الفصل الواحد أكثر من مرة طالما يوجد به أكثر من نشاط ( الاختياري 1 )
تصفية حسب الفصل والنشاط.xls
Sub إخفاء_إظهار()
On Error Resume Next
Dim XX As Shape
'الإعلان عن متغير اسمه Shape (الشكل)
Set XX = Sheet1.Shapes("الدائرة")
' ممكن تغيير الاسم الذي باللون الأحمر باسم الشكل الذي قمت بإدراجه
' استدعاء الشكل في شييت1
With XX.TextFrame.Characters
If .Text = "إخفاء الصفوف" Then
' اسم الأول الذي تريد إظهاره في الشكل
Ahmed_Head
' اسم الماكرو الأول
.Text = "إظهار الصفوف"
' الاسم الثاني الذي تريد إظهاره في الشكل
Else
Ahmed_Show
'اسم الماكرو الثاني
.Text = "إخفاء الصفوف"
اسم الأول الذي تريد إظهاره في الشكل
End If
End With
On Error GoTo 0
End Sub
أتنمى من الله أن يكون هذا المطلوب ويكون واضحًا
بفضل الله توصلت إلى كود إخفاء صفوف بناء على قيمة أنا اخترتها في العمود K إذا كانت القيمة 0 ابتداءًا من الخلية K10وحتى الخلية K125
وعملت كود لإظهار الصفوف المخفية مرة أخرى
وطبعًا جعلت الكودين يعملان بزر أمر واحد
وبهذا الكود يمكن جعل قيمة الخلية في العمود K رقم 1 مقابل الصف الذي تريد إظهاره
جرب الملف
زر واحد اخفاء واظهار.zip
المشكلة التي واجهتني كانت في كود مسح البيانات الخاصة بورقة العمل ( القيود ) وتم التعديل
أما كود مسح البيانات الخاصة بورقة العمل ( الاستعلام ) فليس به أي مشكلة
Egy-Co.rar
عليكم السلام ورحمة الله وبركاته
قم بتجربة الملف هذا وعذرًا لم أفم بتحميل الملف الجديد
وإنما أجريت على الملف الذي تم تعديله في المشاركة السابقة
قم بتجربته وأعتقد أنه لا يوجد حل أفضل من هذا
وعلى فكرة ربط الماكرو الجديد مع ماكرو المعاينة بحيث لا داعي لتشغيله لوحده لو أدرت
ورجاء عدم تغيير إعدات ورقة العمل حتى لا يتم تداخل النصوص والأرقام التى بورقة العمل مع تذليل الورقة
invoice2.zip