عبد الله بولنوار

تحية طيبة لمن مرة من ها خبيرا كان ام زائرا ارجو ان يكون الشرح كافيا في المُرفق بدالة او كود المرفق نموذج فقط لما اريد فعله المطلوب حساب عدد الناجحين في كل قسم عدد التلاميذ يختلف من قسم لآخر معدل النجاح 5 فما فوق مع جزيل الشكر مسبقا جديد.rar

بارك الله فيك أستاذي والله أتحفتنا به هذه الأكواد الرائعة ActiveSheet.Unprotect ([j1]) Rows("6:5001").Select Selection.EntireRow.Hidden = True ActiveSheet.Protect ([j1]) انت وضعته في حدث فتح الورك بوك لحماية الشيت وإخفاء المحددة ولماذا وضعته ايضا في زر البحث وضعته ايضا في الموديول 4 Sub hide() اهلا بيك في الموديل نسيت حذفه فقط لاني سجلت الموديل ثم عدلت عليه لفك الحماية ثم ارجاع الحماية ( اسهل من كتابته حرفيا ) في زر البحث لكي يخفي عملية البحث السابقة فقط سواء اراد البحث عن جديد او مجرد مسح البحث السابق دمت بود

باخفاء كل البيانات invigilations99.rar

الأستاذ الفاضل / عبد الله الحقيقة أنى أدرك أننى قد أثقلت على حضرتك و لكن كريم مودتك و فيض علمك يشجعنى على سؤال سيادتكم أولاً : الرابط http://www.gulfup.com/?jc2GSY و الخاص بالشرح لا يكتمل فيه التحميل (المثل الصينى يقول لا تعطنى سمكه و لكن علمنى كيف أصطاد ) ثانياً : أرجو تطوير الكود بحيث عند فتح الملف لا تظهر أى بيانات ثالثاً : ما معنى الكود ActiveWindow.ScrollRow = 12 الموجود فى داله البحث و لماذا 12 بالذات و ما معنى الكود (MyRng = Range("schedule").Columns(8 رابعاً : عند كتابة الرقم الوظيفى 0 (عند محاولة إختبار الكود ) يظهر عمود الرقم الوظيفى فارغ مع وافر الشكر و التقدير للاسف الرابط لسمكة اخرى غير السمكة الي تريد اصديادها لانه شرح آخر للاخ الجموعي في امر آخر الابط يعمل عادي الن موقع الرفع الخليجية معطل لاعيد تحميله لك من جديد بخصوص الاكواد سالفة الذكر عملها الأخ الي قبلي في الفلترة انا عملك كود طريقة البحث فقط طبعا عند وضع الرقم 0 يظهر العمود فارغ لانه يوجد بيانات لا يوجد بها رقم وظيفي الكود (MyRng = Range("schedule").Columns(8 الأخ قام بتسمية مساحة البحث باسم schedule لعمل الفرز عليها و الرقم 8 هو ترتيب العمود الخاص بالرقم الوظيفي الذي سيتم الفرز على اساسه

ممكن انك استعملت علامة X الثانية الخاصة باغلاق و رقة العمل النشطة و لم تستعمل X الخاصة باغلاق الاكسال ككل

ما المطلوب بالضبط جرب تاريخ.rar

تقصد مثل هذا تاريخ.rar

عندك خطا في كود الترحيل الى خيار "هالك" قم بتغيير 2 الى 3 في If OptionButton3.Value = True Then Set ws = Worksheets("whs") iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(1, 0).Row If OptionButton1.Value = True Then ws.Cells(iRow, 1).Value = Me.TextBox1.Value ws.Cells(iRow, 2).Value = Me.ComboBox1.Value ws.Cells(iRow, 3).Value = Me.TextBox3.Value ws.Cells(iRow, 4).Value = Me.TextBox4.Value Else If OptionButton2.Value = True Then ws.Cells(iRow, 1).Value = Me.TextBox1.Value ws.Cells(iRow, 2).Value = Me.ComboBox1.Value ws.Cells(iRow, 3).Value = Me.TextBox3.Value ws.Cells(iRow, 5).Value = Me.TextBox4.Value Else If OptionButton3.Value = True Then ws.Cells(iRow, 1).Value = Me.TextBox1.Value ws.Cells(iRow, 2).Value = Me.ComboBox1.Value ws.Cells(iRow, 3).Value = Me.TextBox3.Value ws.Cells(iRow, 6).Value = Me.TextBox4.Value

المرفق pro.rar

جرب هذا

اي ملف تقصد الذي اقتبسته ( شرح الفيديو ) ام طلبك الاول

هذا ما فهمته من طلب الأخ نقدي.rar

اخ الجموعي كيف اخفيت الصفحة الثانية في حال دخول المستخدم 1 و العكس رغم انها لا تظهر عند اظهار الصفحات المخفية بمعني شرح Sheets(3).Visible = xlSheetVisible

اكيد بالورد اسهل و حسابات لكن لو فيه بيانات الافل اكسال جدول ‫‬.rar

يمكن عملها بالوورد و يمكن عملها بالاكسال اين الاشكال بالظبط

نموذج.rar

شرح فيديو تنسيق.rar

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

تفضل في عمودين مساعدين ملونيين بالاصفر يمكنك اخفاؤهم محاولة بسيطة Classeur100.rar

معناه 3 جداول لكل مادة جدول لانه من غير المنطقي في جدول واحد فصاحب اعلى معدل في المادة 1 قد لا يكون هو صاحب اعلى معدل في المادة 2

اعلى معدل في المواد الثلاث مع بعض تقصد

تقصد بهذا التنسيق الصورة غير واضحة نموذج.rar

شاهد الشرح على اوفيس 2010 تاريخ.rar

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

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