الأستاذ / محمد الدسوقى

الستاذ / منير كما تفضل الأستاذ / شريف ـ افتح البرنامج على أوفيس 2010 وتحفظة باسم تانى قم بحفظ الملف باسم آخر بمسار آخر بالجهاز ـ وامتداد xlsb وجرب فى حالة وجود الخطأ مرة تانية ـ يبقى الملف به تلف ما ربما لكثرة المعادلات أو التنسيقات

الأستاذ الفاضل / منير تم إيقاف رسالة الخطأ التى تظهر عندك بالنسبة لارتباطات الشيت وشغال 100 % ولكن لوجظ أن الشيت به بعض الثقل فى الحفظ أو عند بداية الفتح ـ فرجاء راجع الصيغ والمعادلات لربما تحتوى على مراجع خاطئة وهذا رابط الملف ـ تفضل اطلع عليه https://up.top4top.net/downloadf-677ubvvy1-rar.html تقبل تحياتى

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

الله عليك أستاذى سليم الحل السهل الممتنع تقبل تحياتى

أخى الكريم الحمد لله الذى بنعمته تتم الصالحات تقبل تحياتى

أخى الكريم / راجى السلام عليكم ورحمة الله تفضل الملف المرفق به المطلوب إن شاء الله وتم إظهار النتائج المطلوبة فى نفس ورقة العمل Salim وتم إلغاء المعادلات كلها للأعمدة المطلوب نقلها كما تم إظهار النتائج المطلوبة ـ فى ورقة منفصلة Result(2) فاختر المناسب أرجو المراجعة والتقييم تقبل تحياتى EXTRACT_DATA_II.rar

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

وعليكم السلام أستاذ محمد جرب الخطوات التالية : 1 ـ ملف 2 ـ خيارات 3ـ مركز التوثيق 4ـ إعدادات مركز التوثيق 5 ـ تحت العنوان ( إعدادات خاصة بالمستند ) ضع علامة صح فى المربع ( إزالة المعلومات الشخصية ) 6 ـ اضغط ( مركز التحكم بالمستند ) 7 ـ أزل علامة صح من ( خضائص المستند والمعلومات الشخصية ) مرفق صورة بشرح الخطوات أتمنى أن يكون المطلوب

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

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

أخى الكريم يوجد بعض البيانات المطلوب ترحيلها إلى ( سجل قيد الطلاب المستجدين ) غير موجودة بورقة العمل ( بيانات الطلاب ) مثل : اسم والد الطالب ـ السن فى أول اكتوبر فكيف يمكن نقلها من ورقة بيانات الطلاب وهى أصلا ليست موجودة عليك ارفاق أعمدة اسم الوالد والسن فى أول أكتوبر حتى يكتمل نقل البيانات

أخى الفاضل الرجاء توضيح أكثر للمطلوب نموذج البحث المطلوب على أى ورقة سيعمل

أخى الكريم 'ويمكن تنفيذ الكود على كافة الأعمدة فى الثلاث مجموعات باستخدام If TC = 2 Or TC = 3 Or TC = 4 Or TC = 8 Or TC = 9 Or TC = 10 Or TC = 13 Or TC = 14 Or TC = 15 'بدلا من If TC = 2 Or TC = 8 Or TC = 13 يعنى تحديد نطاق الجدول بالكامل فى كل مجموعة بدلا من تحديد عمود واحد فقط ليمنع التكرار فى أى خلية من خلايا الثلاث مجموعات

الأخوة الكرام السلام عليكم هذا كود يقوم بنقل الأعمدة غير المتتالية من ورقة عمل ( المصدر ) إلى أعمدة غير متتالية فى ورقة الهدف ) قد يفيد فى حل المشكلة ــــــــــــــــــ الكود شغال على كل الطلبة ـــــــــــ فهنا المشكلة : المشكلة أريد وضع شرط بالكود وهو نقل الطلاب المستجدين ( مستجد ـ مستجدة ) حسبما يريد طالب السؤال فأين يوضع الشرط فى الكود أرجــــو منكم الإفادة للجميع تقبلوا تحياتى Option Explicit Sub Students_Record() '----------------------------------- ' سجل قيد الطلاب المستجدين '----------------------------------- Dim Arr As Variant Dim i As Variant Dim cr As Variant Dim j As Long Dim LR As Long 'ترحيل بيانات سجل القيد '---------------------------------- Dim ws As Worksheet, Sh As Worksheet Set Sh = Sheets("بيانات الطلاب") 'المصدر Set ws = Sheets("سجل قيد الطلاب المستجدين") 'الهدف LR = Sh.Cells(Rows.Count, 3).End(xlUp).Row '---------------------------------- Application.ScreenUpdating = False ws.Range("C11:C510,E11:P510").ClearContents Arr = Sh.Range("A17:T" & LR).Value 'الأعمدة المطلوب الترحيل إليها cr = Array(3, 5, 6, 7, 11, 12, 13, 15, 16) 'أرقام الأعمدة المطلوب ترحيلها For Each i In Array(3, 8, 9, 10, 14, 5, 6, 12, 13) Sheets("سجل قيد الطلاب المستجدين").Cells(11, cr(j)).Resize(UBound(Arr, 1)).Value = Application.Index(Arr, , i) j = j + 1 Next i Application.ScreenUpdating = True End Sub

السلام عليكم ورحمة الله اخى الكريم / ناصر سعيد رحم الله اخيك الراحل واسكنه فسيح جناته والهمكم الصبر و السلوان

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

أخى الكريم السلام عليكم تفضل الملف المرفق إن شاء الله به المطلوب أتمنى أن يفى بالغرض استخدمت الدالة SumIf يوجد جدول به الاحصائيات المطلوبة يمكن الإضافة كما تشاء مع العل أنها دالة صفيف يعنى لابد من الضغط على مفاتيح Ctrl + Shift + Enter عند الانتهاء أو التعديل على الدالة تقبلوا تحياتى إجابة السؤال.rar

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

رائع ومبدع كالعادة أستاذى الغالى أبو البراء دائما السهل الممتنع الحل بأبسط طرق تقبل تحياتى

أخى العزيز جرب الكود التالى لتحديد اسم الطابعة مع مراعاة كتابة اسم الطابعة بالطريقة الصحيحة الكود هو إضافة على الكود المستخدم فى الملف المرفق خاصتكم Option Explicit Private Sub CommandButton1_Click() Dim ws As Worksheet, lr% Set ws = Sheets("sheet1") lr = ws.Cells(Rows.Count, 1).End(xlUp).Row If OptionButton1.Value = True Then Application.ActivePrinter = "HP laserJet profissional M1132 MEP" 'اسم الطابعة الأولى المراد استخدامها مع زر الاختيار الأول ws.Range("a1:e" & lr).PrintOut Else If OptionButton2.Value = True Then Application.ActivePrinter = "HP laserJet p1005" 'اسم الطابعة الثانية المراد استخدامها مع زر الاختيار الثانى ws.Range("a1:e" & lr).PrintOut Else End If: End If End Sub

بارك الله فيك استاذ الغالى ياسر أبو البراء لو أمكن وضع هذه الخطوات فى كود لتسهيل العملية وزيادة نطاق الفلترة Sub Data_Filter() Application.ScreenUpdating = False Sheets("بيانات").Select Range("G1:H1000").Select Selection.Copy Sheets("جدول").Select Range("G2").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveSheet.Range("$G$1:$H$1000").RemoveDuplicates Columns:=Array(1, 2), Header _ :=xlNo Range("A1").Select Application.ScreenUpdating = True End Sub

أخى الكريم السلام عليكم ورحمة الله وبركاته اتفضل ملف به زر أمر بالمطلوب أتمنى أن يفى بالغرض ـــــــــــــــــــــــــــــ تقبل تحياتى امر اغلاق وحفظ التعديل .rar

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

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

أخى الكريم يمكنك حماية الأكواد بكلمة مرور ـ كما يلى 1 ـ قم بالدخول إلى محرر الأكواد بالضغط على Alt + F11 علىAlt + F11 2 ـ من قائمة Tools 3 ـ اختر منها VBProject Properties 4 ـ نشط التاب Protection 5 ـ نشط مربع الحوار Lock Project 6 ـ أدخل الباسورد الخاص بك لحماية الأكواد ثم أعد كتابة أسفل منة مرة أخرى للتأكيد ثم أضغط OK 7 ـ قم بحفظ الملف وأغلقة وارجع افتحه تانى وادخل على محرر الأكواد وحاول تفتح أة موديول أو فورم ... ماذا تلاحظ ؟؟؟ أتمنى أن يكون الشرح أدى الغرض المطلوب تقبل تحياتى